?? form1.ebf
字號:
VERSION 5.00
Object = "{5D10D93B-1A63-4690-AAE8-86010D343405}#1.0#0"; "PCDMUI.dll"
Begin VB.Form Form1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "Form1"
ClientHeight = 4020
ClientLeft = 0
ClientTop = 0
ClientWidth = 3570
ControlBox = 0 'False
ForeColor = &H80000008&
ScaleHeight = 4020
ScaleWidth = 3570
Begin PCDMUILibCtl.PCDMCommander PCDMCommander1
Height = 375
Left = 120
OleObjectBlob = "Form1.frx":0000
TabIndex = 0
Top = 720
Width = 3255
End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Const SBM_COPY = 0
Const SBM_CUT = 1
Const SBM_DELETE = 2
Const SBM_FIND = 3
Const SBM_HELP = 4
Const SBM_NEW = 5
Const SBM_OPEN = 6
Const SBM_PASTE = 7
Const SBM_PRINT = 8
Const SBM_PROP = 9
Const SBM_REDO = 10
Const SBM_SAVE = 11
Const SBM_SORTASC = 12
Const SBM_SORTDES = 13
Const SBM_UNDO = 14
Const SBM_SYNC = 15
Const SBM_SEND = 16
Const SBM_SEP = 99
Const TBSTATE_CHECKED = 1
Const TBSTATE_PRESSED = 2
Const TBSTATE_ENABLED = 4
Const TBSTATE_HIDDEN = 8
Const TBSTATE_INDETERMINATE = 16
Const TBSTATE_WRAP = 32
Const IDCLOSE = 8
Const RBBS_BREAK = 1
Const RBBS_FIXEDSIZE = 2
Const RBBS_CHILDEDGE = 4
Const RBBS_HIDDEN = 8
Const RBBS_NOVERT = 16
Const RBBS_FIXEDBMP = 32
Const RBBS_VARIABLEHEIGHT = 64
Const RBBS_GRIPPERALWAYS = 128
Const RBBS_NOGRIPPER = 256
Private Sub Form_Load()
PCDMCommander1.SetCmdBarType 1
PCDMCommander1.CreateBar 100, 0
PCDMCommander1.InsertMenu "File", 0
PCDMCommander1.InsertMenuItem "New", 0, 0, 1001
PCDMCommander1.InsertMenuItem "", 0, 1, 0
PCDMCommander1.InsertMenuItem "Load", 0, 2, 1002
PCDMCommander1.InsertMenuItem "Save", 0, 3, 1003
PCDMCommander1.InsertMenuItem "Exit", 0, 4, IDCLOSE
PCDMCommander1.InsertMenu "Edit", 1
PCDMCommander1.InsertMenuItem "Undo", 1, 0, 1004
PCDMCommander1.InsertMenuItem "Copy", 1, 1, 1005
PCDMCommander1.InsertMenuItem "Paste", 1, 2, 1006
PCDMCommander1.CreateBar 101, RBBS_FIXEDBMP
'PCDMCommander1.InsertButton SBM_SEP, TBSTATE_ENABLED, 0, 0, ""
PCDMCommander1.InsertButton SBM_NEW, TBSTATE_ENABLED, 1, 1001, "New File"
PCDMCommander1.InsertButton SBM_SEP, TBSTATE_ENABLED, 2, 0, ""
PCDMCommander1.InsertButton SBM_OPEN, TBSTATE_ENABLED, 3, 1002, "Opens a file"
PCDMCommander1.InsertButton SBM_SAVE, TBSTATE_ENABLED, 4, 1003, "Saves a file"
PCDMCommander1.CreateBar 102, RBBS_FIXEDBMP + RBBS_BREAK
PCDMCommander1.InsertComboBox 150, 0, 1008
PCDMCommander1.AddStringToComboBox 1008, "<CLR>"
PCDMCommander1.AddStringToComboBox 1008, "First Choice"
PCDMCommander1.AddStringToComboBox 1008, "Second Choice"
PCDMCommander1.SetAdornments 0
End Sub
Private Sub PCDMCommander1_CmdBarAction(ByVal ID As Long, ByVal text As String)
If ID = IDCLOSE Then
App.End
Else
MsgBox "The ID " & ID & " fired the string <" & text & ">"
End If
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -