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 31st 2013, 1:34pm)
Jabaco Source |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Option Explicit Dim tmpGroupFile As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(Nothing, "File", "File", True) Dim rbtn1Group As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(tmpGroupFile, "RadioButton", "RadioButton",True) Dim rbtn1 As ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn1","Yes", True, True) Dim rbtn2 As ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn2","No", False) Public Sub Form_MenuClick(MenuItem As VB#IMenuItem) Select Case MenuItem.ControlID Case "rbtn1" rbtn2.clearSelection Case "rbtn2" rbtn1.clearSelection End Select MsgBox "Caption: " & MenuItem.Caption & " - ControlID: " & MenuItem.ControlID End Sub |
Beginner
Date of registration: Jan 15th 2011
Location: Sarasota, FL
Occupation: Cabinet Design
Hobbies: Programming
Source code |
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Option Explicit Dim tmpGroupFile As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(Nothing, "File", "File", True) Dim rbtn1Group As VB#VBMenuGroup = Me.MenuBar.createMenuGroup(tmpGroupFile, "RadioButton", "RadioButton",True) Dim rbtn1 As Javax#swing#ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn1","Yes", True, True) Dim rbtn2 As Javax#swing#ButtonGroup = Me.MenuBar.createRadioButtonMenu(rbtn1Group, "rbtn2","No", False) Public Sub Form_MenuClick(MenuItem As VB#IMenuItem) Select Case MenuItem.ControlID Case "rbtn1" rbtn2.clearSelection Case "rbtn2" rbtn1.clearSelection End Select MsgBox "Caption: " & MenuItem.Caption & " - ControlID: " & MenuItem.ControlID End Sub |
This post has been edited 2 times, last edit by "Perry" (Aug 1st 2013, 2:06pm)
Jabaco Source |
|
1 |
Me.MenuBar.createRadioButtonMenu
|
Beginner
Date of registration: Jan 15th 2011
Location: Sarasota, FL
Occupation: Cabinet Design
Hobbies: Programming
Quoted
The problem with VB is that the runtime is not distributed adequately, and it will only run on a Microsoft OS, and they are threatning to drop support for it....
Quoted
I Hope the Framework gets adjusted to implement this a bit better
Quoted
I'm making a Library Application for the church I attend which has the option of using a bar code scanner and can print out barcode labels. Almost finished. When I'm done I'll post it. It has many work-arounds ...