VB如何让窗口显示在屏幕顶层但不影响其他操作

来源:百度知道 编辑:UC知道 时间:2024/06/29 02:07:30
我想做个桌面时钟,在屏幕一角显示时间,如何让它不影响其他操作

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 hwnd, -1, 0, 0, 0, 0, 3
End Sub

先设置置顶,用SendMessage把客户区的鼠标消息发送到下层窗口