[求助]请教老师关于字体的问题？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我现在需要在窗口的某个区域显示一些内容，如：

您目前在跟踪订单：200单；年度累计完成订单：2000000元；距离年度目标尚有：20000元。

我打算在窗口上一直显示这样的内容，现在是用“Labe”控件来显示的，但是显示的效果实在不好，因为都是统一的字体和颜色，无法达到上面的这种用其它颜色的字体来显示的效果醒目，请问老师，如果我需要实现上面的效果，我应该如何做？

上面的数据部分都是引用的变量值或者通过表达式计算出来的，还请老师指点

另外，因为显示的内容较多，总共有16个数据，再加上文字内容，所以需要换行显示，最好能够实现自动换行

方法一：用多个label组合起来显示，一个label一个颜色。

方法二：用webbrowser显示内容，或者richtextbox控件显示内容。

richtextbox控件在哪，怎么没有找到？

Dim a1 As Integer = DataTables("B02单位信息").Compute("Count(单位编号)", "业务归属 = '" & _姓名 & "'") '统计客户总量

Dim a2 As Integer = DataTables("B02单位信息").Compute("Count(单位编号)", "业务归属 = '" & _姓名 & "'and 可曾合作 = 1") '统计已合作客户总量

Dim a3 As Integer = DataTables("B02客户拜访").Compute("Count(单位编号)", "拜访人 = '" & _姓名 & "'") '统计拜访总量

Dim a4 As Integer = DataTables("B02订单管理").Compute("Count(订单编号)", "接单人 = '" & _姓名 & "'") '统计接单总量

Dim a5 As Integer = DataTables("B02订单报价").Compute("Sum(到款金额)","报价人 = '" & _姓名 & "' and 到款日期 >= '" & dt1 & "' And 到款日期 <= '" & dt2 & "'") '统计当月回款总额

Dim a6 As Integer = DataTables("B02订单报价").Compute("Sum(到款金额)","报价人 = '" & _姓名 & "' and 到款日期 >= '" & dt3 & "' And 到款日期 <= '" & dt4 & "'") '统计当月回款总额

Dim a7 As Integer = DataTables("B02订单管理").Compute("Count(订单编号)", "接单人 = '" & _姓名 & "' and 是否报价 = 0") '统计未报价总量

Dim a8 As Integer = DataTables("B02订单管理").Compute("Count(订单编号)", "接单人 = '" & _姓名 & "' and 是否报价 = 1 and 是否出库 = 0") '统计未出库总量

Dim a9 As Integer = DataTables("B02订单报价").Compute("Count(报价单号)", "报价人 = '" & _姓名 & "' and 报价作废 = 0 and fa piao申请 = 0") '统计已报价但未申请开piao总量

Dim a10 As Integer = DataTables("B02订单报价").Compute("Count(报价单号)", "报价人 = '" & _姓名 & "' and fa piao申请 = 1 and fa piao开具 = 0") '统计已申请但未开piao总量

Dim a11 As Integer = DataTables("B02订单报价").Compute("Count(报价单号)", "报价人 = '" & _姓名 & "' and fa piao开具 = 0 and 到款日期 is null") '统计已开piao但未回款总量

Dim a12 As Integer = DataTables("B02订单报价").Compute("Sum(价税合计)","报价人 = '" & _姓名 & "' and 到款日期 is null") '统计当月回款总额

e.Form.Controls("Label3").text = "您共计拥有客户 " & a1 & " 家;其中已建立合作客户 " & a2 & " 家;共计拜访了客户 " & a3 & "次;接单总量 " & a4 & " 件;尚有 " & a5 & " 件未报价;"

请老师帮忙将代码改一下，使用richtextbox控件，其中的a1，a2......等的字符全部用红色宋体加粗14号字体，请老师帮忙

请改成webbrowser控件，然后写代码

Dim web = e.form.controls("webbrowser1").basecontrol
web.documenttext = "<html><body><label>人数</label><label style='color:red;'>12233</label><label>人数</label><label style='color:red;'>233</label></body></html>"

Dim rt As New Windows.Forms.RichTextBox

rt.Dock = Windows.Forms.DockStyle.Fill

rt.name = "RichTextBox1"

e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)

Dim doc As New PrintDoc '定义一个报表

Dim rpar As New prt.RenderParagraph() '定义一个段落对象

Dim f As New Font(rpar.Style.Font, FontStyle.Bold) '定义一个同样但加粗的字体

rpar.Content.AddText("这是一个段落. 现在是正常文本. ")

rpar.Content.AddText("现在的文本是加粗的. ", f)

rpar.Content.AddText("这一句是红色的. ", Color.Red)

rpar.Content.AddText("这一句是上标形式,上标不再是难题. ", prt.TextPositionEnum.Superscript)

rpar.Content.AddText("现在字体加粗,而且是红色. ", f, Color.Red)

rpar.Content.AddText("现在字体加粗,红色,而且是下标形式. ", f, Color.Red, prt.TextPositionEnum.Subscript)

rpar.Content.AddText("现在又是正常的文本了. ")

rpar.Content.AddText("最后,我们来插入一个图标: ")

rpar.Content.AddImage(getimage("logon.ico"))

rpar.Content.AddText(".")

rt.rtf = rpar.value

我通过帮助文件凑了一段代码，但是最后一句编译错误，不知道应该如何改写，更不知道代码中是否还有其它错误，还请老师指点

[此贴子已经被作者于2018/6/25 12:36:48编辑过]

看7楼，用webbrowser做。

Dim rt As New Windows.Forms.RichTextBox

rt.Dock = Windows.Forms.DockStyle.Fill

rt.name = "RichTextBox1"

e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)

rt.AppendText("您共计拥有客户 " & a1 & " 家;" & Chr(13) & "其中已建立合作客户 " & a2 & " 家;共计拜访了客户 " & a3 & "次;接单总量 " & a4 & " 件;尚有 " & a5 & " 件未报价;")

可以显示了，只是如何定义字体的颜色及字体，还有，老师我希望通过这个问题，进一步的了解RichTextBox控件，还请老师不吝赐教

主题：[求助]请教老师关于字体的问题？