Dear visitor, welcome to Jabaco - Community. If this is your first visit here, please read the Help. It explains in detail how this page works. To use all features of this page, you should consider registering. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Administrator
Date of registration: Jul 16th 2008
Location: Erlangen, Germany
Occupation: Software Developer
Hobbies: Jabaco, game theory, text-mining
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 |
Public Sub Form_Load() Dim tmpGroupFile As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(Nothing, "File", "File", True, NewPng) Dim tmpMenuNew As VB#VBMenuItem = Me.MenuBar.createMenu(tmpGroupFile, "New", "New") Dim tmpMenuOpen As VB#VBMenuItem = Me.MenuBar.createMenu(tmpGroupFile, "Open", "Open") Dim tmpGroupSubItem As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(tmpGroupFile, "SubItem", "SubItem") Dim tmpGroupSubSubItem As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(tmpGroupSubItem, "SubSubItem", "SubSubItem") Dim tmpGroupSubSubSubItem As VB#VBMenuItem = Me.MenuBar.createMenu(tmpGroupSubSubItem, "SubSubSubItem", "SubSubSubItem") Call Me.MenuBar.AddSeperator(tmpMenuFile) Dim tmpMenuClose As VB#VBMenuItem = Me.MenuBar.createMenu(tmpGroupFile, "Close", "Close") End Sub |
Jabaco Source |
|
1 2 3 |
Public Sub Form_MenuClick(MenuItem As VB#IMenuItem) MsgBox "Caption: " & MenuItem.Caption & " - ControlID: " & MenuItem.ControlID End Sub |
Jabaco Source |
|
1 2 3 4 |
Public Sub Form_Load() Call Me.ToolBar.createToolBarItem("New", "New", "ToolTip", NewPng, fmPicturePositionCenter) Call Me.ToolBar.createToolBarItem("Open", "Open", "ToolTip", OpenPng, fmPicturePositionCenter) End Sub |
Jabaco Source |
|
1 2 3 |
Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem) MsgBox "ControlID: " & ToolBarItem.ControlID End Sub |
This post has been edited 1 times, last edit by "beic" (Feb 20th 2010, 2:02pm)
Intermediate
Date of registration: Jan 1st 2009
Location: Hanover, Germany
Occupation: Software Engineer
Hobbies: Hilbert Curves
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 |
Option Explicit Public Sub Form_Load() Call Me.ToolBar.createToolBarItem("New", "New", "ToolTip New", Burning002Png, fmPicturePositionAboveLeft ) Call Me.ToolBar.createToolBarItem("Open", "Open", "ToolTip Open", Burning002Png, fmPicturePositionCenter) Call Me.ToolBar.addSeperator Call Me.ToolBar.createToolBarItem("Tools", "Tools", "ToolTip Tools", Burning002Png, fmPicturePositionCenter) Call Me.ToolBar.addSeperator(5) Call Me.ToolBar.createToolBarItem("Help", "Help", "ToolTip Help", Burning002Png, fmPicturePositionRightCenter) End Sub Public Sub Form_ToolBarClick(ToolBarItem As VB#IToolBarItem) MsgBox "ControlID: " & ToolBarItem.ControlID End Sub |
This post has been edited 1 times, last edit by "beic" (Feb 20th 2010, 4:47pm)
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 |
Public Sub Form_Load() 'ComponentPopUpMenu Dim List1PopupMenu As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(Nothing, "ListPopUp", "ListPopUp", False) Dim List1PopupMenuItem1 As VB#VBMenuItem = Me.MenuBar.createMenu(List1PopupMenu, "List1PopupMenuItem1", "insert row", True, ActionaddGif) Dim List1PopupMenuItem2 As VB#VBMenuItem = Me.MenuBar.createMenu(List1PopupMenu, "List1PopupMenuItem2", "delete row", True, ActionremoveGif) List1.Parent.setComponentPopupMenu(List1PopupMenu.GetAsPopupMenu()) 'Sample Data for List1 Dim i As Integer For i = 1 To 10 List1.AddItem "initial row " & i Next i List1.ListIndex = 0 End Sub Public Sub Form_MenuClick(MenuItem As VB#IMenuItem) ' MsgBox "Caption: " & MenuItem.Caption & " - ControlID: " & MenuItem.ControlID If List1.ListIndex < 0 Then Exit Sub Select Case MenuItem.ControlID Case "List1PopupMenuItem1" List1.AddItem "added row " & List1.ListIndex + 2, List1.ListIndex + 1 Case "List1PopupMenuItem2" List1.RemoveItem List1.ListIndex End Select List1.Refresh End Sub |
Beginner
Date of registration: Jan 15th 2011
Location: Sarasota, FL
Occupation: Cabinet Design
Hobbies: Programming
This post has been edited 1 times, last edit by "Perry" (Jul 18th 2013, 2:04pm)