如何在Visual Basic中使用文本框时限制发誓单词输入

Question

我有几个想法，但大多数在线解决方案只限制某些键或仅限数字，而不是完整的字符串 我想要一个解决方案，只要输入了一个发誓字的按键，VB就会检测到它然后不允许它。我已经能够进行精确的字符串匹配，因此如果用户将工作放入F ***，则会显示错误消息，但如果用户决定放入＆＃34; F *** nugget＆ ＃34 ;.输入每个可能的咒骂词组合并不优雅也不时间可行。在此先感谢您的帮助。

If e.KeyChar = "F***" Then
    SelectionTextBoxTeamName.Clear()
    MessageBox.Show("Please choose something else")

Answer 1

您需要'string contains'功能。 如果您使用 vb.net 撰写，请尝试String的{​​{3}}，其使用方式如下：

Dim b As Boolean
b = s1.Contains(s2)

如果您没有写入.net 尝试Contains function功能。您可以按如下方式使用它：

InStr("find the comma, in the string", ",")

编辑：在发表评论之后

如果你想检查几个发誓，你可以把它们放在一个数组中并检查每个：

Dim swears = {"F***", "S***"}
Dim hasSwears As Boolean = false

For Each swear As String In swears
    If InStr(textBox.Text, swear) > 0 Then
        hasSwears = true
    End If
Next

现在你知道根据hasSwears是否有任何咒骂。