Question

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

Private Sub Command1_Click()
Shape1.Item.FillColor = RGB(255, 255, 0)
（报错：参数不可选。）
Shape1.FillColor = RGB(255, 255, 0)
（报错：未找到方法或数据成员。）
End Sub

请问该如何做？
fso Shape1.Item.FillColor = RGB(255, 255, 0)
fso Shape1.FillColor = RGB(255, 255, 0)
这样后，还是报一样的错。

Answer 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

Answer 2

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

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

Answer 3

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

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

Answer 4

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