Question

VB TEXT 同 List 的问题

VB在text要写什么代码,才可以让TEXT1.text只可以输入数字,不可以输入其他

List写什么代码,才可以把Listbox 清空

Answer 1

text1.text=trim(text1.text)
if isdate(text1.text) then
msgbox "输入的值不能为日期类型，请重新输入"
text1.selstart=0
text1.sellength=len(text.text)
text1.setfocus
end with

或者

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
End If
End Sub

Answer 2

Private Sub Text1_KeyPress(KeyAscii As Integer)
If (Not (KeyAscii > 47 And KeyAscii < 58)) And KeyAscii <> 8 Then KeyAscii = 0
End Sub

List1.Clear