📄 系统图片库.frm
字号:
VERSION 5.00
Begin VB.Form 系统图片库
BorderStyle = 0 'None
Caption = "系统图片库"
ClientHeight = 5400
ClientLeft = 3585
ClientTop = 3075
ClientWidth = 7515
LinkTopic = "Form1"
LockControls = -1 'True
ScaleHeight = 5400
ScaleWidth = 7515
ShowInTaskbar = 0 'False
Begin VB.Timer Timer1
Interval = 1000
Left = 7800
Top = 600
End
Begin VB.PictureBox Picture10
Height = 5415
Left = 0
Picture = "系统图片库.frx":0000
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 9
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture9
Height = 5415
Left = 0
Picture = "系统图片库.frx":14E8D
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 8
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture8
Height = 5415
Left = 0
Picture = "系统图片库.frx":26D89
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 7
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture7
Height = 5415
Left = 0
Picture = "系统图片库.frx":38AB7
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 6
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture6
Height = 5415
Left = 0
Picture = "系统图片库.frx":4ADA8
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 5
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture5
Height = 5415
Left = 0
Picture = "系统图片库.frx":61C83
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 4
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture4
Height = 5415
Left = 0
Picture = "系统图片库.frx":798BD
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 3
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture3
Height = 5415
Left = 0
Picture = "系统图片库.frx":8638D
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 2
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture2
Height = 5415
Left = 0
Picture = "系统图片库.frx":9EBC7
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 1
Top = 0
Width = 7575
End
Begin VB.PictureBox Picture1
Height = 5415
Left = 0
Picture = "系统图片库.frx":B350B
ScaleHeight = 5355
ScaleWidth = 7515
TabIndex = 0
Top = 0
Width = 7575
End
End
Attribute VB_Name = "系统图片库"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
End Sub
Private Sub Timer1_Timer()
If Mid(Time$, 8, 1) = 0 Then
Picture1.Visible = True
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 2 Then
Picture1.Visible = False
Picture2.Visible = True
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 4 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = True
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 6 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = True
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 8 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = True
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 1 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = True
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 3 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = True
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 5 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = True
Picture9.Visible = False
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 7 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = True
Picture10.Visible = False
ElseIf Mid(Time$, 8, 1) = 9 Then
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
Picture5.Visible = False
Picture6.Visible = False
Picture7.Visible = False
Picture8.Visible = False
Picture9.Visible = False
Picture10.Visible = True
End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -