有关文本框的换行显示, 文本着色及光标移动问题

Question

分行显示的问题好办,当你把字符串往文本框里放的时候,再后面多加上个 +vbCrlf就可以了,那是一个回车符,可以帮助你换行
至于颜色,可以在需要改变的时候加上text1.forecolor=rgb(*,*,*)里面的*是一个0到255之间的数字,可以根据不同需要自行调配
光标移到最后可以这样解决,加上
Private Sub text1_Change()
    text1.SelStart = 20000
End Sub
那20000不是一个固定的数值,只要你能保证它比你的文本数量大,就可以保证光标始终在最后

Answer 1

还是用RichTextBox吧，TextBox 不能显示多种颜色的文本吧。

Answer 2

颜色问题同意楼上
Private Sub Command1_Click()
Text1.SetFocus
SendKeys "{End}"
End Sub

Answer 3

想用颜色,最好还是RichTextBox(如Amoon所说)
光标移到最后
    Text1.SelStart = Len(Text1.Text)

Answer 4

或者用FlexGrid,我以前就用这个

Answer 5

to snakeegg(蛇蛋):
也就是上下移动

Answer 6

这是我的测试程序:
Private Sub Command1_Click()
Dim Str As String
Dim i As Integer
i = 0
Str = "1234"
While (i < 20)
i = i + 1
m_rich.Text = m_rich.Text & Str & vbCrLf
m_rich.SelStart = Len(m_rich.Text)
Wend
End SubPrivate Sub m_rich_Change()
m_rich.SelStart = Len(m_rich.Text)
End Sub一按command1, 滚动条就上下快速移动

Answer 7

Private Sub Command1_Click()
Dim Str As String
Dim i As Integer
i = 0
Str = "1234"
While (i < 20)
i = i + 1
    m_rich.SelColor = iif((i mod 2)=0, vbRed,vbBlue)
    m_rich.selText 
    m_rich.selText = Str & vbCrLf
    m_rich.SelStart = Len(m_rich.Text)
Wend
End Sub

Answer 8

一开始不是说用text文本框吗,你怎么又改成富文本框了