限制TextBox的输入长度 lenb(strconv(yourstring,vbFromUnicode)) 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 Private Sub Text1_Change() If LenB(StrConv(Text1.Text, vbFromUnicode)) > 10 Then MsgBox "太多了 > 10 !", vbInformation, "提示" Text1.Text = "" End IfEnd Sub VB打包问题? 考勤排班的问题 为什么所有VB函数都不能用 如何将 PNG 图片格式转为 BMP 图片格式 急求:根据数据内容自动生成控件的办法? 如何删除文件名称前后都有空格的文件 求救!!!!!!! 请教算法? Timer控件在计时,但是如果这时候弹出提示框(msgbox),计时会暂停,退出提示框后,计时又继续,是怎么回事? 高分求助 关于如何去掉第三方控件的求教 刚学vb,关于屏幕分辨率的问题请教大家? 今年程序员考试的编程是不是可以选vb的不选c
If LenB(StrConv(Text1.Text, vbFromUnicode)) > 10 Then
MsgBox "太多了 > 10 !", vbInformation, "提示"
Text1.Text = ""
End If
End Sub