请教一个VB文本框中改变字体颜色的代码！
blue.Checked = False
red.Checked = True
green.Checked = False
RichTextBox1.ForeColor = vbRed
这段代码在执行时提示最后一行 没有找到方法或数据成员
RichTextBox1.SelColor = vbRed
富文本框要用上面这行代码，不过这行代码只能改变当前选中的文本的颜色和以后输入的文本的颜色。如果想要改变所有文本的颜色，可以手动选中所有文本，再执行这上面的代码，或者用以下的代码代替。
Dim i As Long
i = RichTextBox1.SelStart
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelStart = i
富文本框要用上面这行代码，不过这行代码只能改变当前选中的文本的颜色和以后输入的文本的颜色。如果想要改变所有文本的颜色，可以手动选中所有文本，再执行这上面的代码，或者用以下的代码代替。
Dim i As Long
i = RichTextBox1.SelStart
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelStart = i
温馨提示：内容为网友见解，仅供参考
第1个回答 2013-08-26
写一个CStatic的派生类CMyStatic， 在对话框中声明CMyStatic成员，然后在initdialog中创建，创建的时候指定显示的字符串。
然后写一个CMyStatic::OnPaint函数隐藏父类的OnPaint，在这个函数中，可以用GetWindowText取得当前设定的固定字符串，然后使用CDC将这个字符串画出来，喜欢画什么颜色都行，画几行也无所谓，你看行不行呢：）
保存旧画刷
设置画刷
replace要改变颜色的文本
呵呵，你可以把一个DC分成多个DC。 那种可以支持多种字体颜色的编辑软件都是这么做的。
然后写一个CMyStatic::OnPaint函数隐藏父类的OnPaint，在这个函数中，可以用GetWindowText取得当前设定的固定字符串，然后使用CDC将这个字符串画出来，喜欢画什么颜色都行，画几行也无所谓，你看行不行呢：）
保存旧画刷
设置画刷
replace要改变颜色的文本
呵呵，你可以把一个DC分成多个DC。 那种可以支持多种字体颜色的编辑软件都是这么做的。
第2个回答 2013-08-26
''这样做吧 希望你能满意 声明2个API函数
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'''然后把这条语句RichTextBox1.ForeColor = vbRed换成如下语句:
SetTextColor GetDC(RichTextBox1.hwnd), vbRed
''你试试吧 有问题+Q
Private Declare Function SetTextColor Lib "gdi32" (ByVal hdc As Long, ByVal crColor As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
'''然后把这条语句RichTextBox1.ForeColor = vbRed换成如下语句:
SetTextColor GetDC(RichTextBox1.hwnd), vbRed
''你试试吧 有问题+Q
第3个回答 2013-08-26
vb导出excel怎样设置字体颜色 如题！ 第1个回答
例子：
XSheet.Cells(Row, Col).Font.ColorIndex = 3
指定EXCEL表格的某单元格字体颜色。
EXCEL使用的是颜色索引，3就是红色
例子：
XSheet.Cells(Row, Col).Font.ColorIndex = 3
指定EXCEL表格的某单元格字体颜色。
EXCEL使用的是颜色索引，3就是红色
第4个回答 2013-08-26
有问题呀 不好意思 忘记写语句啦 网速太慢我这~`
相似回答
