VB 文本框字母筛选：只显示出现过的字母（区分大小写）

以下 VB 代码示例演示如何筛选 TextBox 中的字母，并在 Label 中显示所有出现过的字母，每个字母只显示一次，并区分大小写：

1. 设计界面:

在窗体上添加一个 TextBox 控件（命名为 txtInput）和一个 Label 控件（命名为 lblFilteredLetters）。

2. 添加代码:

将以下代码添加到窗体的代码模块中：vbPrivate Sub txtInput_TextChanged(sender As Object, e As EventArgs) Handles txtInput.TextChanged FilterLetters()End Sub

Private Sub FilterLetters() Dim input As String = txtInput.Text.Trim() Dim filteredLetters As String = ''

For Each ch As Char In input        If Not filteredLetters.Contains(ch) Then            filteredLetters += ch        End If    Next

lblFilteredLetters.Text = filteredLettersEnd Sub

代码逻辑:

txtInput_TextChanged 事件处理程序: - 当 txtInput 文本框内容发生变化时，自动触发此事件处理程序。 - 此事件处理程序调用 FilterLetters 方法来执行字母筛选操作。
FilterLetters 方法: - 获取 txtInput 文本框中的文本内容，并使用 Trim() 方法去除首尾空格。 - 创建一个名为 filteredLetters 的空字符串变量，用于存储筛选后的字母。 - 使用 For Each 循环遍历输入字符串中的每个字符 ch。 - 在循环内部，使用 Contains 方法检查 filteredLetters 是否已经包含当前字符 ch。 - 如果 filteredLetters 中不包含当前字符，则将当前字符追加到 filteredLetters 字符串的末尾。 - 循环结束后，将 filteredLetters 的值赋给 lblFilteredLetters 标签的 Text 属性，以显示筛选结果。

功能说明:

当用户在 txtInput 文本框中输入内容时，程序会自动筛选出所有出现过的字母（区分大小写），并将结果显示在 lblFilteredLetters 标签中，每个字母只出现一次。

希望这个示例能够帮助您理解如何在 VB 中实现文本框字母筛选功能！