改变VB6文本某一部分的颜色？

Question

这就是我的代码

Form1.GRQ.AddItem txtRequest.Text & (" - Pending")

我只是想改变 - 所以才出现下一页Red在列表框的黑色文字部分为红色(待定).有任何想法吗？

Answer 1

不幸的是,使用常规的VB6控件,你不能这样做.你可以改变文本框/列表框/标签的所有文本的颜色.ForeColor,但不是它的一部分,这对你来说真的没什么用.值得庆幸的是,有两种解决方案:

1. 第一种方法是继续使用列表框,但添加一个标题,并在您想要的文本旁边添加红色文本" - 待定".它不漂亮,但你可以使它工作.

2. 更好的解决方案是更熟悉RichTextBox控件.但是,只有拥有VB6的Professional或Enterprise版本才能使用.假设你这样做,在VB6菜单上单击Project - > Components,然后在弹出的新窗口中,在Controls选项卡下,选中"Microsoft Rich TextBox Control 6.0",然后单击OK.RichTextBox选项应出现在工具箱上,您可以像任何其他对象一样将其添加到表单中,它就像组合列表框/文本框...它非常有用.如果您需要一些文档,请查看MSDN.

   不幸的是,RichTextBox在改变文本颜色方面有点臭.它可以完成,但不能用简单的命令.您必须找到所需的文本,选择它,然后设置颜色.(如果你想改变所有文本的颜色,你也可以这样做 - 你必须先选择它.)无论如何,这样做的方法是:

   RichTextBox1.SelStart = RichTextBox1.Find(" - Pending")
RichTextBox1.SelLength = 10
RichTextBox1.SelColor = vbRed

我希望这一切都有所帮助.祝你好运!