
Control Bar native to Embedded Vb
Hi Chiro:
In P-roject C-omponents you will see the Microsoft PocketPC
Menu Bar Control 3.0. Select this and you will have it on your
tool bar.
NOTE: This will make your program CE3.0 only. Your program
will not run on a CE2.0 or CE2.11 machine unless you change
it back.
Place the menu bar on your form. (It goes anywhere but it docked
when you run your app) Then set the property "New Button" to false.
Then add this code in your form load
Sub Form_Load()
Dim menuitems
Set menuitems = MenuBar.Controls.AddMenu("File")
menuitems.Items.Add , , "Add"
menuitems.Items.Add , , "Delete"
Set menuitems = MenuBar.Controls.AddMenu("About")
menuitems.Items.Add , , "About MyApp"
End Sub
-----
To detect when the option is selected then place this code in the Form
NOTE: This method uses the caption property some people have
other ways of capturing the input.
Private Sub MenuBar_MenuClick(ByVal Item As MenuBarLib.Item)
Select Case Item.Caption
Case "Add"
msgbox("Add")
....
Case "Delete"
MsgBox("Delete")
...
Case "About MyApp"
MsgBox("About")
...
End Select
End Sub
------------------------------------------------
Good Luck!
Vincent Collura
(Inventor/Engineer)
http://www.CeBeans.com
Did you get your beans Today?
Quote:
> Is there a native control bar in Evb. Something that comes with the
program
> that will allow functions like File, Edit, View at the bottom of my
Pocketpc
> ?
> Thanks in advance for any thougths