form1.ebf

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

VERSION 5.00
Object = "{E491F001-98EC-11D1-9B3D-00C04FAD5AEC}#1.0#0"; "msceimagelist.dll"
Object = "{F7DEA2C9-BA8F-446E-A292-B4840F3BD661}#1.0#0"; "mscemenubar.dll"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H80000001&
   Caption         =   "Form1"
   ClientHeight    =   6015
   ClientLeft      =   60
   ClientTop       =   840
   ClientWidth     =   6585
   ForeColor       =   &H80000008&
   ScaleHeight     =   6015
   ScaleWidth      =   6585
   ShowOK          =   -1  'True
   Begin MenuBarLib.MenuBar MenuBar 
      Left            =   1200
      Top             =   5160
      _cx             =   2778
      _cy             =   873
      Enabled         =   -1  'True
      NewButton       =   0   'False
   End
   Begin CEImageListCtl.ImageList MenuBar_ImaList 
      Left            =   720
      Top             =   4200
      _cx             =   990
      _cy             =   990
      ImageWidth      =   0
      ImageHeight     =   0
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public systemwindow As MenuBarLib.MenuBarMenu
Public addrecordwindow As MenuBarLib.MenuBarMenu
Public managewindow As MenuBarLib.MenuBarMenu
Public fieldwindow As MenuBarLib.MenuBarMenu

Private Sub Form_Load()

'加载主窗体菜单
 Set systemwindow = MenuBar.Controls.AddMenu("系统") '系统菜单
     systemwindow.Items.Add 1, "exit", "退出"
 Set addrecordwindow = MenuBar.Controls.AddMenu("添加数据")
     addrecordwindow.Items.Add 1, "caobiao", "录入用户"
     addrecordwindow.Items.Add 2, "bucao", "录入设备名称"
     addrecordwindow.Items.Add 3, "xuancao_onemonth", "补写数据"
     addrecordwindow.Items.Add 4, "xuancao", "查询数据"
 Set managewindow = MenuBar.Controls.AddMenu("管理")
     managewindow.Items.Add 1, "tongji", "统计"
     managewindow.Items.Add 2, "cazaoyongfu", "通信"
     managewindow.Items.Add 3, "dataedit", "数据库信息"


     Dim MenuBar_Button As MenuBarButton
    MenuBar_ImaList.ImageHeight = 16
   
  
    
    MenuBar_ImaList.Add App.Path & "\field.bmp"
    MenuBar.ImageList = MenuBar_ImaList.hImageList
    Set MenuBar_Button = MenuBar.Controls.AddButton("field")
    MenuBar_Button.Image = 1


    MenuBar_ImaList.Add App.Path & "\manager.bmp"
    MenuBar.ImageList = MenuBar_ImaList.hImageList
    Set MenuBar_Button = MenuBar.Controls.AddButton("manager")
    MenuBar_Button.Image = 2

    MenuBar_ImaList.Add App.Path & "\search.bmp"
    MenuBar.ImageList = MenuBar_ImaList.hImageList
    Set MenuBar_Button = MenuBar.Controls.AddButton("search")
    MenuBar_Button.Image = 3

    MenuBar_ImaList.Add App.Path & "\typefield.bmp"
    MenuBar.ImageList = MenuBar_ImaList.hImageList
    Set MenuBar_Button = MenuBar.Controls.AddButton("typefield")
    MenuBar_Button.Image = 4

    MenuBar_ImaList.Add App.Path & "\exit.bmp"
    MenuBar.ImageList = MenuBar_ImaList.hImageList
    Set MenuBar_Button = MenuBar.Controls.AddButton("exit")
    MenuBar_Button.Image = 5
    
End Sub

Private Sub Form_OKClick()
    App.End
End Sub