wwe上海巡演2017:请问如何在vb中点击按钮改变Shape1的FillColor属性？

来源：百度文库 编辑：中科新闻网 时间：2024/05/07 08:46:04
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)
这样后，还是报一样的错。

注意你代码此句有错,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

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

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

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

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

请问如何在vb中点击按钮改变Shape1的FillColor属性？ 请问在access中如何改变按钮控件的颜色 VB中,如何点击一个按钮后,弹出一个网页? 在VB中，我想点击A按钮，同时也触动B按钮的程序 请问如何在Excel中实现点击按钮打开Word的指定文件? vb中如何在文本框中加入文字？比如有若干个按钮，点击一个就向该文本框中加入一句话。该用什么样的语句呢 在vb中如何实现以下功能：保证text1中的焦点不丢失，即使我点击了别的按钮，焦点还是在text1中。 VB中如何设置按钮的代码，使点击该按钮后就能打开一个已有的窗体？ 请问如何在一个网页中插入AVI文件?(在网页中直接可以点击播放,暂停按钮) 说明: 在一TextBox中输入一个数值(1~9), 点击 确定 按钮.用VB写