黑马程序员技术交流社区

标题: 怎么改变label个别字符串颜色 [打印本页]

作者: 王明明1004    时间: 2013-5-15 13:05
标题: 怎么改变label个别字符串颜色
球大神 指教
怎么改变 label 中个别字符串字体颜色呢

比如像以下效果





作者: 许大虾    时间: 2013-5-15 13:19
从VB中,在工具箱上右击,从弹出的菜单里选择“部件”,从弹出的窗口里找到“Microsoft  Rich  Textbox  Control  6.0”选中这一项,然后单击“确定”,这时,原有的工具箱里就多了一个图标类似于写字板图标的图标(这个图标的右下角是一个红色并倾斜的“A”,有好几道蓝杠,左上角有一个正方形),单击该图标,从窗体上画一个这个控件,这个控件名是RichTextBox,假设你画的RichTextBox的控件名叫RichTextBox1,下面,我就给你演示一下它的使用方法:

1.想要把选中的文本的颜色变为红色,代码是:
RichTextBox1.SelColor = vbRed
变成绿色就是:
RichTextBox1.SelColor = vbGreen
变成其他颜色就是:
RichTextBox1.SelColor = 你想要的颜色

2.想要把你选中的文本的字号变成36号,代码就是:
RichTextBox1.SelFontSize=36
变成48号:
RichTextBox1.SelFontSize=48
变成其他字号就是:
RichTextBox1.SelFontSize=你想要的字号

3.想要把你选中的文本加上或取消一些特殊标记:
加入下划线:
RichTextBox1.SelUnderline = True
取消下划线:
RichTextBox1.SelUnderline = False
加入删除线:
RichTextBox1.SelStrikeThru = True
取消删除线:
RichTextBox1.SelStrikeThru = False
将选中的文本倾斜:
RichTextBox1.SelItalic = True
将选中的文本取消倾斜:
RichTextBox1.SelItalic = False
将选中的文本加粗:
RichTextBox1.SelBold = True
将选中的文本取消加粗:
RichTextBox1.SelBold = False

4.把你选中的文本字体变成宋体
RichTextBox1.SelFontName = 宋体
变成黑体:
RichTextBox1.SelFontName = 黑体
变成其他字体:
RichTextBox1.SelFontName = 你想要的字体


            




欢迎光临 黑马程序员技术交流社区 (http://bbs.itheima.com/) 黑马程序员IT技术论坛 X3.2