请教一个VB文本框中改变字体颜色的代码！

2024-11-27 12:03:16

推荐回答（5个）

回答1：

RichTextBox1.SelColor = vbRed
富文本框要用上面这行代码，不过这行代码只能改变当前选中的文本的颜色和以后输入的文本的颜色。如果想要改变所有文本的颜色，可以手动选中所有文本，再执行这上面的代码，或者用以下的代码代替。
Dim i As Long
i = RichTextBox1.SelStart
RichTextBox1.SelStart = 0
RichTextBox1.SelLength = Len(RichTextBox1.Text)
RichTextBox1.SelColor = vbBlue
RichTextBox1.SelStart = i

回答2：

写一个CStatic的派生类CMyStatic，在对话框中声明CMyStatic成员，然后在initdialog中创建，创建的时候指定显示的字符串。

然后写一个CMyStatic::OnPaint函数隐藏父类的OnPaint，在这个函数中，可以用GetWindowText取得当前设定的固定字符串，然后使用CDC将这个字符串画出来，喜欢画什么颜色都行，画几行也无所谓，你看行不行呢：）
保存旧画刷
设置画刷
replace要改变颜色的文本
呵呵，你可以把一个DC分成多个DC。那种可以支持多种字体颜色的编辑软件都是这么做的。

回答3：

''这样做吧希望你能满意声明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

回答4：

vb导出excel怎样设置字体颜色如题！第1个回答
例子：
XSheet.Cells(Row, Col).Font.ColorIndex = 3
指定EXCEL表格的某单元格字体颜色。
EXCEL使用的是颜色索引，3就是红色

回答5：

有问题呀不好意思忘记写语句啦网速太慢我这~`