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毫秒后改变消息框的位