2016-04-18 9 views
1

このボタンにホットキーを追加するにはどうすればよいですか? 今すぐボタンをクリックすると、マウスでクリックするとマイクがアクティブになり、他の人があなたの声を聞くことができます。クリックすると、マイクが無効になり、誰もあなたの声を聞くことができなくなります。vb.netのボタンへのホットキー

私は、「Ctrlキー」キーを作る、それをアクティブにし、

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 
    If e.Control Then 
     sooket.Client.SendCommand(New Command(CommandType.jampee, sooket.Client.IP, UserName & "|" & NameMic & "|" & Roomname.Trim & "|" & "plassmic" & "|" & "microphoneee.png" & "|" & "|" & "okmic" & "|" & "Timeok" & "|")) 
     ' mic() 
    Select ToolStripButton1.Text 
      Case "Off" 
      Case "On" 
     End Select 
    End If 
End Sub 
+0

は、このコードを説明してください: 終了を選択 「オン」 ケース「オフ」ToolStripButton1.Text ケースを選択しますまた、あなたの質問に投稿してください。あなたはいつもそれを編集することができますので、その答えを削除して質問を編集し、うまくいきません。 – Claudius

+0

私は、オフ=マイクオフ、オン=マイクについて説明しました。 toolstripbutton1.textはマイクで話すことができるボタンをクリックすると「マイク」と呼ばれるボタンです。オフにすると無効になります。キーボードのCTRLボタンをクリックするとマイクを有効にすることができます –

+0

CTRLキーがマイクを有効にしていない@Claudius –

答えて

1

本当にあなたがそのためにCtrlを使用しないでください、それを無効にする必要があります。 ToolStripButton1.Nameにショートカットしたい文字の前に&を置くことができます。しかし、あなたは、この作業をする必要がありする必要がある場合:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 
    If e.Control Then 
     'Your code here 
    End If 
End Sub 
switch文と

正しい形式:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles MyBase.KeyDown 
    If e.Control Then 
     Select Case ToolStripButton1.Text 
      Case "Off" 
       ToolStripButton1.Text = "On" 
      Case "On" 
       ToolStripButton1.Text = "Off" 
     End Select 
    End If 
End Sub 
+0

previewKeyDownに含まれていないはずですか? CTRLキーがkeydownイベントを発生させないので... –

+0

これは動作し、ちょうどテストされます。私は最初にそれを間違って綴りました。 – Claudius

+0

OKしてください。 –

関連する問題