VB如何设置弹出窗口的位置?

来源:百度知道 编辑:UC知道 时间:2024/06/30 05:42:03
我编好了程序,放在桌面上,里面有个按钮可以弹出一个窗口,可是我想让弹出的窗口在桌面的右下角,应该怎么写代码(或者怎么设置)?

在程序里设置。
form1.show
form1.left=screen.width - form1.width
form1.top = screen.height - form1.height

如果你整个程序窗口比较少的话~不用写代码 直接把你想弹出的窗口 在 窗口布局上 拖到你想在桌面出现的位置就可以了

直接在 VB 的右下角,,有个电脑形状的东东,在那里调下位置就行了.....

VB自己设定消息框的显示位置
现在就来做一个在程序主窗口居中显示的消息框。 在Module模块中添加以下API函数、类型以及常量的声明:
Public Declare Function GetWindowRect Lib "user32" (ByVal hwnd As Long, lpRect As RECT) As Long
Public Type RECT Left As Long Top As Long Right As Long Bottom As Long End Type
Public Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long
Public Const SWP_NOSIZE As Long = &H1& Public Const SWP_NOZORDER As Long = &H4& Public Const HWND_TOP As Long = 0&
在刚才的窗体上再添加一个Command按钮和一个Timer控件,代码如下: Private Sub Command2_Click()
' 这里我们将自己设置消息框的位置
' 打开计时器,设定10毫秒后改变消息框的位