简单问题 关于TextBox控件

[virtualboy]

TextBox控件中有类似VC中Edit属性为数字的设置吗？？

[lvfengxun]

有DataFormat

[virtualboy]

我设置过了，将它设置为数值型，为什么还是可以输入字符？

[Leemaasn]

还有一个imemode，你试过了？

[Frank_Xu]

比如你的TextBox控件名為 TxtEdit,則:
Private Sub TxtEdit_KeyPress(KeyAscii As Integer)
If KeyAscii = 8 Then Exit Sub
If KeyAscii = Asc(".") Then
If InStrRev(TxtEdit.Text, ".") > 0 Then
KeyAscii = 0
Else
Exit Sub
End If
End If
If KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then KeyAscii = 0
end sub

[virtualboy]

ok