Fortsetzung...
Dim itemGoto As New ToolStripMenuItem
itemGoto.Text = "Goto"
Dim item0to9 As New ToolStripMenuItem
item0to9.Text = "0 to 9"
item0to9.DropDownItems.Add("0", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("1", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("2", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("3", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("4", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("5", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("6", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("7", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("8", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
item0to9.DropDownItems.Add("9", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemGoto.DropDownItems.Add(item0to9)
Dim itemAtoG As New ToolStripMenuItem
itemAtoG.Text = "A to G"
itemAtoG.DropDownItems.Add("A", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("B", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("C", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("D", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("E", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("F", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemAtoG.DropDownItems.Add("G", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemGoto.DropDownItems.Add(itemAtoG)
Dim itemHtoN As New ToolStripMenuItem
itemHtoN.Text = "H to N"
itemHtoN.DropDownItems.Add("H", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("I", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("J", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("K", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("L", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("M", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemHtoN.DropDownItems.Add("N", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemGoto.DropDownItems.Add(itemHtoN)
Dim itemOtoT As New ToolStripMenuItem
itemOtoT.Text = "O to T"
itemOtoT.DropDownItems.Add("O", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemOtoT.DropDownItems.Add("P", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemOtoT.DropDownItems.Add("Q", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemOtoT.DropDownItems.Add("R", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemOtoT.DropDownItems.Add("S", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemOtoT.DropDownItems.Add("T", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemGoto.DropDownItems.Add(itemOtoT)
Dim itemUtoZ As New ToolStripMenuItem
itemUtoZ.Text = "V to Z"
itemUtoZ.DropDownItems.Add("U", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemUtoZ.DropDownItems.Add("V", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemUtoZ.DropDownItems.Add("W", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemUtoZ.DropDownItems.Add("X", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemUtoZ.DropDownItems.Add("Y", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemUtoZ.DropDownItems.Add("Z", Nothing, New System.EventHandler( _
AddressOf mnuNavigation_Goto))
itemGoto.DropDownItems.Add(itemUtoZ)
itemNavigation.DropDownItems.Add(itemGoto)
itemNavigation.DropDownItems.Add("-") Fortsetzung folgt... |