以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]登陆之后，系统界面大小及出现位置问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=83757)
--  作者：poiokm26
--  发布时间：2016/4/15 22:21:00
--  [求助]登陆之后，系统界面大小及出现位置问题
做好的项目，界面大小和出现在桌面的位置如何设置。我现在的界面一打开总是很小的尺寸。都弄不回来了。

Dim w As Integer = sysinfo.ScreenWidth
Dim h As Integer = Sysinfo.ScreenHeight
With baseMainForm
    .WindowState = Windows.Forms.FormWindowState.Normal
    .Width = 215
    .Height = 600
End With

上面代码是搜论坛得来的。想实现第一次打开界面得到想要的大小，但无论放什么事件都无效。运行过程中执行倒可以，重新打开项目就回到原来大小。
[此贴子已经被作者于2016/4/15 22:43:27编辑过]
--  作者：大红袍
--  发布时间：2016/4/18 0:40:00
--  

 代码这样写

 

With baseMainForm
    .show
    .WindowState = Windows.Forms.FormWindowState.Normal
    .Width = 215
    .Height = 600
    .top = 0
    .left = 0
End With
--  作者：poiokm26
--  发布时间：2016/4/20 21:40:00
--  
我在目录文件夹下点击项目文件，打开登陆窗口。但登陆窗口被文件夹挡着了。怎样设定显视最前面的。
--  作者：大红袍
--  发布时间：2016/4/20 21:45:00
--  
以下是引用poiokm26在2016/4/20 21:40:00的发言：
我在目录文件夹下点击项目文件，打开登陆窗口。但登陆窗口被文件夹挡着了。怎样设定显视最前面的。

 

timertick事件

 

If ShowAppWindow(e.Form.Text, 1) = True Then

    e.Form.TimerEnabled = False

End If

 

http://www.foxtable.com/help/topics/1301.htm

 
--  作者：poiokm26
--  发布时间：2016/4/20 22:59:00
--  
没有效果，还是被挡着。不能像QQ那样，无论多少程序在运行。只要点击了，保证最前的
--  作者：大红袍
--  发布时间：2016/4/21 0:05:00
--  

If ShowAppWindow(e.Form.Text, 1) = True Then

    e.Form.BaseForm.TopMost = True

    e.Form.TimerEnabled = False

End If