191问答库 > 请问如何在vb中点击按钮改变Shape1的FillColor属性？

请问如何在vb中点击按钮改变Shape1的FillColor属性？

2024-11-07 20:44:14

推荐回答（4个）

回答1：

注意你代码此句有错,Shape控件无Item属性:
Shape1.Item.FillColor = RGB(255, 255, 0)
应为:
Shape1.FillColor = RGB(255, 255, 0)
另要加一句:
Shape1.FillStyle = 0
或在属性页对Shape控件的属性FillStyle选SOLID
如有问题是你的系统可能不支持RGB256色.可改用如下语句:
Shape1.FillColor = vbYellow
Shape1.FillStyle = 0

回答2：

Private Sub Command1_Click()
fso Shape1.Item.FillColor = RGB(255, 255, 0)
fso Shape1.FillColor = RGB(255, 255, 0)
End Sub

加以提示这样做就OK了有什么问题在问

回答3：

你应该是用了不只一个SHAPE控件吧，而且用了数组。
如果你想改变shape1(1)的颜色，就这么做：

Private Sub Command1_Click()
Shape1(1).FillColor = RGB(255, 255, 0)
End Sub

回答4：

这是一个自编的过程，从名称看好像是填充颜色用的，x和y是过程的两个参数。更具体的要看上下文。