透明桌面时间助手精编.docVIP

透明桌面时间助手（附源代码） 编程：简凌 看了腾讯的时间助手，这个透明的界面很好看了，刚好在学编程，最近下了一个VB6.0的精简版，于是就用些零碎的业余时间做一个小简设计时间助手。 也有n年没有写过代码了，以往岁月中那些浅尝辄止的零散基础也没帮上什么，于是“万事问百度”再加上那股“初生牛犊不怕虎”的劲儿，哎，终于捣弄出来了一个“小简设计时间助手V1” 一、时间代码 我首先找到时间，日期 函数和星期函数，分别改成ChinaTime () Jdata() 和Jweek() Sub Chinatime() tmp = Format(Now, hh:mm:ss) h = Left(tmp, 2): s = Right(tmp, 2): m = Mid(tmp, 4, 2) Label1.Caption = h + : + m End Sub Sub Jdate() JDtmp = Format(Now, mm/dd/yy) yue = Left(JDtmp, 2) day = Mid(JDtmp, 4, 2) Label2.Caption = yue + 月 + day + 日 End Sub Sub Jweek() wk = Weekday(Date, vbMonday) Jwk = Left(wk, 1) End Sub 百度里有很多答案，我通常会选择最简单的代码。 可是里这个星期1的“数字”有点不好呢，星期日都变成“星期7”了。对了，加个EndIf就可以了吧 Sub Jweek() wk = Weekday(Date, vbMonday) Jwk = Left(wk, 1) If Jwk = 1 Then Label3.Caption = 星期一 ElseIf Jwk = 2 Then Label3.Caption = 星期二 ElseIf Jwk = 3 Then Label3.Caption = 星期三 ElseIf Jwk = 4 Then Label3.Caption = 星期四 ElseIf Jwk = 5 Then Label3.Caption = 星期五 ElseIf Jwk = 6 Then Label3.Caption = 星期六 ElseIf Jwk = 7 Then Label3.Caption = 星期日 End If End Sub 二、透明窗体和可拖放 这都是百度上的代码了，但我会比较哪一个代码更简单，更好用，更有实效。 但我去掉了窗的缩小放大和关闭按钮，因为放在桌面我的考虑不用关闭。 拖动这个透明窗体我放在显示时间的控件上了。 Option Explicit Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong Lib user32 Alias SetWindowLongA (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function SetLayeredWindowAttributes Lib user32 (ByVal hwnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long Private Const WS_EX_LAYERED = H80000 Const GWL_EXSTYLE = (-20) Private Const LWA_ALPHA = H2 Private Const LWA_COLORKEY = H1 变量声明MoveScreen，布尔型变量，标示窗体是否处于被移动状态 Dim MoveScreen As Boolean 鼠标位置 Dim MousX As Integer Dim MousY As Integer 窗体位置 Dim CurrX As Integer Dim CurrY As Integer “退出”按钮 当鼠标在窗体上按下时 Private Sub Label1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ---------------------------------------------参数说明：-----------------