用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 源码下载 > VB源码 > 控件组件
VB RichTextBox 每行文字设置不同颜色函数
  • 源码大小:2.00 KB
  • 推荐星级:
  • 更新时间:2011-01-28 15:51:57
  • 源码语言:简体中文
  • 授权方式:免费版
  • 联系方式:暂无联系方式
  • 官方主页:Home Page
  • 插件情况:
  • 运行环境:VB 6.0
  • 发布会员:linhaibo
  • 相关Tags:控件  RichTextBox  颜色  设置  

源码下载简介

VB RichTextBox 每行文字设置不同颜色,效果如以上截图所示。
VBScript code复制代码
Private Sub Command1_Click()
    Call setRT(RichTextBox1, "测试一下:")
    Call setRT(RichTextBox1, "新兴网络", vbRed, True)
    Call setRT(RichTextBox1, "http://www.newxing.com", vbBlue, False)
    Call setRT(RichTextBox1, "嘿嘿~~!", RGB(255, 36, 215), False)
End Sub
Private Sub setRT(RichText As RichTextBox, strText As String, Optional Color As Long = vbBlack, Optional IsBold As Boolean = False)
    RichText.SelStart = Len(RichText.Text)
    RichText.SelColor = Color
    RichText.SelBold = IsBold
    RichText.SelText = strText & vbCrLf
End Sub

下载地址

源码下载评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论