如何使VB文本框中输入数字时首字为0时不能显示！
2个回答
展开全部
Private Sub Text1_KeyPress(KeyAscii As Integer)
If Text1.SelStart = 0 And Chr(KeyAscii) = "0" Then KeyAscii = 0
End Sub
If Text1.SelStart = 0 And Chr(KeyAscii) = "0" Then KeyAscii = 0
End Sub
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
if left(text1.text, 1, 1)=str(0) then
text1.text=left(text1.text, 2, len(text1.text)-1)
end if
text1.text=left(text1.text, 2, len(text1.text)-1)
end if
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
