1,451
社区成员
发帖
与我相关
我的任务
分享richtextbox行数的设置
使用RichTextBox1
怎样让richtextbox1加载一些字母，每行加载30个字母。
每加载一行后。隔一行。再加载30个字母
怎样让richtextbox1加载一些字母，每行加载30个字母。
每加载一行后。隔一行。再加载30个字母
...全文
请发表友善的回复…
发表回复
northwolves 2003-03-07
- 打赏
- 举报
Private Sub Command1_Click()
Dim x As String
x = ""
For i = 0 To 25
x = x & zimu(i) & vbCrLf
Next
RichTextBox1.Text = x
End Sub
Function zimu(ByVal i As Integer) As String
zimu = String(30, Chr(i Mod 26 + 65)) & vbCrLf
End Function
Dim x As String
x = ""
For i = 0 To 25
x = x & zimu(i) & vbCrLf
Next
RichTextBox1.Text = x
End Sub
Function zimu(ByVal i As Integer) As String
zimu = String(30, Chr(i Mod 26 + 65)) & vbCrLf
End Function
