?? main.frm
字號:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{0D452EE1-E08F-101A-852E-02608C4D0BB4}#2.0#0"; "FM20.DLL"
Begin VB.Form Frmmain
AutoRedraw = -1 'True
BorderStyle = 1 'Fixed Single
Caption = "給窗體換膚"
ClientHeight = 3015
ClientLeft = 5880
ClientTop = 4470
ClientWidth = 4290
ClipControls = 0 'False
ControlBox = 0 'False
BeginProperty Font
Name = "宋體"
Size = 12
Charset = 134
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "main.frx":0000
KeyPreview = -1 'True
MaxButton = 0 'False
MinButton = 0 'False
NegotiateMenus = 0 'False
OLEDropMode = 1 'Manual
ScaleHeight = 201
ScaleMode = 3 'Pixel
ScaleWidth = 286
Begin MSComDlg.CommonDialog Cdl1
Left = 3720
Top = 2520
_ExtentX = 847
_ExtentY = 847
_Version = 393216
Filter = "(所有圖片文件)|*.bmp;*.gif;*.jpg|*.bmp|*.bmp|*.gif|*.gif|*.jpg|*.jpg"
End
Begin MSForms.TextBox TextBox1
Height = 2055
Left = 120
TabIndex = 3
Top = 360
Width = 3855
VariousPropertyBits= -1400879085
ForeColor = 0
Size = "6800;3625"
Value = $"main.frx":08CA
FontName = "宋體"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.Label Label1
Height = 255
Left = 120
TabIndex = 2
Top = 0
Width = 4095
VariousPropertyBits= 8388627
Caption = "一個可以換膚的窗體"
Size = "7223;450"
FontName = "宋體"
FontHeight = 240
FontCharSet = 134
FontPitchAndFamily= 34
End
Begin MSForms.CommandButton CmdExit
Height = 375
Left = 2160
TabIndex = 1
Top = 2520
Width = 1575
ForeColor = 192
VariousPropertyBits= 19
Caption = "退出程序"
Size = "2778;661"
FontName = "宋體"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
Begin MSForms.CommandButton CmdSel
Height = 375
Left = 360
TabIndex = 0
Top = 2520
Width = 1455
ForeColor = 192
VariousPropertyBits= 19
Caption = "選擇背景圖片"
Size = "2566;661"
FontName = "宋體"
FontHeight = 210
FontCharSet = 134
FontPitchAndFamily= 34
ParagraphAlign = 3
End
End
Attribute VB_Name = "Frmmain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub CmdExit_Click()
Unload Me
End Sub
'也可點擊“選擇背景圖片”按鈕,在程序運行過程中更換背景圖片
Private Sub CmdSel_Click()
'打開選擇文件對話框
Cdl1.ShowOpen
'選中的圖片文件的路徑賦值給BackPicture變量(全局變量,在模塊中定義)
BackPicture = Cdl1.FileName
'換膚
ShowBackGround Frmmain
End Sub
'窗體加載時自動從應用程序所在的目錄下尋找default.bmp文件,并把它設置為窗體背景
'我們可以用其它圖片替換此文件以為應用程序換上不同的皮膚
Private Sub Form_Load()
'取得背景圖片的完整路徑
BackPicture = App.Path + "\default.JPG"
'ShowBackGround子過程(在模塊中定義),為窗體設置背景
ShowBackGround Frmmain
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -