vb textbox自动换行（vb中的textbox自动换行只能通过写代码来实现吗）

本文目录

• vb中的textbox自动换行只能通过写代码来实现吗
• VB一组数据随机换行
• vb如何将textbox1.text一行显示不开后自动换行
• 怎么在VB中限定文本框大小,让文字自动换行
• vb中combo中输入文本换行
• 用vb 做的记事本怎么自动换行

vb中的textbox自动换行只能通过写代码来实现吗

sunruisunrui | 七级
除了ygbh9999 ：在设计界面下把text的属性MultiLine 设为True就可以自动拆闹换行了
之外，还有一个“ScrollBars”属性需要选择一个“V”开头的选项。好像是Vertical，罩御知你试试。
追问：如果让它一行输入20字符后就自动换行，又该怎么设置呢？
你调整text的物消宽度，让他正好输入20个字符不就可以了。Vertical是右边的垂直滚动条。

VB一组数据随机换行

添加2个listbox控件List1（左边那个）,List2（右边那个）
2个按钮command1（换行)，command2(退森袜搭出)
1个label(label1),1个textbox(text1)
代码如下
Option Explicit
Dim strData() As String
Dim intDataNum As Integer
Dim strResult() As String
Dim intPviot() As Integer, intRnd() As Integer
Private Sub Command1_Click()
Dim intTime As Integer
Dim i As Integer, j As Integer
intTime = Int(Val(Text1.Text))
List2.Clear
For i = 1 To intTime
ChangeLane
For j = 0 To intDataNum
List2.AddItem strResult(j)
Next
List2.AddItem ""
Next
End Sub
Sub LoadData()
intDataNum = 11
ReDim strData(intDataNum)
strData(0) = "11 13 25 37 57"
strData(1) = "22 14 26 38"
strData(2) = "83 15 27 39"
strData(3) = "64 16 28 40"
strData(4) = "25 17 29 41"
strData(5) = "16 18 30 42"
strData(6) = "37 19 31 43"
strData(7) = "18 20 32 44"
strData(8) = "99 21 33 45"此拿
strData(9) = "10 22 34 46"
strData(10) = "11 23 35 47"
strData(11) = "12 24 36 48"
ReDim strResult(intDataNum)
ReDim intPviot(intDataNum)
ReDim intRnd(intDataNum)
End Sub
Sub AddData(ByVal vData As String)
intDataNum = intDataNum + 1
ReDim Preserve strData(intDataNum)
strData(intDataNum) = vData
list1.AddItem vData
ReDim strResult(intDataNum)
ReDim intPviot(intDataNum)
ReDim intRnd(intDataNum)
End Sub
Private Sub Command2_Click()
End
End Sub
Private Sub Form_Load()
Dim i As Integer
Command1.Caption = "换行"
Command2.Caption = "退出"
Label1.Caption = "组数"
Text1.Text = 40
LoadData
For i = 0 To intDataNum
List1.AddItem strData(i)
Next
End Sub
Sub ChangeLane()
Dim i As Integer, j As Integer
Dim tmpStr As String, tmpInt As Integer
For i = 0 To intDataNum
intPviot(i) = i
Next
Randomize
For i = 0 To intDataNum
intRnd(i) = Int(1000 * Rnd)
Next
For i = 0 To intDataNum - 1
For j = 0 To intDataNum - i - 1
If intRnd(j) 》好兄 intRnd(j + 1) Then
tmpInt = intRnd(j)
intRnd(j) = intRnd(j + 1)
intRnd(j + 1) = tmpInt
tmpInt = intPviot(j)
intPviot(j) = intPviot(j + 1)
intPviot(j + 1) = tmpInt
End If
Next
Next
For i = 0 To intDataNum
strResult(i) = strData(intPviot(i))
Next
End Sub
多加了个AddData功能，
可以在list1下面加个按钮，command3，功能是添加数据
Private Sub Command3_Click()
Dim tmpStr As String
tmpStr = InputBox("请输入数据")
If tmpStr = "" Then Exit Sub
AddData tmpStr
End Sub
有问题请加QQ 476554861

vb如何将textbox1.text一行显示不开后自动换行

1，把你代码里面的的 vbCrlf 改成你需要间隔的符号 例如 “ ”空格吵散喊 “，” 逗号升野
2，在掘汪button3的click事件里面写
Clipboard.Clear
Clipboard.SetText textBox1.text
vb6写法 .net应该没变吧

怎么在VB中限定文本框大小,让文字自动换行

1、在设计状态下
把文本框的
Multiline
属性
设扮宽为true，就是允许文本框可以显示多行文本。
2、如果内容较多时把ScrollBars设为
2--vertical，这样可以增加文本框厅慧亮的滚动条，可以通过碧消滚动条查看文本框的全部内容。

vb中combo中输入文本换行

VB的Combo组合了列表框和文本框的特性，通过设置其Style属性的值（0，1，2），可以让它具备不同的样式与功能。当Style=0时，成为下拉式组档粗合框，外观像是一个下拉列表框，可以输入文本或从下拉列表中选择表项。当Style=1时，增加其高度，外观便可变为一个文本区+标准列弊槐表框。当Style=2时，行卜镇成为下拉式列表框，不能输入只能下拉选择。
至于想在Combo中输入文本后换行，只怕没法实现。

用vb 做的记事本怎么自动换行

新斗如建两个TEXTBOX
TEXT2.Visible设置为false
自动换行代码如下：
Private
Sub
zidonghuanhang_Click()
If
zidonghuanhang.Checked
=
True
Then
zidonghuanhang.Checked
=
False
’取消选定自明销笑动激含换行
’Text1.ScrollBars
=
3
’水平、垂直滚动条
Text2...