问个问题啊 关于文本框的 同门们看看撒

Question

TEXT1。TEXT 的内容  我限定 只能输入 10个字符
 即 “1111111111” 数字
 字母“ABCDEEDCBA”   都是十个汉字 “人人都快乐”  中英文混合也可以  但总的字符数不能超过 10个字符    Dim str As String
    
    Dim GetStr As String
    
    str = writeData.Text
    
    If LenB(StrConv(str, vbFromUnicode)) > 10 Then
        
        GetStr = StrConv(str, vbFromUnicode)
        
        GetStr = MidB(GetStr, 1, 10 )
        
        GetStr = StrConv(GetStr, vbUnicode)
        
        writeData.Text = GetStr
                
        End If现在问题是     当TEXT框里的字符数 大于10 个字节时  光标自动跑到 文本框的 最前面了 
这样就还可以 输入内容了  而我不想让它可以输入   控制光标在最后（即 字符串的末尾）  应该不能再输入内容了吧？？文本框的内容不能大于 10个字节  （包括中英文混合） 还有其他的办法么？  路过的 都顶一顶啊  谢谢啦最后六分了  少了点  海涵啊

Answer 1

搞这么复杂啊，将textbox的maxlength设为10就行了。^_^

Answer 2

呵呵  字母 和 数字  是可以啦  MAXLENGTH = 10 时但 中文也可以输入 10个了啊    按我说的意思 中文 5个汉字  就是 10个 字节咯还有  中英文  数字   混合时呢  烦哦还能把   光标 定 在  输入文本的 最后啊
1222222223   即永远定在 3后面
但我写的那个  满 10个字节后 就跑到 1那里了  又可以输入了  郁闷
或是其他方法

Answer 3

能不能模拟接收 End 键输入？

Answer 4

你可以捕捉文本诓的keyPress事件，如果文本框的那容已经是10个了，那就把Code
参数变成0

Answer 5

writeData.Text = GetStr后加一句：
writeData.SelStart = Len(writeData.Text)