Private Sub Command1_Click()
If Text2.Text = "" Then
Text2.Text = Text1.Text
Else
Text2.SelStart = Len(Text2.Text)
Text2.SelText = vbCrLf & Text1.Text
End If
End Sub
补充:别忘了把Text2的MultiLine属性设为True
上面是你回答别人的问题,如果text1.text 内容过大时,就出错了哦,好像len有长度限制?
VB编程,textbox的len有长度限制吗
Textbox 控件的 Text 设置值最多可以有 2048 个字符,但是如果 MultiLine 属性设置为 True,此时最大限制大约是 32K。 ---VB6.0 至于VB.Net,有个成员textbox.MaxLength可以设置
vb6.0中文本框TextBox所能容纳的最大字符长度是
对于单行文本框控件,若将 MaxLength 属性设置为 0,则用户能输入的最大字符数为 2147483646 或一个基于可用内存的数目,两数之间选取较小者。意思就是你的可用内存足够大的话,可以输入2147483646 个字符。对于多行文本框控件,用户能输入的最大字符数为 4294967295 或一个基于可用内存的数目,两数之间...
vb textbox如果超过10行就删掉第一行的内容
控件内能容纳的数据是有上限的,当输入的内容超出时系统自动清除最早的内容,在前期备注一下变量,或者加一段代码 代码大致的意思是 当控件当中内容超出时内容自动备份到一个函数当中 , 这样应该没问题了
VB 为什么不能完全读取出文本文件内的所有内容
VB的Text文本框,貌似有最大长度限制,最多只支持存储65535个字符。一个回车换行符,相当于两个字符。你可以测试一下你的代码:Private Sub 打开_Click() Dim DAT As String '数据暂存用 With CommonDialog1 '设置控件属性 .Filter = "文本文件|*.txt|所有文件|*.*" '设置打开文...
VB 里如何限制RichTextBox输入字节的长度
RichText1.MaxLength=6 这样就只能输入6个字符了 需要注意的是,VB中英文和中文都算一个字符
VB编程问题
1.textbox有一个 Locked属性,设为True,就不能被编辑了 2.textbox有一个 MaxLength属性,用来限制文本框可输入字符的长度,你设成8,它就只能输8个字;设成10,就只能输10个字。设为0就是没有长度限制。但你这个情况必须不断试才能得到这个具体的值,因为不同的字号,不同字体,相同一个文本框能...
VB中旳文本框怎么限制输入旳字符数,
VB中旳文本框要限制输入旳字符数,可以选中这个文本框后,在它的“属性”面板中设置它的MaxLength属性为10,就设定了这个文本框中最多可以输入10个字符。也可以用代码进行这项设置:Text1.MaxLength=10 如果设置MaxLength属性为0(默认值),就是不人为限制它的最多字符数,其最大值由VB系统确定:在...
VB中TextBox控件的Maxlength属性的疑问
Len(Text1) - 1): Text1.SelStart = Len(Text1)End Sub Private Sub Text1_KeyPress(KeyAscii As Integer) '限制不允许从中间输入 If Text1.SelStart <> Len(Text1.Text) Then KeyAscii = 0 End Sub 假如输入了9个英文,再敲入一个汉字,无法输入,不能留下汉字的其中一个字节 ...
vb 限制text输入字符长度
TextBox的MaxLength属性设置能输入的字符的最大数 MaxLength为零时不限制长度
vb中text长度的问题
'方法如下:Private Sub Text1_Change()If Len(Text1) >= 10 Then Text1 = Left(Text1, 10)End If End Sub