📄 form1.frm
字号:
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Appearance = 1
End
Begin CSCommand.Command Command7
Height = 495
Left = 120
TabIndex = 47
Top = 3000
Width = 1575
_ExtentX = 2778
_ExtentY = 873
ICOMaskColor = 0
PICMaskColor = 16777215
Icon = "Form1.frx":A306
Caption = "Command"
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Appearance = 1
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"Form1.frx":AE20
Height = 615
Index = 15
Left = 120
TabIndex = 46
Top = 2160
Width = 4335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = $"Form1.frx":AEAE
Height = 1215
Index = 10
Left = 120
TabIndex = 45
Top = 360
Width = 4335
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "可用真彩图标"
BeginProperty Font
Name = "宋体"
Size = 9
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00D30000&
Height = 255
Index = 9
Left = 120
TabIndex = 44
Top = 120
Width = 1935
End
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 欢迎"
Height = 180
Index = 7
Left = 0
MouseIcon = "Form1.frx":AFC0
MousePointer = 99 'Custom
TabIndex = 18
Top = 1200
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 后记"
ForeColor = &H00000000&
Height = 180
Index = 6
Left = 0
MouseIcon = "Form1.frx":B2CA
MousePointer = 99 'Custom
TabIndex = 13
Top = 3720
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 完美支持键盘"
ForeColor = &H00000000&
Height = 180
Index = 5
Left = 0
MouseIcon = "Form1.frx":B5D4
MousePointer = 99 'Custom
TabIndex = 12
Top = 3360
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 完美支持鼠标"
ForeColor = &H00000000&
Height = 180
Index = 4
Left = 0
MouseIcon = "Form1.frx":B8DE
MousePointer = 99 'Custom
TabIndex = 11
Top = 3000
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 焦点框"
ForeColor = &H00000000&
Height = 180
Index = 3
Left = 0
MouseIcon = "Form1.frx":BBE8
MousePointer = 99 'Custom
TabIndex = 10
Top = 2640
Width = 1455
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 可用真彩图标"
ForeColor = &H00000000&
Height = 180
Index = 2
Left = 0
MouseIcon = "Form1.frx":BEF2
MousePointer = 99 'Custom
TabIndex = 9
Top = 2280
Width = 1935
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 支持外观DIY"
ForeColor = &H00000000&
Height = 180
Index = 1
Left = 0
MouseIcon = "Form1.frx":C1FC
MousePointer = 99 'Custom
TabIndex = 8
Top = 1920
Width = 1455
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "随想控件家族成员 随想命令按钮控件 V2.0.0120 FOR VB6/VB.NET/VC#.NET"
ForeColor = &H00FFFFFF&
Height = 255
Index = 17
Left = 30
TabIndex = 6
Top = 855
Width = 6015
End
Begin VB.Image Image1
Height = 1095
Left = 0
Picture = "Form1.frx":C506
Top = 0
Width = 6000
End
Begin VB.Label Label1
BackColor = &H80000009&
BackStyle = 0 'Transparent
Caption = " 产品概述"
Height = 180
Index = 0
Left = 0
MouseIcon = "Form1.frx":ED66
MousePointer = 99 'Custom
TabIndex = 3
Top = 1560
Width = 1455
End
Begin VB.Label Label2
BackColor = &H00FFFFFF&
ForeColor = &H00000000&
Height = 400
Left = 0
TabIndex = 4
Top = 1080
Width = 1695
End
Begin VB.Image Image2
Height = 5700
Left = 0
Picture = "Form1.frx":F070
Top = -240
Width = 1500
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim APPPATH As String
Const N = 7
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Sub Check1_Click()
If Check1.Value = 1 Then Command2.Picture = LoadPicture(APPPATH + "001.bmp"): Command2.PR = 5
If Check1.Value = 0 Then Set Command2.Picture = Nothing: Command2.PR = 3
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then Command3.PICMaskColor = RGB(228, 227, 230): Command3.BackStyle = Transparent
If Check2.Value = 0 Then Command3.BackStyle = Opaque
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then Command4.Appearance = Solid
If Check3.Value = 0 Then Command4.Appearance = Flat
End Sub
Private Sub Check4_Click()
Command5.Enabled = Not (Command5.Enabled)
Command6.Enabled = Not (Command6.Enabled)
End Sub
Private Sub Check5_Click()
If Check5.Value = 1 Then Command7.ICOMaskColor = RGB(255, 255, 255)
If Check5.Value = 0 Then Command7.ICOMaskColor = RGB(0, 0, 0)
End Sub
Private Sub Check6_Click()
If Check6.Value = 1 Then Command8.ShowFocus = False
If Check6.Value = 0 Then Command8.ShowFocus = True
End Sub
Private Sub Command10_Click()
Dim i As Integer
i = 0
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_GotFocus()
Dim i As Integer
i = 5
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_LostFocus()
Dim i As Integer
i = 6
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
i = 2
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
i = 3
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_MouseOut()
Dim i As Integer
i = 4
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command10_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
i = 1
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_Click()
Dim i As Integer
i = 12
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_GotFocus()
Dim i As Integer
i = 8
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = 10
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_KeyPress(KeyAscii As Integer)
Dim i As Integer
i = 9
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = 11
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command11_LostFocus()
Dim i As Integer
i = 7
LabelEB(i).Caption = LabelEB(i).Caption + 1
End Sub
Private Sub Command12_Click()
Dim i As Integer
i = 12
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command12_GotFocus()
Dim i As Integer
i = 8
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command12_KeyDown(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = 10
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command12_KeyPress(KeyAscii As Integer)
Dim i As Integer
i = 9
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command12_KeyUp(KeyCode As Integer, Shift As Integer)
Dim i As Integer
i = 11
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command12_LostFocus()
Dim i As Integer
i = 7
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_Click()
Dim i As Integer
i = 0
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_GotFocus()
Dim i As Integer
i = 5
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_LostFocus()
Dim i As Integer
i = 6
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
i = 2
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
i = 3
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_MouseOut()
Dim i As Integer
i = 4
LabelEA(i).Caption = LabelEA(i).Caption + 1
End Sub
Private Sub Command9_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Dim i As Integer
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -