...BOX中怎么用代码换行?随即产生60个数需要每10个一行的代码怎么写...

发布网友发布时间：2024-05-04 12:30

共3个回答

热心网友时间：2024-06-21 15:42

首先要将TextBox的MutilLine属性设为true,
然在要换行的时候加入 vbcrlf或Chr(13)+Chr(10)或vbnewline,推荐使用vbnewline，这个常量见名知义。
例如：textbox.text="abcd" & vbnewline & "1234"
表示文本框有两行内容，第一行是abcd,第二行是1234

热心网友时间：2024-06-21 15:37

加vbcrlf换行

就是加Chr(13)+Chr(10)

热心网友时间：2024-06-21 15:43

为你提供4种方法。
---------------------
⒈vbNewLine
⒉vbCrLf
⒊vbCr + vbLf
⒋Chr(10) + Chr(13)
---------------------
随机产生60个数需要每10个一行的代码。设执行按钮为Command1，输出在Text1中。请先在开发环境下把Text1的MultiLine属性改为True（不能写在代码中）。代码如下。
---------------------
Private Sub Command1_Click()
Randomize
For i = 0 To 5
Dim a(9)
For j = 0 To 9
a(j) = Int(Rnd * 2008)
Text1.Text = Text1.Text + Str(a(j)) + vbTab
Next
Text1.Text = Text1.Text + vbCrLf
Next
End Sub