如何限制TEXTBOX框只能输入3行???

Question

问题如下:
1.TEXTBOX.MultiLine=TRUE当我输入3行后不能在回车,但能继续输入
当我已输入好3行,无法回车到第四行,此时我把第三行删除,我还是能继续回车到
第三行输入,离开控键后在回到控件上也一样,总之就是只能输入三行?

Answer 1

找查textbox里的vbcrlf有几个了。
如果只能输入三行.就只是允许输入两个vbcrlf就行。

Answer 2

Private Sub Text1_Change()
        If UBound(Split(Text1, vbCrLf)) > 2 Then
            Text1 = Split(Text1, vbCrLf)(0) & vbCrLf & Split(Text1, vbCrLf)(1) & vbCrLf & Split(Text1, vbCrLf)(2)
            Text1.SelStart = Len(Text1)
        End If
End Sub

Answer 3

在text_keypress事件中判断
如果超过三行，则keyascii=0就行了
dim tt
tt=split(text1.text,vbcrlf)
if ubound(tt)>=3 then
   keyascii=0
end if

Answer 4

hengxin54(火星) 
在text_keypress事件中判断
如果超过三行，则keyascii=0就行了
dim tt
tt=split(text1.text,vbcrlf)
if ubound(tt)>=3 then
   keyascii=0
end if你这样起不是用户输入完三行就不能在输入了,不能满足要求,谢谢你的回答.