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)