Question

vb中未找到方法或数据成员是什么意思

Private Sub Form_Click()
Dim num As Integer
Dim flag As Boolean
End Sub

Private Sub HScroll1_Change()
step.Text = HScroll1.Value
End Sub

Private Sub Image1_Click(Index As Integer)
If Not flag Then Exit Sub
Image1(Index).Top = 8500
Image1(Index).Left = Int(ren * 8000)
num = num + 50
score.Text = num
End Sub

Private Sub start_Click()
Randomize
Timer1.Interval = 50 * (6 - HScroll1.Value)
HScroll1.Enabled = False
For i = 0 To 4
Image1(i).Top = 8500
Image1(i).Left = Int(Rnd * 8000)
Next
num = 0
score.Text = num
flase = True
End Sub

Private Sub stop_Click()
Timer1.Interval = 0
hscorell1.Enabled = True
flag = False
End Sub

Private Sub Timer1_Timer()
For i = 0 To 4
Image1(i).Top = Image1(i).Top - 200
If Image1(i).Top <= 0 Then
MsgBox "您本次的得分是：" & Str(num)
Timer1.Interval = 0

End Sub

Answer 1

Dim num As Integer
Dim flag As Boolean

Private Sub HScroll1_Change()
step.Text = HScroll1.Value
End Sub

Private Sub Image1_Click(Index As Integer)
If Not flag Then Exit Sub
Image1(Index).Top = 8500
Image1(Index).Left = Int(Rnd * 8000)
num = num + 50
score.Text = num
End Sub

Private Sub start_Click()
Randomize
Timer1.Interval = 50 * (6 - HScroll1.Value)
HScroll1.Enabled = False
For i = 0 To 4
Image1(i).Top = 8500
Image1(i).Left = Int(Rnd * 8000)
Next
num = 0
score.Text = num
flag = True
End Sub

Private Sub stop_Click()
Timer1.Interval = 0
HScroll1.Enabled = True
flag = False
End Sub

Private Sub Timer1_Timer()
For i = 0 To 4
Image1(i).Top = Image1(i).Top - 200
If Image1(i).Top <= 0 Then
MsgBox "您本次的得分是：" & Str(num)
Timer1.Interval = 0
End Sub

错误的产生几乎都是由于你把控件、函数或变量的名称写错了，这对于编程序来说是很致命的。你再仔细检查一遍！
另外，num和flag两个变量的定义要放在过程外面才能成为全局变量

追问

可是还是依旧会有这个问题存在

追答

你说说具体是哪一行出错嘛，省得我们瞎猜了。
还有一种可能是你在界面上放的控件名称跟代码里的名称不符，比如你检查一下窗体上有没有名为step和score的文本框控件，如果没有，或者名称不符，也会提示“未找到方法或数据成员”的。

Answer 2

这个错误一般是因为 某个控件的属性或者成员不存在 造成的，也就是说点号后面的东西不是点号前面的对象所有拥有的，一般为属性名称写错或者成员名称写错了造成的。 建议在写对象的属性或者成员名称时使用VB的自动提示器来选择，这样容易避免写错。

Answer 3

哪一行出错？