Question

vb 错误的参数号或无效的属性赋值

已经快炸了 完不知道错哪 求个高手指点迷津啊！！！
code:

'''''''''''''''''''''''''''''''''''''''''''''画图'''''''''''''''''''''''''''''''''''''''''''''''

Picture1.DrawWidth = 4
Picture2.DrawWidth = 4
Picture3.DrawWidth = 4
For i = 0 To 100
ppicx(i) = i * Picture1.Width / 100
If maxp <> 0 Then
ppicy(i) = (pot(i).F * Picture1.Height / 2) / maxp
Else: ppicy(i) = 1
End If
Picture1.PSet (ppicx(i), ppicy(i)), vbWhite
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''picture1
mpicx(i) = i * Picture2.Width / 100
If maxm <> 0 Then
mpicy(i) = (pot(i).M * Picture2.Height / 2) / maxm
Else: mpicy(i) = 1
End If
Picture2.PSet (mpicx(i), mpicy(i)), vbWhite
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''picture2
ppicx(i) = i * Picture3.Width / 100
If maxw <> 0 Then
ppicy(i) = (pot(i).w * Picture3.Height / 2) / maxw
Else: wpicy(i) = 1
End If
Picture3.PSet (wpicx(i), wpicy(i)), vbWhite
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''picture3
Next i

End Sub

若以下回答无法解决问题，邀请你更新回答

Answer 1

pset用法错误，没有指定颜色参数
PSet 方法
将对象上的点设置为指定颜色。
语法
object.PSet [Step] (x, y), [color]
PSet 方法的语法有如下对象限定符和部分：

部分 描述
object 可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。
Step 可选的。关键字，指定相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置的坐标。
(x, y) 必需的。 Single （单精度浮点数），被设置点的水平（ x 轴）和垂直（ y 轴）坐标。
color 可选的。Long （长整型数），为该点指定的 RGB 颜色。如果它被省略，则使用当前的 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。
PSet 方法示例
这个示例用 PSet 方法在窗体上画五彩碎纸。想运行这个示例，将代码放入窗体的General 部分。按 F5 并单击窗体。
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到垂直位置。
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画五彩碎纸。

追问

可是后面的VBwhite就是颜色参数呀

追答

用qbcolor吧

已通知提问者对您的回答进行评价，请稍等

Answer 2

是中文逗号还是西文逗号？

追问

检查了一下，逗号没错

追答

估计是你的变量值可能不正确，看不全你的代码，不好说，你重点检查下，ppicy(i) = (pot(i).F * Picture1.Height / 2) / maxp 这个变量是什么情况
你可单步执行下看，或是中断，输出一下，看看值

Answer 3

能贴出全部代码吗？朋友