【VB开源代码栏目提醒】:本文主要为网学会员提供日期和时间浏览器.frm,希望对需要日期和时间浏览器.frm网友有所帮助,学习一下!
VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
BorderStyle = 0 'None
Caption = "日期和时间浏览器"
ClientHeight = 6285
ClientLeft = 1890
ClientTop = 1485
ClientWidth = 8565
Icon = "日期和时间浏览器.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MouseIcon = "日期和时间浏览器.frx":0442
ScaleHeight = 6285
ScaleWidth = 8565
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Timer Timer13
Interval = 2000
Left = 5160
Top = 4680
End
Begin VB.Timer Timer12
Interval = 2000
Left = 5160
Top = 4200
End
Begin VB.Timer Timer11
Interval = 2000
Left = 5160
Top = 3720
End
Begin VB.Timer Timer10
Interval = 2000
Left = 5160
Top = 5160
End
Begin VB.Timer Timer9
Interval = 2000
Left = 4200
Top = 5160
End
Begin VB.Timer Timer8
Interval = 2000
Left = 4680
Top = 5160
End
Begin VB.Timer Timer7
Interval = 2000
Left = 4200
Top = 4680
End
Begin VB.Timer Timer6
Interval = 2000
Left = 4680
Top = 4680
End
Begin VB.Timer Timer5
Interval = 2000
Left = 4200
Top = 4200
End
Begin VB.Timer Timer4
Enabled = 0 'False
Interval = 2000
Left = 4680
Top = 4200
End
Begin VB.Timer Timer3
Enabled = 0 'False
Interval = 2000
Left = 4200
Top = 3720
End
Begin VB.Timer Timer2
Interval = 2000
Left = 4680
Top = 3720
End
Begin VB.CommandButton CmdExit
BackColor = &H000080FF&
Caption = "退出系统"
BeginProperty Font
Name = "楷体_GB2312"
Size = 14.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 615
Left = 6120
MouseIcon = "日期和时间浏览器.frx":0594
MousePointer = 99 'Custom
Style = 1 'Graphical
TabIndex = 0
ToolTipText = "退出程序 "
Top = 4680
Width = 1815
End
Begin VB.Image Image4
Height = 780
Left = 5280
Stretch = -1 'True
Top = 2400
Width = 3105
End
Begin
VB.Shape Shape1
BorderColor = &H80000002&
Height = 735
Left = 6000
Top = 1200
Width = 2415
End
Begin VB.Line Line5
BorderColor = &H80000002&
X1 = 6360
X2 = 6360
Y1 = 120
Y2 = 960
End
Begin VB.Line Line4
BorderColor = &H80000002&
X1 = 8040
X2 = 8040
Y1 = 120
Y2 = 960
End
Begin VB.Line Line3
BorderColor = &H80000002&
X1 = 3960
X2 = 8040
Y1 = 960
Y2 = 960
End
Begin VB.Line Line2
BorderColor = &H80000002&
X1 = 3960
X2 = 3960
Y1 = 120
Y2 = 960
End
Begin VB.Line Line1
BorderColor = &H80000002&
X1 = 3960
X2 = 8040
Y1 = 120
Y2 = 120
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 495
Left = 6360
TabIndex = 3
Top = 240
Width = 1680
End
Begin VB.Image Image3
Height = 690
Left = 3480
Picture = "日期和时间浏览器.frx":089E
Stretch = -1 'True
Top = 1200
Width = 2445
End
Begin VB.Label Label2
AutoSize = -1 'True
BackColor = &H00008000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 26.25
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 525
Left = 6120
TabIndex = 2
Top = 1320
Width = 495
End
Begin VB.Label Label1
AutoSize = -1 'True
BackColor = &H00008000&
BackStyle = 0 'Transparent
BeginProperty Font
Name = "楷体_GB2312"
Size = 24
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000080FF&
Height = 495
Left = 4080
TabIndex = 1
Top = 240
Width = 240
End
Begin VB.Image Image2
Height = 4170
Left = 120
Stretch = -1 'True
Top = 1920
Width = 5115
End
Begin VB.Image Image1
Height = 900
Left = 960
Picture = "日期和时间浏览器.frx":2131
Stretch = -1 'True
Top = 120
Width = 2820
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Sub CmdExit_Click()
Unload Me '卸载窗体
End Sub
'窗体初始化事件
Private Sub Form_Initialize()
If App.PrevInstance Then End '结束
程序的运行
End Sub
Private Sub Form_Load()
Dim Week As Long '定义整型变量
Label2.Caption = Time '返回包含
系统时间
Label1 = Date '返回包含系统日期
Week = Weekday(Date) '返回一个整数,代表某个日期是星期几。
Select Case Week
Case 1
Label3 = "星期日" '显示星期日
Image4.Picture = LoadPicture(App.Path + "\图片\big.jpg") '导入图片
Case 2
Label3 = " 星期一" '显示星期一
Image4.Picture = LoadPicture(App.Path + "\图片\up.jpg") '导入图片
Case 3
Label3 = "星期二" '显示星期二
Image4.Picture = LoadPicture(App.Path + "\图片\up.jpg") '导入图