VB编写透明时钟代码.docVIP

VB编写透明时钟代码 Option Explicit Private Declare Function BeginPath Lib gdi32 (ByVal hdc As Long) As Long Private Declare Function EndPath Lib gdi32 (ByVal hdc As Long) As Long Private Declare Function PathToRegion Lib gdi32 (ByVal hdc As Long) As Long Private Declare Function SetWindowRgn Lib user32 (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long Private Declare Function TextOut Lib gdi32 Alias TextOutA (ByVal hdc As Long, ByVal X As Long, ByVal Y As Long, ByVal lpString As String, ByVal nCount As Long) As Long Private Declare Function SendMessage Lib user32 Alias SendMessageA (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long Private Declare Function ReleaseCapture Lib user32 () As Long Private Const HTCAPTION = 2 Private Const WM_NCLBUTTONDOWN = HA1 Private Sub Form_DblClick() Unload Me End Sub Private Sub Form_Load() Timer1.Interval = 800 Me.FontSize = 72 Me.BackColor = vbRed Me.FontBold = True Me.Height = 2000 Me.Width = 6000 Timer1_Timer End Sub Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ReleaseCapture SendMessage Me.hWnd, WM_NCLBUTTONDOWN, HTCAPTION, ByVal 0 End Sub Private Sub Timer1_Timer() BeginPath hdc TextOut hdc, 0, 10, CStr(Time), Len(CStr(Time)) EndPath hdc SetWindowRgn hWnd, PathToRegion(hdc), True End Sub 来源: /bbs/tree21-6314-34000.htm 用VB编写简单的时钟程序（有时、分、秒针转动）小闹钟示例Written By griefforyou在窗体中添加一个Timer控件，将Interval设为1000以下。////////////////////////////////Option EXPlicit Const PI = 3.1415926Dim BaseX As Integer, BaseY As Integer, R As IntegerDim r1 As Integer, r2 As Integer, r3 As Integer Private Sub Form_Load()????Me.ScaleMode = 3????Me.AutoRedraw = True????????If Me.Width 3000 Then Me.Width = 3000????If Me.Height 3000 Then Me.Height = 3000????End Sub Private Sub Init()Dim i As Integer ????BaseX = Me.ScaleWidth / 2????BaseY = Me.ScaleHeight / 2????????R = IIf(BaseX BaseY, BaseY * 0.8, BaseY * 0.8)????