Foxtable(狐表)用户栏目专家坐堂 → [求助]可以设置文件框中每段文字的颜色不一样吗?


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

主题:[求助]可以设置文件框中每段文字的颜色不一样吗?

帅哥哟,离线,有人找我吗?
youngerlsy123456
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:22 积分:234 威望:0 精华:0 注册:2018/12/5 22:42:00
[求助]可以设置文件框中每段文字的颜色不一样吗?  发帖心情 Post By:2019/2/23 22:53:00 [只看该作者]

给窗口的一个文本框赋值为"苹果:5元/斤",想让"苹果:"是蓝色,"5元/斤"是红色.
有代码可以实现吗?
我现在写的代码只能写成:
            e.Form.Controls("shuiguojiagexianshi").value = e.Form.Controls("shuiguojiagexianshi").value & "$" & e.Form.Controls("shuiguo").value & ":"
            
            If e.Form.Controls("pingguo").value IsNot Nothing Then
                e.Form.Controls("shuiguojiagexianshi").value = e.Form.Controls("shuiguojiagexianshi").value & e.Form.Controls("pingguo").value  & e.Form.Controls("pingguojiage").value & " "
            End If
            If e.Form.Controls("xueli").value IsNot Nothing Then
                e.Form.Controls("shuiguojiagexianshi").value = e.Form.Controls("shuiguojiagexianshi").value & e.Form.Controls("xueli").value  & e.Form.Controls("xuelijiage").value & " "
            End If
            ........
但当文字量大的时候,看起来太乱,眼比较花.


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2019/2/24 13:13:00 [只看该作者]

如果仅仅是显示内容,可以用webbrowser显示,如

 

Dim web = e.form.controls("webbrowser1").basecontrol
web.documenttext = "<html><body><label style='color:red'>123</label><label>456</label></body></html>"


 回到顶部