module1.bas

桌面时钟小程序源码

Attribute VB_Name = "Module1"
Public Declare Function ExitWindowsEx Lib "user32" (ByVal dwOptions As Long, ByVal dwReserved As Long) As Long


Public Declare Function ShellExecute Lib "SHELL32.DLL" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public 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
Public Declare Function GetSystemMenu Lib "user32" (ByVal hWnd As Long, ByVal bRevert As Long) As Long
Public Declare Function RemoveMenu Lib "user32" (ByVal hMenu As Long, ByVal nPosition As Long, ByVal wFlags As Long) As Long



Const MF_BYCOMMAND = &H0&
Const MF_BYPOSITION = &H400&

Public Const EWX_LOGOFF = 0
Public Const EWX_SHUTDOWN = 1
Public Const EWX_REBOOT = 2
Public Const EWX_FORCE = 4
Public Const EWX_POWEROFF = 8
Public Const EWX_RESET = EWX_LOGOFF + EWX_FORCE + EWX_REBOOT


Public Const HWND_NOTOPMOST = -&H2
Public Const HWND_TOPMOST = -1
Const WM_NCLBUTTONDOWN = &HA1
Const HTCAPTION = 2

Public varnoti As Boolean
Public time1 As String
Public opt As Integer
Public tx As Integer
Public time2 As String
Public bktime As Double
Public ntm As String
Public ntm2 As String
Public ntm3 As String
Public ta As Double
Public tb As Double
Public tc As Double
Public str1(2) As String
Public t1a As Integer
Public t1b As Integer
Public t1c As Integer
Public strpd As String