📄 form1.frm
字号:
VERSION 5.00
Object = "{91715E1F-744F-40F6-8FF5-3995A672368B}#1.0#0"; "xpbutton.ocx"
Begin VB.Form Form1
Caption = "加佳XP按钮 2.36 图标字体版 ----加佳工作室：吴佳君 webird"
ClientHeight = 8340
ClientLeft = 3300
ClientTop = 1215
ClientWidth = 8250
LinkTopic = "演示"
MaxButton = 0 'False
ScaleHeight = 8340
ScaleWidth = 8250
Begin VB.Frame Frame1
Caption = "测试按钮区"
Height = 1335
Left = 0
TabIndex = 0
Top = 2160
Width = 3855
Begin XPcommand.command command1
Height = 975
Left = 240
TabIndex = 6
Top = 240
Width = 3495
_ExtentX = 6165
_ExtentY = 1720
蓝色框 = 0
虚线框 = 0
Caption = "加佳工作室 风格=0 天蓝色,图=32*32"
图 = 2
icon = "Form1.frx":0000
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
End
End
Begin XPcommand.command command6
Height = 495
Left = 7200
TabIndex = 18
Top = 2880
Width = 855
_ExtentX = 1508
_ExtentY = 873
蓝色框 = 0
虚线框 = 0
Caption = "Enabled = false"
Enabled = 0 'False
图 = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
ForeColor = 9609633
End
Begin VB.TextBox Text2
BackColor = &H8000000F&
BorderStyle = 0 'None
ForeColor = &H00FF0000&
Height = 1695
Left = 240
Locked = -1 'True
MultiLine = -1 'True
TabIndex = 4
Text = "Form1.frx":08DA
Top = 360
Width = 7815
End
Begin XPcommand.command commandq
Height = 615
Index = 0
Left = 720
TabIndex = 9
Top = 5640
Width = 2175
_ExtentX = 3836
_ExtentY = 1085
蓝色框 = 0
虚线框 = 0
Caption = "(&E)"
图 = 5
icon = "Form1.frx":0A70
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
End
Begin XPcommand.command command4
Height = 495
Left = 6120
TabIndex = 8
Top = 2160
Width = 1575
_ExtentX = 2778
_ExtentY = 873
蓝色框 = 0
虚线框 = 0
Caption = "风格=2 银色"
风格 = 2
图 = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
End
Begin XPcommand.command command3
Height = 495
Left = 4320
TabIndex = 7
Top = 2160
Width = 1575
_ExtentX = 2778
_ExtentY = 873
蓝色框 = 0
虚线框 = 0
Caption = "风格=1 橄榄绿"
风格 = 1
图 = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
ForeColor = 0
End
Begin VB.CommandButton Command2
Caption = "清除下框"
Height = 615
Left = 3840
TabIndex = 2
Top = 2760
Width = 3255
End
Begin VB.TextBox Text1
Height = 2055
Left = 0
Locked = -1 'True
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 1
Text = "Form1.frx":0F62
Top = 3480
Width = 8055
End
Begin XPcommand.command commandq
Height = 615
Index = 1
Left = 720
TabIndex = 11
Top = 6240
Width = 2175
_ExtentX = 3836
_ExtentY = 1085
蓝色框 = 0
虚线框 = 0
Caption = ""
图 = 4
icon = "Form1.frx":0FA0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
End
Begin XPcommand.command commandq
Height = 855
Index = 2
Left = 720
TabIndex = 12
Top = 6840
Width = 2175
_ExtentX = 3836
_ExtentY = 1508
蓝色框 = 0
虚线框 = 0
Caption = "这里是文字（楷体）上面为图标"
图 = 6
icon = "Form1.frx":1492
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "楷体_GB2312"
Size = 10.5
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "楷体_GB2312"
FontSize = 10.5
ForeColor = 255
End
Begin XPcommand.command commandq
Height = 615
Index = 3
Left = 720
TabIndex = 13
Top = 7680
Width = 2175
_ExtentX = 3836
_ExtentY = 1085
蓝色框 = 0
虚线框 = 0
Caption = "这是加佳工作室的按钮控件，怎样？"
图 = 0
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 9
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
FontName = "宋体"
FontSize = 9
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "没有图片，且“图”属性设置成“0 - ⊙0×0没有图标”，Caption属性是“这是加佳工作室的按钮控件，怎样？”"
Height = 360
Index = 3
Left = 2880
TabIndex = 17
Top = 7680
Width = 5220
WordWrap = -1 'True
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "加载了图片（icon属性），且“图”属性设置成0“6 - ⊙无大小限制图片位于字上面”，Caption属性是“这里是文字，上面为图标”"
Height = 540
Index = 2
Left = 2880
TabIndex = 16
Top = 6960
Width = 5220
WordWrap = -1 'True
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "加载了图片（icon属性），且“图”属性设置成“4 - ⊙图片平铺”，Caption属性为空"
Height = 360
Index = 1
Left = 2880
TabIndex = 15
Top = 6240
Width = 5175
WordWrap = -1 'True
End
Begin VB.Label Label4
AutoSize = -1 'True
BackColor = &H0000FFFF&
Caption = "加载了图片（icon属性），且“图”属性设置成“5 - ⊙无大小限制图片位于字前 ”，Caption属性是“(&E)”"
Height = 360
Index = 0
Left = 2880
TabIndex = 14
Top = 5640
Width = 5175
WordWrap = -1 'True
End
Begin VB.Label Label3
Caption = "例子："
Height = 255
Left = 120
TabIndex = 10
Top = 5640
Width = 975
End
Begin VB.Label Label2
Caption = "控件版本 V2.36 演示程序版本：2.2"
Height = 375
Left = 1680
TabIndex = 5
Top = 120
Width = 3615
End
Begin VB.Label Label1
Caption = "加佳XP按钮 NewVer 1.0"
BeginProperty Font
Name = "宋体"
Size = 10.5
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 360
TabIndex = 3
Top = 120
Width = 1215
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, ByVal szFileName As String, ByVal dwReserved As Long, ByVal lpfnCB As Long) As Long
Function DownloadFile(URL, LocalFilename As String) As Boolean
Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, URL, LocalFilename, 0, 0)
If lngRetVal = 0 Then DownloadFile = True
End Function
Private Sub command1_Click()
add1 "Click()"
End Sub
Private Sub command1_GotFocus()
add1 "GotFocus() ---取得焦点"
End Sub
Private Sub command1_KeyDown(KeyCode As Integer, Shift As Integer)
add1 "KeyDown(KeyCode=" & KeyCode & ",Shift=" & Shift & ")"
End Sub
Sub add1(text As String)
Text1.text = Text1.text & Chr(13) & Chr(10) & text
Text1.SelStart = Len(Text1.text)
End Sub
Private Sub command1_KeyPress(KeyAscii As Integer)
add1 "KeyPress(KeyAscii=" & KeyAscii & ")"
End Sub
Private Sub command1_KeyUp(KeyCode As Integer, Shift As Integer)
add1 "KeyUp(KeyUp=" & KeyCode & ",Shift=" & Shift & ")"
End Sub
Private Sub command1_LostFocus()
add1 "LostFocus() ---失去焦点 "
End Sub
Private Sub command1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
add1 "MouseDown(Button=" & Button & ",Shift=" & Shift & ",X=" & X & ",Y=" & Y & ") --鼠标按下"
End Sub
Private Sub command1_MouseGoOut()
add1 "MouseGoOut - 鼠标移出"
End Sub
Private Sub command1_mouseIsOver()
add1 "mouseIsOver - 鼠标进入"
End Sub
Private Sub command1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
add1 "MouseUp(Button=" & Button & ",Shift=" & Shift & ",X=" & X & ",Y=" & Y & ") --鼠标弹起"
End Sub
Private Sub Command2_Click()
Text1.text = "按钮事件："
End Sub
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -