(1)启动API浏览器,通过该浏览器复制“SetWindowPos”函数的声明语句。
(2)启动Visual Basic,新建一个标准EXE工程。
(3)使用“工程”|“添加模块”菜单项,添加一个新的模块文件。
(4)打开模块的代码窗口,将“SetWindowPos”函数的声明语句粘贴进去。
(5)打开Form1窗体的代码窗口,编写如下程序。
Private Sub Form_Load()
retnum = SetWindowPos(Me.hwnd, -1, 600, 200, 100, 100, &H40)
If retnum = 0 Then
MsgBox "顶层窗口设置失败!", vbOKOnly + vbExclamation
End If
End Sub
Private Sub Form_Load()
retnum = SetWindowPos(Me.hwnd, -1, 600, 200, 100, 100, &H40)
If retnum = 0 Then
MsgBox "顶层窗口设置失败!", vbOKOnly + vbExclamation
End If
End Sub
(6)运行程序。