📄 form1.frm
字号:
Height = 2625
Left = 45
TabIndex = 4
Top = 2265
Width = 10635
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 0
Left = 135
TabIndex = 5
Top = 1020
Width = 3015
_extentx = 5318
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 12582912
caption = "http://www.mndsoft.com"
font = "Form1.frx":F8E8
captioncolor = 12582912
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 2
Left = 9150
TabIndex = 6
Top = 990
Width = 735
_extentx = 1296
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 16744576
font = "Form1.frx":F90C
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 3
Left = 9150
TabIndex = 7
Top = 1980
Width = 735
_extentx = 1296
_extenty = 794
enabled = 0 'False
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 12583104
font = "Form1.frx":F934
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 5
Left = 135
TabIndex = 8
Top = 1515
Width = 3015
_extentx = 5318
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
caption = "测试标题(支持不同颜色)"
font = "Form1.frx":F95C
captioncolor = 16576
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 6
Left = 135
TabIndex = 9
Top = 510
Width = 2115
_extentx = 3731
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 8421376
caption = "当前状态: 开"
font = "Form1.frx":F980
captioncolor = 8421376
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 7
Left = 9150
TabIndex = 10
Top = 1455
Width = 735
_extentx = 1296
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 49152
font = "Form1.frx":F9A4
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 4
Left = 135
TabIndex = 11
Top = 2025
Width = 3015
_extentx = 5318
_extenty = 794
enabled = 0 'False
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 33023
caption = "显示一个简单的测试(&J)"
font = "Form1.frx":F9CC
captioncolor = 33023
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 1
Left = 9150
TabIndex = 12
Top = 495
Width = 735
_extentx = 1296
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 8388736
font = "Form1.frx":F9F0
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 8
Left = 4485
TabIndex = 32
Top = 1020
Width = 3105
_extentx = 5477
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 32896
caption = "http://www.mndsoft.com "
font = "Form1.frx":FA1C
captioncolor = 16448
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 9
Left = 4485
TabIndex = 33
Top = 1515
Width = 3015
_extentx = 5318
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 128
caption = "测试标题(支持不同颜色)"
font = "Form1.frx":FA40
captioncolor = 192
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 10
Left = 4485
TabIndex = 34
Top = 510
Width = 3015
_extentx = 5318
_extenty = 794
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 0
caption = "大家好，欢迎光临枕善居"
font = "Form1.frx":FA64
captioncolor = 33023
End
Begin MM_Adv_CheckBox.mm_checkbox mm_checkbox3
Height = 450
Index = 11
Left = 4485
TabIndex = 35
Top = 2025
Width = 3015
_extentx = 5318
_extenty = 794
enabled = 0 'False
checked = -1 'True
small = 0 'False
roundedvalue = 30
activecolor = 33023
caption = "显示一个简单的测试(&J)"
font = "Form1.frx":FA88
captioncolor = 33023
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00808080&
Caption = " 使用标题"
ForeColor = &H00C0FFFF&
Height = 240
Index = 1
Left = 30
TabIndex = 15
Top = 165
Width = 8775
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 0
X1 = 8835
X2 = 8835
Y1 = 180
Y2 = 2550
End
Begin VB.Label Label1
Alignment = 2 'Center
BackColor = &H00808080&
Caption = " 不使用标题"
ForeColor = &H00C0FFFF&
Height = 240
Index = 0
Left = 8760
TabIndex = 14
Top = 165
Width = 1815
End
End
Begin VB.Line Line1
BorderColor = &H00808080&
Index = 1
X1 = 3420
X2 = 3420
Y1 = 5145
Y2 = 5760
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2009/04/18
'描 述：彩色图形复选框(CheckBox2009) (v3)
'网 站：http://www.Mndsoft.com/ (VB6源码博客)
'网 站：http://www.VbDnet.com/ (VB.NET源码博客,主要基于.NET2005)
'e-mail ：Mndsoft@163.com
'e-mail ：Mndsoft@126.com
'OICQ ：88382850
' 如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'
Private Sub Check1_Click()
On Error Resume Next
For i = 0 To 20
Me.mm_checkbox2(i).Checked = Check1.Value
Next i
End Sub
Private Sub Check3_Click()
On Error Resume Next
For i = 0 To 20
Me.mm_checkbox2(i).Enabled = IIf(Check3.Value = 1, False, True)
Next i
End Sub
Private Sub Command1_Click()
MsgBox "当前开关状态 : " & mm_checkbox1.Checked, vbInformation, "提示"
End Sub
Private Sub Command2_Click()
'On Error Resume Next
mm_checkbox3(0).Checked = Not mm_checkbox3(0).Checked
For i = 1 To 11
mm_checkbox3(i).Checked = mm_checkbox3(0).Checked = True ' False 'Not mm_checkbox3(i).Checked
Next i
End Sub
Private Sub Command3_Click()
'On Error Resume Next
mm_checkbox3(0).Enabled = Not mm_checkbox3(0).Enabled
For i = 1 To 11
mm_checkbox3(i).Enabled = mm_checkbox3(0).Enabled
Next i
End Sub
Private Sub Command4_Click()
Frame1.BackColor = vbWhite
'On Error Resume Next
For i = 0 To 11 '20 '7
mm_checkbox3(i).RoundedValue = 23
Next i
End Sub
Private Sub Command5_Click()
Frame1.BackColor = &HFFDBBF
'On Error Resume Next
For i = 0 To 11 '20 '7
mm_checkbox3(i).RoundedValue = 27
Next i
End Sub
Private Sub Form_Load()
On Error Resume Next
For i = 0 To 20
Me.mm_checkbox2(i).desActivecolor = &H808080 'RGB(r, g, b)
Next i
For i = 0 To 9
Me.mm_checkbox3(i).RoundedValue = 31
Next i
End Sub
Private Sub HScroll1_Change()
HScroll1_Scroll
End Sub
Private Sub mm_checkbox3_Click(Index As Integer)
'If Index = 6 Then
mm_checkbox3(Index).Caption = "当前状态: " & IIf(mm_checkbox3(Index).Checked = True, "开", "关")
'End If
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -