VB提示错误的参数号或无效的属性赋值是怎么回事啊。。高手求助~

发布网友发布时间：2022-04-29 20:44

我来回答

共4个回答

热心网友时间：2023-10-08 23:58

我用你的代码测试没有发现问题：

Option Explicit

Dim sex As String

Dim interest As String

Private Sub Command1_Click()

If Option1.Value = True Then

sex = "男生"

Else

sex = "女生"

End If

If Check1(0).Value = 1 Then

interest = Check1(0).Caption

End If

If Check1(1).Value = 1 Then

interest = Check1(1).Caption

End If

If Check1(2).Value = 1 Then

interest = Check1(2).Caption

End If

Text1.Text = "我是" + sex + "我的爱好是" + interest

End Sub

热心网友时间：2023-10-08 23:59

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) ' 画五彩碎纸。

热心网友时间：2023-10-08 23:59

哪行报错？追问我也不清楚呢。。帮我看看呗~

热心网友时间：2023-10-09 00:00

你界面上有没有check1(0),check1(1),check1(2)这三个checkbox 控件数组？或者说这控件名字是不是对的追问如果没有，要怎么加进去呢？？，怎么知道是不是对的？？我是菜鸟啊！能不能帮我把代码打出来。。

追答呃代码是没错的。。是你界面的控件可能是错的。。。