PDF《Re:Sub test()》

编辑： bingyan8 2013-05-04

48 Or KeyAscii >

57) And KeyAscii 46) Or _ (pos >

0 And (txtnum - pos) >

= 2) Then KeyAscii =

0 End If End Sub 当然可以的. 我有说不能连续输入....阿.你偏偏要这样输入当然就错了. 若考虑这种情形我就换这样 Private Sub TextBox1_Change() aa = Split(TextBox1.Text, . ) If UBound(aa) >

1 Then TextBox1.Text = aa(0)aa(1) If UBound(aa) =

1 Then If Len(aa(1)) >

2 The........

下载（注：源文件不在本站服务器，都将跳转到源网站下载）
备用下载
发帖评论
相关话题
发布一个新话题
推荐资源
最新资源
热点资源
大家都在看的话题