保持在視窗最上層的小時鐘 (VB)

保持在視窗最上層的小時鐘 (VB)

只使用一個timer一個label,最上層是靠API去實現的

Option Explicit

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 SWP_NOMOVE = &H2                             '不更動目前視窗位置
Const SWP_NOSIZE = &H1                              '不更動目前視窗大小
Const HWND_TOPMOST = -1                           '設定為最上層
Const HWND_NOTOPMOST = -2                       '取消最上層設定
Const FLAGS = SWP_NOMOVE Or SWP_NOSIZE

Private Sub Form_Load()
SetWindowPos Me.hwnd, HWND_TOPMOST, 0, 0, 0, 0, FLAGS

Label1.Caption = Format(Now, "hh:mm:ss")

End Sub

Private Sub Timer1_Timer()
Label1.Caption = Format(Now, "hh:mm:ss")

End Sub
 


如有錯誤 歡迎指正