UC知道VB 制作主题时钟日历
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:41:15
如图上部的时钟日历效果
图片资源在这里
http://free.66ip.com/linoul/2.RAR
http://free.66ip.com/linoul/clock_numbers.bmp
关键是如何读取这种图片，1的话就显示图片里的1
这个是用图片显示时间的。加一个Picture1，向里边添加数字图片，加一个Picture2，向里边添加冒号图片，再加一个Timer1，然后把下边的代码复制到程序中运行一下看看效果，
Private Declare Function GdiTransparentBlt Lib "gdi32" (ByVal hdc1 As Long, ByVal X1 As Long, ByVal Y1 As Long, ByVal W1 As Long, ByVal H1 As Long, ByVal Hdc2 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal W2 As Long, ByVal H2 As Long, ByVal Color As Long) As Long
Dim PicW As Long, PicH As Long
Private Sub Form_Load()
'设置窗口为自动重绘
Me.AutoRedraw = True
'设置Picture1的属性
Picture1.AutoRedraw = True
Picture1.AutoSize = True
Picture1.ScaleMode = 3
Picture1.Visible = False
'设置Picture2的属性
Picture2.AutoRedraw = True
Picture2.AutoSize = True
Picture2.ScaleMode = 3
Picture2.Visible = False
'设置时间间隔
Timer1.Interval = 1000
'计算一下每个数字的宽和高
PicW = Picture1.ScaleWidth
PicH = Picture1.ScaleHeight / 10
End Sub
Private Sub Timer1_Timer() <