我有一個解決方案在Vb.NET 2008 windows窗體與ToolStripMenuItems,如何在沒有鼠標事件的情況下使用ToolStripMenuItems(點擊或雙擊事件)?
但我需要實現沒有任何鼠標干預的菜單導航。
我只找到鼠標事件在ToolStripMenuItems,MenuStrip中,等
所有的MenuStrip和ToolStripMenuItems被編程創建,從數據庫中讀取用戶的權限,然後添加一個處理程序來管理事件,但客戶不希望鼠標交互,他只需要鍵盤輸入!
添加菜單程序:
Private Sub AddModulo(ByVal strNAME As String, ByVal strTITULO As String)
Dim oToolStripMenuItem As New ToolStripMenuItem(strTITULO)
oToolStripMenuItem.Name = strNAME
oToolStripMenuItem.Text = "&" & strTITULO
mnuPrincipal.Items.Add(oToolStripMenuItem)
AddHandler oToolStripMenuItem.MouseMove, AddressOf LoadMenu
End Sub
添加項常規:
Private Sub AddItems(ByVal StrModulo As String, ByVal strItem As String)
Dim mnuItem As New ToolStripMenuItem
mnuItem.Name = StrModulo.ToUpper
mnuItem.Size = New System.Drawing.Size(145, 22)
If Microsoft.VisualBasic.Left(strItem, 1) = "-" Then
mnuItem.Text = " " & Microsoft.VisualBasic.Mid(strItem.ToUpper, 2)
mnuItem.BackColor = Color.Blue
mnuItem.ForeColor = Color.White
Else
mnuItem.Text = strItem
End If
mnuItem.Tag = UCase(Mid(StrModulo, 5, 2))
AddHandler mnuItem.Click, AddressOf LoadMenuItem
Dim newOption = mnuPrincipal.Items(mnuPrincipal.Items.Count - 1)
newOption.DropDownItems.Add(mnuItem)
End Sub
THX。
按下Alt,使用箭頭鍵。 – 2010-04-04 12:29:11