| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- [求助]请教老师关于字体的问题？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=120787) |
| -- 作者：5159518 -- 发布时间：2018/6/23 21:27:00 -- [求助]请教老师关于字体的问题？ 我现在需要在窗口的某个区域显示一些内容，如： 您目前在跟踪订单：200单；年度累计完成订单：2000000元；距离年度目标尚有：20000元。 我打算在窗口上一直显示这样的内容，现在是用“Labe”控件来显示的，但是显示的效果实在不好，因为都是统一的字体和颜色，无法达到上面的这种用其它颜色的字体来显示的效果醒目，请问老师，如果我需要实现上面的效果，我应该如何做？ 上面的数据部分都是引用的变量值或者通过表达式计算出来的，还请老师指点
|
| -- 作者：5159518 -- 发布时间：2018/6/23 21:31:00 -- 另外，因为显示的内容较多，总共有16个数据，再加上文字内容，所以需要换行显示，最好能够实现自动换行 |
| -- 作者：有点甜 -- 发布时间：2018/6/24 22:57:00 -- 方法一：用多个label组合起来显示，一个label一个颜色。
方法二：用webbrowser显示内容，或者richtextbox控件显示内容。 |
| -- 作者：5159518 -- 发布时间：2018/6/25 12:07:00 -- richtextbox控件在哪，怎么没有找到？ |
| -- 作者：有点甜 -- 发布时间：2018/6/25 12:08:00 -- 参考
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=117405&skin=0
|
| -- 作者：5159518 -- 发布时间：2018/6/25 12:13:00 -- 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 发票申请 = 0") \'统计已报价但未申请开票总量 Dim a10 As Integer = DataTables("B02订单报价").Compute("Count(报价单号)", "报价人 = \'" & _姓名 & "\' and 发票申请 = 1 and 发票开具 = 0") \'统计已申请但未开票总量 Dim a11 As Integer = DataTables("B02订单报价").Compute("Count(报价单号)", "报价人 = \'" & _姓名 & "\' and 发票开具 = 0 and 到款日期 is null") \'统计已开票但未回款总量 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号字体，请老师帮忙
|
| -- 作者：有点甜 -- 发布时间：2018/6/25 12:21:00 -- 请改成webbrowser控件，然后写代码
Dim web = e.form.controls("webbrowser1").basecontrol |
| -- 作者：5159518 -- 发布时间：2018/6/25 12:35:00 -- 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编辑过]
|
| -- 作者：有点甜 -- 发布时间：2018/6/25 12:35:00 -- 看7楼，用webbrowser做。 |
| -- 作者：5159518 -- 发布时间：2018/6/25 12:45:00 -- 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控件，还请老师不吝赐教
|