📄 form1.frm
字号:
ColorButtonHover= 8384
ColorButtonUp = 160
ColorButtonDown = 4272
BorderBrightness= 0
ColorBright = 5292287
DisplayHand = 0 'False
ColorScheme = 0
End
Begin Proyecto1.CandyButton CandyButton20
Height = 450
Index = 1
Left = 1920
TabIndex = 36
Top = 1200
Width = 2235
_ExtentX = 3942
_ExtentY = 794
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "水晶中按钮"
Style = 4
Checked = 0 'False
ColorButtonHover= 9467680
ColorButtonUp = 8414992
ColorButtonDown = 8406784
BorderBrightness= 0
ColorBright = 16772528
DisplayHand = 0 'False
ColorScheme = 0
End
Begin Proyecto1.CandyButton CandyButton7
Height = 360
Left = 6720
TabIndex = 38
Top = 1560
Width = 2055
_ExtentX = 3625
_ExtentY = 635
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 9.75
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "水晶按钮"
Style = 3
Checked = 0 'False
ColorButtonHover= 15309136
ColorButtonUp = 13657888
ColorButtonDown = 10512144
BorderBrightness= 0
ColorBright = 16772528
DisplayHand = 0 'False
ColorScheme = 1
End
Begin Proyecto1.CandyButton CandyButton20
Height = 450
Index = 3
Left = 1920
TabIndex = 39
Top = 2400
Width = 2235
_ExtentX = 3942
_ExtentY = 794
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = "水晶中按钮"
Style = 4
Checked = 0 'False
ColorButtonHover= 40960
ColorButtonUp = 32768
ColorButtonDown = 49152
BorderBrightness= 0
ColorBright = 65280
DisplayHand = 0 'False
ColorScheme = 5
End
Begin Proyecto1.CandyButton CandyButton15
Height = 600
Left = 5880
TabIndex = 40
Top = 3960
Width = 2880
_ExtentX = 5080
_ExtentY = 1058
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = " 枕善居"
ForeColor = 65535
Picture = "Form1.frx":1736E
PictureAlignment= 2
Style = 2
Checked = 0 'False
ColorButtonHover= 192
ColorButtonUp = 128
ColorButtonDown = 255
BorderBrightness= 0
ColorBright = 255
DisplayHand = 0 'False
ColorScheme = 0
End
Begin Proyecto1.CandyButton CandyButton12
Height = 600
Left = 5880
TabIndex = 41
Top = 3360
Width = 2880
_ExtentX = 5080
_ExtentY = 1058
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = " 枕善居"
ForeColor = 255
Picture = "Form1.frx":178C7
PictureAlignment= 3
Style = 2
Checked = 0 'False
ColorButtonHover= 49152
ColorButtonUp = 32768
ColorButtonDown = 65280
BorderBrightness= 0
ColorBright = 65280
DisplayHand = 0 'False
ColorScheme = 0
End
Begin Proyecto1.CandyButton CandyButton13
Height = 600
Left = 5880
TabIndex = 42
Top = 2760
Width = 2880
_ExtentX = 5080
_ExtentY = 1058
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Tahoma"
Size = 9
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = " 枕善居"
ForeColor = 16711680
Picture = "Form1.frx":17A79
PictureAlignment= 2
Style = 2
Checked = 0 'False
ColorButtonHover= 49344
ColorButtonUp = 32896
ColorButtonDown = 65535
BorderBrightness= 0
ColorBright = 65535
DisplayHand = 0 'False
ColorScheme = 0
End
Begin Proyecto1.CandyButton CandyButton2
Height = 300
Left = 120
TabIndex = 27
Top = 5640
Width = 8760
_ExtentX = 15452
_ExtentY = 529
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Arial"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Caption = ""
Style = 4
Checked = 0 'False
ColorButtonHover= 15309136
ColorButtonUp = 13657888
ColorButtonDown = 10512144
BorderBrightness= 0
ColorBright = 16772528
DisplayHand = 0 'False
ColorScheme = 0
End
Begin VB.Line Line2
BorderColor = &H80000014&
Index = 2
X1 = 335
X2 = 335
Y1 = 72
Y2 = 97
End
Begin VB.Label Label2
BackStyle = 0 'Transparent
Caption = "XP 工具栏风格："
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 5160
TabIndex = 8
Top = 720
Width = 2055
End
Begin VB.Line Line2
BorderColor = &H80000010&
Index = 3
X1 = 596
X2 = 596
Y1 = 72
Y2 = 97
End
Begin VB.Line Line2
BorderColor = &H80000009&
Index = 1
X1 = 417
X2 = 417
Y1 = 73
Y2 = 96
End
Begin VB.Line Line1
BorderColor = &H80000010&
Index = 0
X1 = 336
X2 = 596
Y1 = 97
Y2 = 97
End
Begin VB.Line Line2
BorderColor = &H80000010&
Index = 0
X1 = 416
X2 = 416
Y1 = 73
Y2 = 96
End
Begin VB.Line Line1
BorderColor = &H80000014&
Index = 1
X1 = 336
X2 = 596
Y1 = 71
Y2 = 71
End
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "5 种不同的样式 -->"
BeginProperty Font
Name = "MS Sans Serif"
Size = 9.75
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H80000008&
Height = 255
Left = 6360
TabIndex = 2
Top = 120
Width = 1815
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CandyButton1_Click(Index As Integer)
If Index < 3 Then
CandyButton1(Index).Checked = Not CandyButton1(Index).Checked
For i = 0 To 2
If i <> Index Then CandyButton1(i).Checked = False
Next
End If
End Sub
Private Sub CandyButton1_DblClick(Index As Integer)
If Index < 3 Then
CandyButton1(Index).Checked = Not CandyButton1(Index).Checked
For i = 0 To 2
If i <> Index Then CandyButton1(i).Checked = False
Next
End If
End Sub
Private Sub CandyButton5_Click()
txtEvents = ""
End Sub
Private Sub CandyButton6_Click()
CandyButton6.Checked = Not CandyButton6.Checked
End Sub
Private Sub CandyButton6_DblClick()
CandyButton6.Checked = Not CandyButton6.Checked
End Sub
Private Sub CandyButton8_Click(Index As Integer)
CandyButton8(Index).Checked = Not CandyButton8(Index).Checked
End Sub
Private Sub CandyButton4_Click()
txtEvents = txtEvents & "CandyButton4_Click" & vbCrLf
End Sub
Private Sub CandyButton4_DblClick()
txtEvents = txtEvents & "CandyButton4_DblClick" & vbCrLf
End Sub
Private Sub CandyButton4_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
txtEvents = txtEvents & "CandyButton4_MouseDown" & vbCrLf
End Sub
Private Sub CandyButton4_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
txtEvents = txtEvents & "CandyButton4_MouseUp" & vbCrLf
End Sub
Private Sub CandyButton4_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
lblX = x
lblY = y
End Sub
Private Sub CandyButton4_MouseEnter()
lblMouseEnter.BackColor = vbGreen
lblMouseLeave.BackColor = vbWhite
End Sub
Private Sub CandyButton4_MouseLeave()
lblMouseEnter.BackColor = vbWhite
lblMouseLeave.BackColor = vbGreen
lblX = "0"
lblY = "0"
End Sub
Private Sub Command1_Click()
txtEvents = txtEvents & "Command1_Click" & vbCrLf
End Sub
Private Sub Command1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
txtEvents = txtEvents & "Command1_MouseDown" & vbCrLf
End Sub
Private Sub Command1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
txtEvents = txtEvents & "Command1_MouseUp" & vbCrLf
End Sub
Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
lblMouseEnter.BackColor = vbButtonFace
lblMouseLeave.BackColor = vbButtonFace
lblX = x
lblY = y
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -