如何让一个VB窗口总是处于各窗口的最上层

发布时间：2020-12-16 23:16:45 所属栏目：大数据来源：网络整理

导读：代码如下: Private 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 _ Const HWND_TOPMOST = -1 Pri

代码如下:
Private 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 & _
　 Const HWND_TOPMOST = -1

Private Sub Form_Load() 　 SetWindowPos Me.hwnd,HWND_TOPMOST,Me.Left/Screen.TwipsPerPixelX,_ Me.Top/Screen.TwipsPerPixelY,Me.Width/Screen.TwipsPerPixelX,_ 　　 Form1.Height / Screen.TwipsPerPixelY,0 End Sub

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!