📄 frmbuttoncolor.frm
字号:
ToolTipText = "Wind Chill"
Top = 1260
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 0
Left = 120
Picture = "frmButtonColor.frx":2AC9
ToolTipText = "Olive Fossils"
Top = 300
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 1
Left = 600
Picture = "frmButtonColor.frx":2F38
ToolTipText = "Abnormal Fluid"
Top = 300
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 2
Left = 1080
Picture = "frmButtonColor.frx":348C
ToolTipText = "Abstract Clay"
Top = 300
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 3
Left = 1560
Picture = "frmButtonColor.frx":39FA
ToolTipText = "Big Bang"
Top = 300
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 4
Left = 120
Picture = "frmButtonColor.frx":3F7F
ToolTipText = "Melting Glass"
Top = 1740
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 5
Left = 600
Picture = "frmButtonColor.frx":44C7
ToolTipText = "Vapor Ripple"
Top = 1740
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 6
Left = 1080
Picture = "frmButtonColor.frx":4936
ToolTipText = "Sloppy Origami"
Top = 1740
Width = 375
End
Begin VB.Image Image1
Height = 390
Index = 7
Left = 1560
Picture = "frmButtonColor.frx":4F05
ToolTipText = "Chipped Obsidian"
Top = 1740
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 8
Left = 2520
Picture = "frmButtonColor.frx":5309
ToolTipText = "Cloth Bubbles"
Top = 1740
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 9
Left = 2520
Picture = "frmButtonColor.frx":583D
ToolTipText = "Digital Terrain"
Top = 1260
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 10
Left = 2520
Picture = "frmButtonColor.frx":5C8F
ToolTipText = "Lunar Terrain"
Top = 780
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 11
Left = 2520
Picture = "frmButtonColor.frx":61BB
ToolTipText = "Rubber Cds"
Top = 300
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 12
Left = 1560
Picture = "frmButtonColor.frx":67C1
ToolTipText = "Undulating Abstraction"
Top = 780
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 13
Left = 1080
Picture = "frmButtonColor.frx":6CA4
ToolTipText = "Lavalamp Riot"
Top = 780
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 14
Left = 600
Picture = "frmButtonColor.frx":727A
ToolTipText = "Chemical Frenzy"
Top = 780
Width = 375
End
Begin VB.Image Image1
Height = 375
Index = 15
Left = 120
Picture = "frmButtonColor.frx":77D4
ToolTipText = "Alien Cells"
Top = 780
Width = 375
End
Begin VB.Label Label1
AutoSize = -1 'True
Caption = "选定效果"
ForeColor = &H00825C1E&
Height = 180
Left = 120
TabIndex = 7
Top = 2640
Width = 720
End
Begin VB.Image CBitmap
Height = 375
Left = 960
Top = 2520
Width = 375
End
Begin VB.Label ImageName
AutoSize = -1 'True
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00825C1E&
Height = 195
Left = 120
TabIndex = 6
Top = 2280
Width = 45
End
Begin VB.Shape ShapeMove
BackColor = &H00FBD1C4&
BackStyle = 1 'Opaque
BorderColor = &H00FF0000&
Height = 465
Left = 1560
Top = 240
Visible = 0 'False
Width = 465
End
Begin VB.Shape ShapeSelected
BackColor = &H00C0FFC0&
BackStyle = 1 'Opaque
BorderColor = &H0020A222&
Height = 465
Left = 1560
Top = 240
Width = 465
End
End
Begin VB.ComboBox cboButtonStyle
Height = 300
ItemData = "frmButtonColor.frx":7DCD
Left = 5280
List = "frmButtonColor.frx":7E01
Style = 2 'Dropdown List
TabIndex = 1
Top = 3600
Width = 2055
End
Begin VB.Label lblToolName
Caption = "按钮风格"
Height = 255
Left = 4440
TabIndex = 2
Top = 3600
Width = 735
End
End
Begin MSComDlg.CommonDialog cd
Left = 120
Top = 4800
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin Button_Modules.ButtonModule btmZQ
Left = 0
Top = 0
_ExtentX = 2117
_ExtentY = 1085
FocusColor = 16777088
OverColor = 0
DownColor = 16744576
PatternBitmap = "frmButtonColor.frx":7EFC
ButtonHighLight = -1 'True
PatternBitmapNumber= 10
End
End
Attribute VB_Name = "frmButtonColor"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'Option Explicit
'
'Option Explicit
'
'Private Flag As Boolean
'Private Number As Long
'
'
'Private Sub Frame1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Flag = True Then
' Flag = False
' ShapeColors.Visible = False
' End If
'End Sub
'
'Private Sub Frame2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Flag = True Then
' Flag = False
' ShapeColors2.Visible = False
' End If
'End Sub
'
'Private Sub Frame3_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Flag = True Then
' Flag = False
' ShapeMove.Visible = False
' ImageName.Caption = vbNullString
' End If
'End Sub
'
'Private Sub Image1_Click(Index As Integer)
'
' Number = Index
' ShapeSelected.Top = Image1(Index).Top - 50
' ShapeSelected.Left = Image1(Index).Left - 50.5
' Changed = True
'
'End Sub
'
'Private Sub Image1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
'
' If Flag = False Then
' Flag = True
' ShapeMove.Visible = True
' ShapeMove.Top = Image1(Index).Top - 50
' ShapeMove.Left = Image1(Index).Left - 50.5
' ImageName.Caption = "当前:" & Image1(Index).ToolTipText
' End If
'
'End Sub
'
'Private Sub Picture1_Click(Index As Integer)
' cd.ShowColor
' Picture1(Index).BackColor = cd.Color
' Changed = True
'End Sub
'
'Private Sub Picture1_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Flag = False Then
' Flag = True
' ShapeColors.Visible = True
' ShapeColors.Top = Picture1(Index).Top - 50
' ShapeColors.Left = Picture1(Index).Left - 50.5
' End If
'End Sub
'
'Private Sub Picture2_Click(Index As Integer)
' cd.ShowColor
' Picture2(Index).BackColor = cd.Color
' Changed = True
'End Sub
'
'Private Sub Picture2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
' If Flag = False Then
' Flag = True
' ShapeColors2.Visible = True
' ShapeColors2.Top = Picture2(Index).Top - 50
' ShapeColors2.Left = Picture2(Index).Left - 50.5
' End If
'End Sub
'
'Private Sub Option1_Click()
'Changed = True
'End Sub
'
'Private Sub Option2_Click()
'Changed = True
'End Sub
'
'Private Sub Check1_Click()
'Changed = True
'End Sub
'
'Private Sub ApplyChanges()
'
' With SelectedControls(0)
' .PatternBitmapNumber = Number
' .PatternBitmap = Image1(Number).Picture
' .GradientDirection = IIf(Option1.Value = True, 0, 1)
' .ButtonHighLight = IIf(Check1.Value = 1, True, False)
' .StartGColor = Picture1(0).BackColor
' .EndGColor = Picture1(1).BackColor
' .OverColor = Picture2(0).BackColor
' .DownColor = Picture2(1).BackColor
' .FocusColor = Picture2(2).BackColor
' End With
'
' Changed = False
'
'End Sub
'
'Private Sub Changed()
'
' With SelectedControls(0)
' Number = .PatternBitmapNumber
' CBitmap.Picture = Image1(Number).Picture
' CBitmap.ToolTipText = Image1(Number).ToolTipText
' ShapeSelected.Top = Image1(Number).Top - 50
' ShapeSelected.Left = Image1(Number).Left - 50.5
' Option1.Value = IIf(.GradientDirection = 0, True, False)
' Picture1(0).BackColor = .StartGColor
' Picture1(1).BackColor = .EndGColor
' Check1.Value = IIf(.ButtonHighLight = True, 1, 0)
' Picture2(0).BackColor = .OverColor
' Picture2(1).BackColor = .DownColor
' Picture2(2).BackColor = .FocusColor
' End With
'
'End Sub
'
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -