透明桌面时间助手汇编.docxVIP

透明桌面时间助手（附源代码） 编程：简凌 看了腾讯的时间助手，这个透明的界面很好看了，刚好在学编程，最近下了一个 VB6.0的精 简版，于是就用些零碎的业余时间做一个小简设计时间助手。 16:19 细却月25日星期三二^贬 Windows 10升级助手 ■■ ■ 口 成动预铀升级Mini 0 好的 也有n年没有写过代码了， 以往岁月中那些浅尝辄止的零散基础也没帮上什么， 于是“万事 问百度”再加上那股“初生牛犊不怕虎”的劲儿，哎，终于捣弄出来了一个“小简设计时间 助手V1 ? h ?Br [l|i M- Di-1 [H-3： HMVv. UQm MAX r i ? hTnU# T I t * LF 5 * ■* ■+ Smail Simple Design14:27*月 Smail Simple Design 14:27 *月LT日 ￡ffi- 1简iS汁时间眄手VI CQCIXFT3 Eh^~??l 5^X I fen j-f .fl或增1￡3 E1 亠、时间代码 和 Jweek()我首先找到时间，日期 函数和星期函数，分别改成 Chi naTime () 和 Jweek() Sub Chi natime() tmp = Format(Now, hh:mm:ss) h = Left(tmp, 2): s = Right(tmp, 2): m = Mid(tmp, 4, 2) Label1.Captio n = 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, vbMo nday) Jwk = Left(wk, 1) End Sub 百度里有很多答案，我通常会选择最简单的代码。 16:07 曲月IT日 星期1 威頁肿到大雨I曆匕 简设计时间助至V] Codtt lilil-201 S-xlaojludasi id 可是 里这个星期1的“数字”有点不好呢，星期日 都变成“星期7 ”了。对了，加个 En dlf就可以了吧 Sub Jweek() wk = Weekday(Date, vbMo nday) Jwk = Left(wk, 1) If Jwk = 1 The n Label3.Caption =星期一 ElseIf Jwk = 2 The n Label3.Caption =星期二 ElseIf Jwk = 3 The n Label3.Caption =星期三 ElseIf Jwk = 4 The n Label3.Caption =星期四 ElseIf Jwk = 5 The n Label3.Caption =星期五 ElseIf Jwk = 6 The n Label3.Caption =星期六 ElseIf Jwk = 7 The n Label3.Caption =星期日 End If End Sub 二、透明窗体和可拖放 这都是百度上的代码了，但我会比较哪一个代码更简单，更好用，更有实效。 但我去掉了窗的缩小放大和关闭按钮，因为放在桌面我的考虑不用关闭。 拖动这个透明窗体我放在显示时间的控件上了。 Option Explicit Private Declare Function GetWindowLong Lib user32 Alias GetWindowLongA (ByVai 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 = H