?? form1.frm
字號:
VERSION 5.00
Begin VB.Form Form1
Caption = "菜單圖標"
ClientHeight = 3195
ClientLeft = 165
ClientTop = 735
ClientWidth = 4680
LinkTopic = "Form1"
ScaleHeight = 3195
ScaleWidth = 4680
StartUpPosition = 3 '窗口缺省
Begin VB.PictureBox Picture4
Height = 495
Left = 2400
ScaleHeight = 435
ScaleWidth = 315
TabIndex = 3
Top = 480
Width = 375
End
Begin VB.PictureBox Picture3
Height = 495
Left = 1800
ScaleHeight = 435
ScaleWidth = 315
TabIndex = 2
Top = 480
Width = 375
End
Begin VB.PictureBox Picture2
Height = 495
Left = 1200
ScaleHeight = 435
ScaleWidth = 315
TabIndex = 1
Top = 480
Width = 375
End
Begin VB.PictureBox Picture1
Height = 495
Left = 3000
ScaleHeight = 435
ScaleWidth = 315
TabIndex = 0
Top = 480
Width = 375
End
Begin VB.Menu File
Caption = "文件"
Index = 0
Begin VB.Menu New
Caption = "新建"
Index = 0
End
Begin VB.Menu Open
Caption = "打開"
Index = 1
Shortcut = ^O
End
Begin VB.Menu Save
Caption = "保存"
Index = 2
Shortcut = ^S
End
Begin VB.Menu Print
Caption = "打印"
Index = 3
Shortcut = ^P
End
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Click()
End Sub
Private Sub Form_Load()
Picture1.Visible = False
Picture2.Visible = False
Picture3.Visible = False
Picture4.Visible = False
'隱藏各Picture Box控件
Picture1.AutoSize = True
Picture2.AutoSize = True
Picture3.AutoSize = True
Picture4.AutoSize = True
'使各Picture Box控件能夠根據圖片自動改變大小
hMenu& = GetMenu(Form1.hwnd)
'得到窗口中菜單的句柄
hSubMenu& = GetSubMenu(hMenu&, 0)
'得到第一個子菜單File的句柄
hID& = GetMenuItemID(hSubMenu&, 0)
Picture1.Picture = LoadPicture(App.Path + "\New.bmp")
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture1.Picture, Picture1.Picture
'得到File菜單中的第一個菜單項的ID
'然后為其添加圖標
'也可以添加兩個圖片
'一個表示菜單項被選中狀態
'另一個表示菜單項沒有被選中
hID& = GetMenuItemID(hSubMenu&, 1)
Picture2.Picture = LoadPicture(App.Path + "\Open.bmp")
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture2.Picture, Picture2.Picture
'得到File菜單中的第二個菜單項的ID并為其添加圖標
hID& = GetMenuItemID(hSubMenu&, 2)
Picture3.Picture = LoadPicture(App.Path + "\Save.bmp")
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture3.Picture, Picture3.Picture
'得到File菜單中的第三個菜單項的ID并為其添加圖標
hID& = GetMenuItemID(hSubMenu&, 3)
Picture4.Picture = LoadPicture(App.Path + "\Print.bmp")
SetMenuItemBitmaps hMenu&, hID&, MF_BITMAP, _
Picture4.Picture, Picture4.Picture
'得到File菜單中的第四個菜單項的ID并為其添加圖標
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -