Vb6.0 要求文本框的内容必须含有某个字符 怎么写代码啊?

2025-02-27 20:58:45
推荐回答(2个)
回答1:

Private Sub Text1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If InStr(Text1.Text, "a") = 0 Then
    MsgBox "文本必须包含a"
    Text1.Text = ""
End If
End Sub

回答2:

在弹出框代码后加入: frmMain.text1.text=输入的端口号