自己来处理啊,在change事件里面自己写就是了。
解决方案 »
- VB 数据库表里指行列的内容
- 好难,好奇怪,高手请进
- IF 与 SELECT CASE 哪个效率较高?
- 狂学vb中,请问,我从哪里能查到VB中的函数!狂谢!在线....
- 设置窗体位置
- 个人自建FTP服务器,内有免费电影,免费MP3歌曲,MTV及免费大型软件可供下载![但有小要求]
- 3月3日我突然失业了,好惨!
- 紧急!哪有好用的SQL编辑器,定给分!!!
- 数据访问ADO与DAO、RDO各用在什么场合下?
- 如何Textbox 没有右键菜单,如何自定义RichTextbox的 Ctrl+V的快捷键?
- 如何在代码中删除MDB数据库中存在的表(急!急!急!)
- VB编写ASP组件的问题,高分求教(200)
Private Sub T_Change()
If Len(T.Text) = 3 Then
T.Text = T.Text + "-"
T.SelStart = Len(T.Text)
End If
If Len(T.Text) = 7 Then
T.Text = T.Text + "-"
T.SelStart = Len(T.Text)
End If
If Len(T.Text) = 11 Then
T.Text = T.Text + "-"
T.SelStart = Len(T.Text)
End IfEnd SubPrivate Sub T_KeyPress(KeyAscii As Integer)
If Len(T.Text) >= 15 Then
KeyAscii = 0
End If
End Sub
但是,那样做字符串长度就是定长的了,要使字符串长度可变,特别是每一节的长度要变应该如何是好呢?
我对这个问题只有一个构思,不知道能不能行:
用hengxin54(恒欣)的例子来说的话,就是让Len(T.Text) = x(Dim x As Integer),当x = 你需要的长度时用回车结束,然后再触发:
T.Text = T.Text + "-"
T.SelStart = Len(T.Text)
这是在网吧写的,没法试,抱歉:)
这是非常简单的解决问题的方法(逻辑简单),可解决提出的问题,可为什么还在问:
“但是,那样做字符串长度就是定长的了,要使字符串长度可变,特别是每一节的长度要变应该如何是好呢?”
用一个Label(3D样式)作背景,另外加三个文本框(无边框、平面)嵌入在相应的位置,两个作为分割的label(caption="-")放在三个文本框中间,处理三个文本框的事件...