vb.net中的按钮热键

如何将热键添加到此按钮？现在按钮，如果您用鼠标点击它，它将激活麦克风，以便您可以说话，并且其他人可以听到您的声音，如果再次单击该按钮，麦克风会停用麦克风，以免任何人听到您的声音。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

来源

2016-04-18 Tyrone Summers

请解释一下这个代码：选择ToolStripButton1.Text 案“关” 案“在” 最终选择结束如果还只发布在你的问题。你可以随时编辑它，所以删除该答案编辑你的问题，并具体什么不起作用 – Claudius

我解释说，关=麦克风关闭，开=麦克风开。 toolstripbutton1.text是一个名为“Mic”的按钮，如果它们允许他们在麦克风上进行对话，如果他们将其关闭，它将禁用它，我需要它，以便他们可以单击键盘上的CTRL按钮以激活麦克风。 –

CTRL键没有激活麦克风@Claudius –

你真是不应该使用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

来源

2016-04-18 12:14:42 Claudius

不应该在previewKeyDown？因为CTRL键不会引发keydown事件... –

它确实有效，只是经过测试。我最初拼错了它.. – Claudius

好了，然后你去... –

vb.net中的按钮热键

回答

相关问题