请教：文本框中内容按每行写行号的方法

Question

1，有两个文本框，第一个文本框中：从第三行开始编号，即在这一行的最开始写1，第四行的最开始写2······,
2，第二个文本框中的数据为编号，当第二个文本框中的数据为1时，第一个文本框中的第三行文字加粗（或其他方式体现出这一行），当第二个文本框中的数据为2时，第一个文本框中的第四行文字加粗·······
请指教。

Answer 1

加粗不好，会改变字间距。还是变色好。
TextBox改用ListView？

Answer 2

对，改变颜色更好些。TextBox改用ListView也可以，我对ListView不是很熟，请问具体应该怎样做

Answer 3

dim a
if right(text1.text,1)=vbcrlf then n=0 else n=-1
a=split(text1.text,vbcrlf)
text1.text=""
text1.text=a(0) & vbcrlf & a(1) & vbcrlf
for i=3 to ubound(a)+n
text1.text=text1.text & i-1 & a(i) &vbcrlf
next irichtext?

Answer 4

for i=3 to ubound(a)+n
你就不能改下吗for i=2 to ubound(a)+n
思路还不够清晰？

Answer 5

'RichTx32.Ocx 
Dim a, n, i
If Right(Text1.Text, 1) = vbCrLf Then n = 0 Else n = -1
a = Split(Text1.Text, vbCrLf)
With RichTextBox1
      .Text = a(0) & vbCrLf & a(1) & vbCrLf
      For i = 2 To UBound(a) + n
            .SelStart = Len(.Text)
            .SelColor = vbRed
            .SelText = i - 1 & " "
            .SelStart = Len(.Text)
            .SelColor = vbBlack
            .SelText = a(i) & vbCrLf
      Next i
End With

Answer 6

 既然要每行添加东西,那就先把数据分割,用split函数,按照vbcrlf回车换行来分割.
分割的结果是字符串数组
然后在需要的字符串里面添加需要的东西.
最好重新加上vbcrlf.lz需要更多的书和msdn,需要在不懂的关键字上面按F1,需要单步跟踪,需要使用ide提供的各种监视,调试功能