Question

vb实时错误424要求对象的意思

Dim b(), s(), a(), x(), l(), m() As Double
Dim n As Integer
Dim namel As String
Dim ta, xa, ya, xb, yb, tb As Double
Private Sub Command1_Click()
CommonDialog2.ShowOpen
name2 = CommonDialog2.FileName
Shell (name2)
End Sub
Private Sub Command2_Click()
CommonDialog1.ShowOpen 显示这错误黄色
name1 = CommonDialog1.FileName
Open name1 For Input As #1
Input #1, n, ta, xa, ya, xb, yb, tb
ReDim b(n), s(n), a(n), x(n), y(n), l(n), m(n)
For v = 1 To n
Input #1, b(v), s(v)
Next v
Close #1
ta = rad(ta): tb = rad(tb)
For v = 1 To n
b(v) = rad(b(v))
Next v
Const pi = 3.1415926
For v = 1 To n
c = c + b(v): o = o + s(v)
Next v
e = tb - ta: f = c - e + n * pi
Do While f >= 2 * pi
f = f - 2 * pi
Loop
d = f * 206265
If Abs(d) >= 40 * n ^ 0.5 Then
MsgBox "闭合差超限"
End If
e = -f / n
For v = 1 To n
b(v) = b(v) + e
Next v
a(0) = ta
For v = 1 To n
a(v) = a(v - 1) + b(v) + pi
If a(v) >= 2 * pi Then a(v) = a(v) - 2 * pi
Next v
x(1) = xa: y(1) = ya
For v = 2 To n
x(v) = x(v - 1) + s(v - 1) * Cos(a(v - 1))
y(v) = y(v - 1) + s(v - 1) * Sin(a(v - 1))
Next v
h = x(n) - xb: i = y(n) - yb
j = (h ^ 2 + i ^ 2) ^ 0.5
k = 1 / (o / j)
If k >= 1 / 2000 Then
MsgBox "相对闭合差超限"
End If
For v = 1 To n - 1
l(v) = -(h / o) * s(v): m(v) = -(i / o) * s(v)
Next v
For v = 2 To n - 1
x(v) = x(v - 1) + s(v - 1) * Cos(a(v - 1)) + l(v - 1)
y(v) = y(v - 1) + s(v - 1) * Sin(a(v - 1)) + m(v - 1)
Next v
xa = Format(xa, " # # # . # # #")
ya = Format(ya, " # # # . # # #")
xb = Format(xb, " # # # . # # # ")
yb = Format(yb, " # # # . # # # ")
For v = 2 To n - 1
x(v) = Format(x(v), " # # # . # # # ")
y(v) = Format(y(v), " # # # . # # # ")
Next v
tta = dms(ta): ttb = dms(tb)
file = name1 + "result "
Open file For Output As #2
Print #2, "TA = "; tta, "XA = "; xa, "YA = "; ya
For v = 2 To n - 1
sl = "X ( " + Str(v) + " ) = ” ;s2 = “Y( " + Str(v) + " ) = "
Print #2, s1; x(v), s2; y(v)
Next v
Print #2, "XB = "; xb, "YB = "; yb, "TB = "; ttb
Close #2
MsgBox "计算结束 ! "
End Sub

Answer 1

vb提示要求对象时，就是有可能你代码里涉及到的对象可能没有在窗体里加载，你查看一下你的数据库，数据绑定控件有没有加载，其中datarrid1要在vb的部件里添加，我估计是你这个没有添加

Answer 2

CommonDialog1.ShowOpen 显示这错误黄色
因为前面已经有CommonDialog2.ShowOpen
能正常使用，那么，只有一个疑问，在当前窗体中有没有这个控件？

追问

我在部件中添加了 CommonDilog控件 还是显示这错误 是不是我用的vb6.0的问题呢

追答

如果CommonDialog2.ShowOpen这个运行是正常的
CommonDialog1.ShowOpen也应该正常运行，你再查看一下你加入的控件名称是什么。
或者重新加入一个CommonDialog控件试试

Answer 3

拼写错误:
Private
Sub
Command1_Click()
Image1.Visible
=
False
'隐藏笨蛋图像
Label1.Caption
=
Int(Rnd
*
10)
'得到随机数
Label2.Caption
=
Int(Rnd
*
10)
'
Label3.Caption
=
Int(Rnd
*
10)
'
'当某个标题内数值为7时显示笨蛋图像
If
(Label1.Caption
=
7)
Or
(Label2.Caption
=
7)
_
Or
(Label3.Caption
=
7)
Then
Image1.Visible
=
True
Beep
End
If
End
Sub