UC知道VB中richtextbox的各行字体颜色应该如何设置？谢谢！
来源：百度知道 编辑：UC知道 时间：2024/09/24 11:29:38
初学vb蔡鸟，请问如果要对下面的各行分别设置颜色该怎么弄啊？谢谢！！
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.Text = (Now) & vbNewLine & _
"代码" & "：" & t4.Text & vbNewLine & _
"编号 ：" & Combo1 & vbNewLine & _
"High= " & T1.Text & vbNewLine & _
"Low= " & t2.Text & vbNewLine & _
"1.982 = " & Round(t2 + (T1 - t2) * 1.982, 2) & vbNewLine & _
"3.629 = " & Round(t2 + (T1 - t2) * 3.629, 2) & vbNewLine & _
"5.33 = " & Round(t2 + (T1 - t2) * 5.33, 2) & vbNewLine & _
"7.62 = " & Round(t2 + (T1 - t2) * 7.62, 2)
End Sub
Private Sub Command1_Click()
RichTextBox1.SelColor = RGB(255, 0, 0)
RichTextBox1.Text = (Now) & vbNewLine & _
"代码" & "：" & t4.Text & vbNewLine & _
"编号 ：" & Combo1 & vbNewLine & _
"High= " & T1.Text & vbNewLine & _
"Low= " & t2.Text & vbNewLine & _
"1.982 = " & Round(t2 + (T1 - t2) * 1.982, 2) & vbNewLine & _
"3.629 = " & Round(t2 + (T1 - t2) * 3.629, 2) & vbNewLine & _
"5.33 = " & Round(t2 + (T1 - t2) * 5.33, 2) & vbNewLine & _
"7.62 = " & Round(t2 + (T1 - t2) * 7.62, 2)
End Sub
我也不想看上面楼主说的意思了。
因我机器没有VB，只能说说思路了。你已经说了是用richtextbox，具体思路如下：
1,这个控件分别有有设置颜色，字体的属性。
2，因为你可能是想每行的字体，颜色都不一样。这就要对文本框的位进行计算，从0位到行的最后一位进行选中，用属性设置。 依次计算就可以达到目标。
3，上面的方法是一种非常死板的方法。如果你想好一点，就采取API取行实现。那样子方法比较复杂。但是对于程序的性能可能相对较好。