用vb(6.0)怎样让窗体一直留在屏幕上,就像360的小加速球。

2025-01-19 14:17:22
推荐回答(1个)
回答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
Private Sub Form_Load()
SetWindowPos Me.hwnd, -1, 0, 0, 0, 0, 1 Or 2

End Sub
'要生成EXE后才有用