Question

vb api 修改颜色

http://blog.sina.com.cn/s/blog_5ff175e90100p4tj.html
这个帖子它只能修改button 不能修改其他的
这个帖子中怎么不让它有限制?

好像是消息的问题,但我不会用.

Answer 1

这样改试试：
If cbControl.Style = 0 Then
MsgBox cbControl.Name & "的Style属性应设为1(Graphical)"
ElseIf cbControl.Enabled = True Then
SetButton cbControl.hWnd, ccColor
'以下刷新按钮cbControl
cbControl.Visible = False
cbControl.Visible = True
End If

改为：
SetButton cbControl.hWnd, ccColor
'以下刷新按钮cbControl
cbControl.Visible = False
cbControl.Visible = True

为什么会出错？因为控件一属性名称并不一样，这例如这里判断控件的strle属性，但是大部分控件没有这个属性。但是后面还有hWnd等其它属性，如果你的控件没有这些属性也会出错，对于没有hWnd的控件，这个方法怎么改都不会成功。

但是其它大部分控件都有前景色这一属性直接控制文字颜色，没必要这么麻烦吧？那篇贴子针对按钮是因为按钮的字体颜色无法修改。但是贴子中的方法太麻烦，其实直接设置picture属性为适合的图片就好了。

追问

不是的,我是说它只能改button 我想改别的,例如text

追答

知道你是想改别的啊，上面的回答不就是说的这点吗？因为text没有Style属性，所以就出错了啊，按我写的去掉那一个if的判断再看啊。但是我后面说了大部分的控件都可以直接修改文字颜色，text就可以直接设置forecolor属性就好了。

追问

没用的,我早就去掉了