📄 frmicon.frm
字号:
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 22
Top = 2040
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 16
Left = 960
Picture = "frmIcon.frx":DE80
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 21
Top = 2040
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 17
Left = 1680
Picture = "frmIcon.frx":ED52
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 20
Top = 2040
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 18
Left = 2400
Picture = "frmIcon.frx":FC24
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 19
Top = 2040
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 14
Left = 3120
Picture = "frmIcon.frx":10AF6
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 18
Top = 1440
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 10
Left = 240
Picture = "frmIcon.frx":119C8
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 17
Top = 1440
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 11
Left = 960
Picture = "frmIcon.frx":1289A
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 16
Top = 1440
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 12
Left = 1680
Picture = "frmIcon.frx":1376C
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 15
Top = 1440
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 13
Left = 2400
Picture = "frmIcon.frx":1463E
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 14
Top = 1440
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 9
Left = 3120
Picture = "frmIcon.frx":15510
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 13
Top = 840
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 5
Left = 240
Picture = "frmIcon.frx":163E2
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 12
Top = 840
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 6
Left = 960
Picture = "frmIcon.frx":172B4
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 11
Top = 840
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 7
Left = 1680
Picture = "frmIcon.frx":18186
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 10
Top = 840
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 8
Left = 2400
Picture = "frmIcon.frx":19058
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 9
Top = 840
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 4
Left = 3120
Picture = "frmIcon.frx":19F2A
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 8
Top = 240
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 3
Left = 2400
Picture = "frmIcon.frx":1ADFC
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 4
Top = 240
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 2
Left = 1680
Picture = "frmIcon.frx":1BCCE
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 3
Top = 240
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 1
Left = 960
Picture = "frmIcon.frx":1CBA0
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 2
Top = 240
Width = 630
End
Begin VB.PictureBox Picture1
AutoSize = -1 'True
BackColor = &H80000005&
Height = 510
Index = 0
Left = 240
Picture = "frmIcon.frx":1DA72
ScaleHeight = 450
ScaleWidth = 570
TabIndex = 1
Top = 240
Width = 630
End
End
End
Attribute VB_Name = "frmIcon"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public intIndex As Integer
Dim intFrame As Integer
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdDown_Click()
Dim i As Integer
intFrame = intFrame + 1
If intFrame >= 2 Then
intFrame = 1 'frame的总数
Exit Sub
End If
For i = 0 To intFrame
Frame1(i).Visible = False
Next i
Frame1(intFrame).Visible = True
txtGroup.Text = "第" & CStr(intFrame) & "组"
End Sub
Private Sub cmdUp_Click()
Dim i As Integer
intFrame = intFrame - 1
If intFrame < 0 Then
intFrame = 0
Exit Sub
End If
For i = 0 To 1
Frame1(i).Visible = False
Next i
Frame1(intFrame).Visible = True
txtGroup.Text = "第" & CStr(intFrame) & "组"
End Sub
Private Sub Form_Load()
intFrame = 0
Frame1(0).Visible = True
Frame1(1).Visible = False
txtGroup.Text = "第" & CStr(intFrame) & "组"
End Sub
Private Sub Picture1_Click(Index As Integer)
With Picture1(Index)
Set frmBar.Picture1(intIndex) = Picture1(Index)
End With
Unload Me
End Sub
Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim ctl As Control
Dim sCtlType As String
For Each ctl In Controls
sCtlType = TypeName(ctl)
If sCtlType = "PictureBox" Then
ctl.BackColor = &H80000005
End If
Next
With Picture1(Index)
.BackColor = &HC0FFC0
End With
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -