form1.ebf

windows mobile 应用程序开发实践一书的源代码

VERSION 5.00
Object = "{BE67ABF5-0137-11D2-9B8A-00C04FAD5AEC}#1.0#0"; "mscecommandbar.dll"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00FFC0FF&
   Caption         =   "Form1"
   ClientHeight    =   5595
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   4995
   ForeColor       =   &H80000008&
   ScaleHeight     =   5595
   ScaleWidth      =   4995
   ShowOK          =   -1  'True
   Begin CommandbarLib.CommandBar CommandBar1 
      Height          =   345
      Left            =   1200
      TabIndex        =   0
      Top             =   1560
      Width           =   1815
      _cx             =   3201
      _cy             =   600
      Enabled         =   -1  'True
      OKButton        =   -1  'True
      HelpButton      =   -1  'True
      CloseButton     =   -1  'True
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
  Dim mnuMain As CommandbarLib.CommandBarMenuBar
  Dim mnuFile As CommandbarLib.Item
  Dim mnuEdit As CommandbarLib.Item

Private Sub CommandBar1_ButtonClick(ByVal Button As CommandbarLib.CommandBarButton)
MsgBox Button.Key
  
 
 
End Sub

Private Sub Form_Load()
    InitCommandBar
End Sub

Sub InitCommandBar()
  
  
  Set mnuMain = CommandBar1.Controls.Add(cbrMenuBar, "MainMenu")
  'add File menu items
  Set mnuFile = mnuMain.Items.Add(1, "File", "File")
  mnuFile.SubItems.Add , "Open", "Open"
  mnuFile.SubItems.Add , "Add", "Add"
  mnuFile.SubItems.Add , "Update", "Update"
  mnuFile.SubItems.Add , "Delete", "Delete"
   
  'add Edit menu items
  Set mnuEdit = mnuMain.Items.Add(2, "Edit", "Edit")
                mnuEdit.SubItems.Add , "Sort", "Sort"
                mnuEdit.SubItems.Add , "Find", "Find"
 Set mnuEdit = mnuMain.Items.Add(3, "project", "project")
                mnuEdit.SubItems.Add , "select", "select"
                mnuEdit.SubItems.Add , "replace", "replace"
                mnuEdit.SubItems.Add , "paste", "paste"

End Sub

Private Sub Form_OKClick()

    App.End
    
End Sub