查看: 198  |  回复: 0
VB6 让你的TextBox只能输入数字、点。
楼主
发表于 2023年5月7日 17:30

新建From1(窗体),新建Text1(TextBox),代码:

Private Sub Text1_KeyPress(KeyAscii As Integer)
    If Not ((KeyAscii >= 48 And KeyAscii <= 57) Or KeyAscii = Asc(".") Or KeyAscii = vbKeyBack Or KeyAscii = vbKeyDelete) Then
        KeyAscii = 0
    End If
End Sub

这样就可以输入 127.0.0.1 ,除了退格键和删除键,其它按键无效,Ctrl+V都没法。

您需要登录后才可以回帖 登录 | 立即注册
【本版规则】请勿发表违反国家法律的内容,否则会被冻结账号和删贴。
用户名: 立即注册
密码:
2020-2024 MaNongKu.com