UC知道Vb小问题（望高手相助，急！）
来源：百度知道 编辑：UC知道 时间：2024/09/27 20:13:10
2.Private Sub Text1_KeyPress(KeyAscii As Integer)
If k < Asc("0") Or k > Asc("9") Then
k = 0
Else
label1.Caption = Chr(k) + label1.Caption
End If
End Sub
1.Text1获得输入焦点后,依次输入1.3.5, label1显示:
a.135 b, 531 c.9 d.5
2.Text1获得输入焦点后,依次输入2.7.9, label1显示:
a.972 b, 279 c.297 d.18
3.Text1获得输入焦点后,依次输入-2.3.5, label1显示:
a.-532 b,-235 c.532 d.235
4.Text1获得输入焦点后,依次输入1.2.a.5, label1显示:
a.空白 b.12a5 c.5a21d.521
If k < Asc("0") Or k > Asc("9") Then
k = 0
Else
label1.Caption = Chr(k) + label1.Caption
End If
End Sub
1.Text1获得输入焦点后,依次输入1.3.5, label1显示:
a.135 b, 531 c.9 d.5
2.Text1获得输入焦点后,依次输入2.7.9, label1显示:
a.972 b, 279 c.297 d.18
3.Text1获得输入焦点后,依次输入-2.3.5, label1显示:
a.-532 b,-235 c.532 d.235
4.Text1获得输入焦点后,依次输入1.2.a.5, label1显示:
a.空白 b.12a5 c.5a21d.521
程序有问题
以上问题都不成立
或者用Private Sub Text1_KeyPress(k As Integer)
或者用If keyascii < Asc("0") Or keyascii > Asc("9") Then
1.Text1获得输入焦点后,依次输入1.3.5, label1显示: b, 531
2.Text1获得输入焦点后,依次输入2.7.9, label1显示: a.972
3.Text1获得输入焦点后,依次输入-2.3.5, label1显示:c.532
4.Text1获得输入焦点后,依次输入1.2.a.5, label1显示: d.521
file 用法:描述|通用符 例如要设置显示txt就txt|*.txt