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)Sub SetWindowApi(ByVal hwnd As Long, ByVal SetPos As Boolean)
If SetPos = True Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, 3
End If
End SubSetWindowApi 窗体句柄,布尔值(True设置在前False取消在前)
If SetPos = True Then
SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
Else
SetWindowPos hwnd, -2, 0, 0, 0, 0, 3
End If
End SubSetWindowApi 窗体句柄,布尔值(True设置在前False取消在前)
解决方案 »
- 如何判断WebBrowser1_DocumentComplete过程已经完成?
- vb用winsock编写电子邮件发送程序.
- 你知道国际大公司的薪酬原则吗?可以了解一下
- 求助:adodc错误
- 用VB给PDF加密
- 提一个关于html方面的问题
- VB和SQL中的数据库之间是如何链接起呢?那两条语句的字段是否能给于解释一下,马上增分!急
- 程序连接到SQL SERVER服务器时,其中有一种方式是 通过WINDOWS NT 验证登录,请问一下这个验证登录
- 定赠高分! 如何在运行时设置text控件的只读属性?
- 请问如何在VB程序中向SQL数据库插入字段值包含"'",急!!
- 如何把一个日期字段和combo1.text用sql语句添加到表里?
- 小问题:使用image控件时,能不能用mask将图片的背景色给屏蔽掉?
http://ygyuan.3322.net/
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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
Dim retValue As Long
'将窗体设置为处于所有窗口的顶层,注意在 VB 中运行时,可能不行,但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End Sub