按鍵時

Question

期間字符串中提取大寫字母，我有兩個文本框..

我想提取/複製到用戶到另一個文本框鍵擊的事件過程中輸入的所有大寫字母。

邏輯：

Private Sub TextBox1_KeyPress() 

'If the Character is a Capital Letter Then 
' Copy and Concatenate it to the second TextBox 
'End If 

End Sub 

Answer 1

你可以試試這個：

For i = 0 To TextBox1.Text.Length - 1 
    Dim c As Char = TextBox1.Text.Chars(i) 
    If Char.IsUpper(c) Then 
     TextBox2.AppendText(c) 
    End If 
Next 

如果你需要它作爲一個功能：

Private Function ExtractUppers(ByVal txt As TextBox) As String 
    Dim sExtract As String = "" 
    For i = 0 To txt.Text.Length - 1 
     Dim c As Char = txt.Text.Chars(i) 

     If Char.IsUpper(c) Then 
      sExtract = sExtract & c 
     End If 
    Next 

    Return sExtract 
End Function 

而在你的按鈕：

TextBox2.Text = ExtractUppers(TextBox1) 

Answer 2

也許你可以使用這一招：

If letterVar = letterVar.ToUpper() then 
    TextBox2.Text &= letterVar 
End if 

Answer 3

它是由我的朋友解決了！ :)感謝您的回覆！

Private Sub TextBox1_TextChange() 

     CapitalLetter = Regex.Replace(TextBox1.Text, "[^A-Z]", String.Empty) 
     TextBox2.Text = CapitalLetter 

End Sub