?? form1.frm
字號(hào):
VERSION 5.00
Object = "{91715E1F-744F-40F6-8FF5-3995A672368B}#1.0#0"; "xpbutton.ocx"
Begin VB.Form Form1
Caption = "加佳XP按鈕 2.36 圖標(biāo)字體版 ----加佳工作室：吳佳君 webird"
ClientHeight = 8340
ClientLeft = 3300
ClientTop = 1215
ClientWidth = 8250
LinkTopic = "演示"
MaxButton = 0 'False
ScaleHeight = 8340
ScaleWidth = 8250
Begin VB.Frame Frame1
Caption = "測(cè)試按鈕區(qū)"
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
藍(lán)色框 = 0
虛線框 = 0
Caption = "加佳工作室 風(fēng)格=0 天藍(lán)色,圖=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
藍(lán)色框 = 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
藍(lán)色框 = 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
藍(lán)色框 = 0
虛線框 = 0
Caption = "風(fēng)格=2 銀色"
風(fēng)格 = 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
藍(lán)色框 = 0
虛線框 = 0
Caption = "風(fēng)格=1 橄欖綠"
風(fēng)格 = 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
藍(lán)色框 = 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
藍(lán)色框 = 0
虛線框 = 0
Caption = "這里是文字（楷體）上面為圖標(biāo)"
圖 = 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
藍(lán)色框 = 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 = "沒有圖片，且“圖”屬性設(shè)置成“0 - ⊙0×0沒有圖標(biāo)”，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屬性），且“圖”屬性設(shè)置成0“6 - ⊙無大小限制圖片位于字上面”，Caption屬性是“這里是文字，上面為圖標(biāo)”"
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屬性），且“圖”屬性設(shè)置成“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屬性），且“圖”屬性設(shè)置成“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() ---取得焦點(diǎn)"
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() ---失去焦點(diǎn) "
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 & ") --鼠標(biāo)按下"
End Sub
Private Sub command1_MouseGoOut()
add1 "MouseGoOut - 鼠標(biāo)移出"
End Sub
Private Sub command1_mouseIsOver()
add1 "mouseIsOver - 鼠標(biāo)進(jìn)入"
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 & ") --鼠標(biāo)彈起"
End Sub
Private Sub Command2_Click()
Text1.text = "按鈕事件："
End Sub
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -