Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教老师关于字体的问题？


  共有2595人关注过本帖树形打印复制链接

主题：[求助]请教老师关于字体的问题？
帅哥哟，离线，有人找我吗？
5159518
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		[求助]请教老师关于字体的问题？  发帖心情 Post By：2018/6/23 21:27:00 [显示全部帖子]

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

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

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

上面的数据部分都是引用的变量值或者通过表达式计算出来的，还请老师指点
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/6/23 21:31:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/6/25 12:07:00 [显示全部帖子]

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

 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：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 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号字体，请老师帮忙
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：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控件，还请老师不吝赐教
 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/6/25 13:26:00 [显示全部帖子]

？？？？？

 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/6/25 16:28:00 [显示全部帖子]

好，谢谢老师，幸苦了，有了您的代码做参考，我就可以实现我要的功能了，谢谢啦

 回到顶部
帅哥哟，离线，有人找我吗？
5159518
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：384 积分：2706 威望：0 精华：0 注册：2015/11/27 19:09:00 		  发帖心情 Post By：2018/6/26 1:19:00 [显示全部帖子]

以下是引用有点甜在2018/6/25 14:42: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("您共计拥有客户 ")
rt.SelectionColor = Color.Red    '背景色无效
rt.SelectionFont = New Font("楷体",20,FontStyle.Bold)  '字体字号无效
rt.appendText("8888")
rt.SelectionColor = Color.black    '背景色无效
rt.SelectionFont = New Font("楷体",20,FontStyle.Bold)  '字体字号无效
rt.appendtext(" 家;" & Chr(13) & "其中已建立合作客户 ")

老师，发现了新的问题，还请帮忙解决，在窗口AfterLoad事件中内容加载后，通过窗口的一个按钮，来变更文本内容，但是显示的内容无法更新，同样的代码，不知道是不是还有一个类似刷新的指令啊？

    Dim rt As New Windows.Forms.RichTextBox
    rt.Dock = Windows.Forms.DockStyle.Fill
    'rt.ReadOnly = True
    e.Form.Controls("Panel1").BaseControl.Controls.Add(rt)
rt.ResetText()
msgbox(rt.text)
'Dim rt = e.Form.Controls("Panel1").BaseControl.Controls("RichTextBox1")
    Dim sts1 As String() = {"您现有客户","已合作客户","当前位于第"}
    Dim sts2 As String() = {a1,a2,a3}
    Dim sts3 As String() = {"家;","家;","条记录."}

    For i As Integer = 0 To sts1.length - 1
        If i > 0
            rt.AppendText(Chr(13))
        End If
msgbox(i)
        rt.SelectionColor = Color.black    '背景色无效
        rt.SelectionFont = New Font("楷体",11)  '字体字号无效
        rt.AppendText(sts1(i))
msgbox(sts1(i))
        rt.SelectionColor = Color.Red    '背景色无效
        rt.SelectionFont = New Font("楷体",11,FontStyle.Bold)  '字体字号无效
        rt.appendText(sts2(i))
msgbox(sts2(i))
        rt.SelectionColor = Color.black    '背景色无效
        rt.SelectionFont = New Font("楷体",11)  '字体字号无效
        rt.appendtext(sts3(i))
msgbox(sts3(i))
msgbox(rt.text)
    Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 5 次数据查询