I have used a SplitButton with two menu items on my form. The menuitems are two - RadMenuItem1 has a text property "Ver 1" and RadMenuItem2 has a text propery "Ver 2"
(The togglebutton is not an option as I will have some other forms which may have more than two menu items).
The problem is when I select the option Ver 2 the code for "Ver 1" is executing and vice versa.
Placing a messagebox shows the problem.
Please help.
I use the following code:
Private Sub RadMenuItem1_Click(sender As Object, e As System.EventArgs) Handles RadMenuItem1.Click
'SetDefaultItem(RadMenuItem1)
Me.RadSplitButton1.Text = "Ver 1"
End Sub
Private Sub RadMenuItem2_Click(sender As Object, e As System.EventArgs) Handles RadMenuItem2.Click
'SetDefaultItem(RadMenuItem2)
Me.RadSplitButton1.Text = "Ver 2"
End Sub
Private Sub RadSplitButton1_TextChanged(sender As Object, e As System.EventArgs) Handles RadSplitButton1.TextChanged
Dim part As String = Me.RadSplitButton1.Text
MsgBox(part) 'you will see the error here
Select Case part 'Me.RadSplitButton1.Text
Case "Part 1"
Me.BOOKS2BindingSource.Filter = "VERSION = 'V1'"
Me.RadPageViewPage1.Item.Visibility = ElementVisibility.Visible
Me.RadPageView1.SelectedPage = Me.RadPageViewPage1
Case "Part 2"
Me.BOOKS2BindingSource.Filter = "VERSION = 'V2'"
Me.RadPageViewPage1.Item.Visibility = ElementVisibility.Hidden
Me.RadPageView1.SelectedPage = Me.RadPageViewPage2
End Select
End Sub
(The togglebutton is not an option as I will have some other forms which may have more than two menu items).
The problem is when I select the option Ver 2 the code for "Ver 1" is executing and vice versa.
Placing a messagebox shows the problem.
Please help.
I use the following code:
Private Sub RadMenuItem1_Click(sender As Object, e As System.EventArgs) Handles RadMenuItem1.Click
'SetDefaultItem(RadMenuItem1)
Me.RadSplitButton1.Text = "Ver 1"
End Sub
Private Sub RadMenuItem2_Click(sender As Object, e As System.EventArgs) Handles RadMenuItem2.Click
'SetDefaultItem(RadMenuItem2)
Me.RadSplitButton1.Text = "Ver 2"
End Sub
Private Sub RadSplitButton1_TextChanged(sender As Object, e As System.EventArgs) Handles RadSplitButton1.TextChanged
Dim part As String = Me.RadSplitButton1.Text
MsgBox(part) 'you will see the error here
Select Case part 'Me.RadSplitButton1.Text
Case "Part 1"
Me.BOOKS2BindingSource.Filter = "VERSION = 'V1'"
Me.RadPageViewPage1.Item.Visibility = ElementVisibility.Visible
Me.RadPageView1.SelectedPage = Me.RadPageViewPage1
Case "Part 2"
Me.BOOKS2BindingSource.Filter = "VERSION = 'V2'"
Me.RadPageViewPage1.Item.Visibility = ElementVisibility.Hidden
Me.RadPageView1.SelectedPage = Me.RadPageViewPage2
End Select
End Sub