form1.ebf

《Windows CE 权威指南》（作者：(美)CHRIS MUENCH

VERSION 5.00
Object = "{5D10D93B-1A63-4690-AAE8-86010D343405}#1.0#0"; "PCDMUI.dll"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6420
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9390
   ScaleHeight     =   6420
   ScaleWidth      =   9390
   Begin PCDMUILibCtl.PCDMCommander PCDMCommander1 
      Height          =   495
      Left            =   0
      OleObjectBlob   =   "Form1.frx":0000
      TabIndex        =   0
      Top             =   0
      Width           =   9375
   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

Private Sub Form_Load()
PCDMCommander1.CreateBar 100
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.InsertMenu "Edit", 1
PCDMCommander1.InsertMenuItem "Undo", 1, 0, 1004
PCDMCommander1.InsertMenuItem "Copy", 1, 1, 1005
PCDMCommander1.InsertMenuItem "Paste", 1, 2, 1006
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.InsertComboBox 150, 4, 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