Question

用VB制作软件，如何让窗体始终保持在屏幕最前端？

我用VB制作了一个小软件，现要求让它始终保持在屏幕最前端显示。有尝试过使用下列代码：但是效果不好，因为这样会影响其它程序窗口的显示。问有什么好的办法？

Answer 1

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
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

Answer 2

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 LongPrivate Sub Form_Load()
SetWindowPos Me.hwnd, -1&, 0&, 0&, 0&, 0&, 3&
End Sub

Answer 3

你用FormCount.ShowDialog()看看

Answer 4

调个API setwindowpos