一个超酷的时钟

时间:2017-05-24 08:49:28
【文件属性】:

文件名称:一个超酷的时钟

文件大小:11KB

文件格式:RAR

更新时间:2017-05-24 08:49:28

时钟显示 VB时钟

一个VB超酷的时钟特效 Public Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long Public Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Long) As Long Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex 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 SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Public Declare Sub 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)


【文件预览】:
Project1.vbp
Module1.bas
Form1.frm
Project1.vbw
Form1.frx
MSSCCPRJ.SCC
Form2.frx
Form2.frm

网友评论

  • 需要改进的.