TextBox怎样限制一行中的字符数？

请问各位高手，如果我的TextBox的MultiLine的属性设置为True了，我要限制它一行的输入字符个数要怎么做？谢谢！

解决方案 »

  1.   

    在change事件里判断或者在KEYUP里判断当字符个数正好是这个的时候就换行
      

  2.   

    在change事件里判断长度，自动加回车
      

  3.   

    这个问题有点意思
    呵呵
    在在change事件判断TextBox里回车的个数
    用回车 split 一个数组 判断最后一个的长度
    自动加回车
    如果没有回车直接判断
      

  4.   

    在属性窗口里设置“maxlength=你需要的长度”就可以了！！
      

  5.   

    Private Sub Text1_Change()
    Dim i, tmp, s
    s = Text1.SelStart
    tmp = Text1
    tmp = Replace(tmp, vbCrLf, "")
    For i = 10 To Len(tmp) Step 10
        tmp = Left(tmp, i + 2 * i \ 10 - 2) & vbCrLf & Mid(tmp, i + 2 * i \ 10 - 1)
    Next
    Text1 = tmp: Text1.SelStart = s + IIf(s Mod 10, s, s + 1)
    End Sub
      

  6.   

    tmd007
    这样写是不是太消耗系统资源了，而且这样一来回车跟退格都无法用了。
      

  7.   

    //这样写是不是太消耗系统资源了，而且这样一来回车跟退格都无法用了。用RichTextBox 吧,例子只不过做个演示而已