等待循環中的按鍵VB.NET WinForms

Question

我正在製作一個winforms應用程序，其目的是使用組合鍵將IPA符號寫入文本框。用戶在關注RichTextBox時按下按鍵。某些組合鍵（如Ctrl + S）只會產生一個字符並等待下一個按鍵，如ʃ。如果您在按住Ctrl的同時重複按下相同的按鍵，其他組合鍵將產生不同的字符。例如，如果我按下Ctrl鍵，則會輸入A，æ，但如果在仍按住Ctrl的同時再次按A，則æ將被刪除，而ɑ將會出現。它將通過這兩個鍵繼續循環，直到玩家釋放Ctrl或按下不同的鍵。

雖然我被困在試圖實現這種行爲。這是迄今爲止我所瞭解的一個粗略的想法;最主要的障礙是，我不知道如何在一個循環的中間暫停和讀取按鍵，使用形式：

Private Sub IPAtext_KeyPress(sender As Object, e As KeyEventArgs) Handles IPAtext.KeyDown 
    Dim AChars() As Char = {"æ", "ɑ"} 
    Dim Counter As Integer = 0 
    Select Case e.Modifiers 
     Case Keys.Control 
      Select Case e.KeyCode 
       Case Keys.A 
        While e.Modifiers = Keys.Control And e.KeyCode = Keys.A 
         IPAtext.AppendText(AChars(Counter)) 
         '-- Pause for keypress. If keypress =/= A then complete loop, if keypress is A again then increase counter. -- 
         Counter = (Counter + 1) Mod AChars.Count 'Increments the counter so that it cycles back to 0 when it goes past the count of AChars. 
         '-- Only execute the line below if keypress is A. -- 
         IPAtext.Text = IPAtext.Text.Remove(IPAtext.TextLength - 1) 'Remove the last character from the textbox. 
        End While 
      End Select 
    End Select 
End Sub 

我也應該注意到，我試圖模仿到一定程度的行爲this IPA web app。

Answer 1

這就是當我嘗試這個時想出來的。在KeyDown事件上設置處理程序，然後默認禁用所有KeyPress。然後看看你是否可以將當前keyCode與你期望的特例相匹配。否則，取消選擇KeyEventArgs對象並保留Sub。

我的代碼將選擇您期望循環的文本，因此即使Ctrl被釋放，您也可以手動選擇一個字符並「繼續」循環。你將不得不根據自己的喜好進行修改，但這對你來說是一個開始。

Private Sub RichTextBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyDown 
    e.SuppressKeyPress = True 
    e.Handled = True 

    Select Case e.KeyCode 
     Case Keys.A And e.Modifiers = Keys.Control 
      RichTextBox1.SelectedText = GetCharacterToPrint(RichTextBox1.SelectedText, New Char() {"æ", "ɑ"}) 
      RichTextBox1.Select(RichTextBox1.SelectionStart - 1, 1) 
     Case Else 
      e.Handled = False 
      e.SuppressKeyPress = False 
    End Select 
End Sub 

這裏是一個簡短的函數返回一個字符：

Private Function GetCharacterToPrint(ByVal SelectedText As String, ByVal Characters As Char()) As Char 
    If SelectedText.Length <> 1 Then 
     Return Characters(0) 
    End If 
    Dim c As Char = SelectedText(0) 
    Dim index As Integer = String.Join("", Characters).IndexOf(c) 
    If index = Characters.Length - 1 Then 
     Return Characters(0) 
    Else 
     Return Characters(index + 1) 
    End If 
End Function 

最後如何CONTROLKEY被釋放後繼續：

Private Sub RichTextBox1_KeyUp(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RichTextBox1.KeyUp 
    If e.KeyValue = Keys.ControlKey Then 
     RichTextBox1.SelectionStart += 1 
    End If 
End Sub