[已解决]求助：关于窗体中输入问题

yjwdjfqb

关于窗体中输入问题






关于窗体中输入问题.rar (13.36 KB, 下载次数: 13)

2012-4-15 12:05 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

zjdh

2012-4-15 13:32

Private Sub 输入框A_Change()  
    If 输入框A.Text = "" Then Exit Sub
    If Not 输入框A.Text Like "[258]" Then
        MsgBox "本输入框只能输入指定字符",,"系统温馨提示"
        输入框A.Text = ""
    End If
End Sub

跳转到最佳答案楼层

zjdh

Private Sub 输入框A_Change()  
    If 输入框A.Text = "" Then Exit Sub
    If Not 输入框A.Text Like "[258]" Then
        MsgBox "本输入框只能输入指定字符",,"系统温馨提示"
        输入框A.Text = ""
    End If
End Sub

yjwdjfqb

zjdh 发表于 2012-4-15 13:32
Private Sub 输入框A_Change()  
    If 输入框A.Text = "" Then Exit Sub
    If Not 输入框A.Text Like ...

非常感谢朋友的帮助！！！