vb中 “未找到方法或数据成员”是什么原因？
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两个变量的定义要放在过程外面才能成为全局变量
未找到方法或数据成员（错误 461）
集合、对象或用户定义类型不包含引用的成员。该错误发生的原因和解决方法如下：
对象或成员名称拼写错误。
检查名称拼写并检查 Type 语句或对象文档，以确定成员以及对象或成员名称的正确拼写。
您指定了一个超出范围的集合索引。
检查 Count 属性以确定某个集合成员是否存在。注意，集合索引从 1 开始，而不是从 0 开始，因此 Count 属性返回最大可能的索引数
未找到方法或数据成员（错误 461）
集合、对象或用户定义类型不包含引用的成员。该错误发生的原因和解决方法如下：
*对象或成员名称拼写错误。
检查名称拼写并检查 Type 语句或对象文档，以确定成员以及对象或成员名称的正确拼写。
*指定了一个超出范围的集合索引。
检查 Count 属性以确定某个集合成员是否存在。注意，集合索引从 1 开始，而不是从 0 开始，因此 Count 属性返回最大可能的索引数。
下图演示了引用Type用户自定义类型不存在的元素名称，而引发的未找到方法或数据成员（错误 461）。
'在我这上面显示很正常啊
'你改用下面代码看看，跟你的功能是一样的
Private Sub Cmddisplay_Click()
Dim str1, str2, str3 As String
str1 = IIf(optman.Value, "性别：男", "性别：女")
str2 = IIf(opthan.Value, "汉族", "少数民族")
str3 = IIf(optyes.Value, "是党员", "非党员")
End Sub
补充：不需要吧，OptionButton组件默认情况下都是可以加载的，工程 —>引用里面，我的机子上选中的是前四项
你另外建一个新的工程，代码用简单点测试了看看是不是系统出了问题
'添加窗体Form1,单选框Option1，按钮Command1
'复制如下代码：
Private Sub Command1_Click()
MsgBox Option1.Value
End Sub
'如果以上不能运行或者显示的结果不是false的话建议你重装vb
默认情况下是未选种的,结果应该是false,你编译成exe文件拷贝到别人的机器上运行看看,如果还是true的话就重装vb吧,重装也很快的几分钟就搞定了
你的代码中使用了某一控件的属性，而你未引用该控件。
代码是啥？
原因就是“未找到方法或数据成员”
按钮的缺省名是Command，不是Cmd
禾牵科米： Private Sub Form_Click() Dim x As Integer, y As Integer, z As Integer x = Text1.Text y = Text2.Text z = x * y Text3.Text = Str(z) End Sub
道县17381253663： VB中说未找到方法或数据成员是什么意思啊 - ？
禾牵科米： List1.FontColor = CommonDialog1.FontColor Text1.FontColor = CommonDialog1.FontColor 改为 List1.ForeColor = CommonDialog1.Color Text1.ForeColor = CommonDialog1.Color 不管是List1、Text1还是CommonDialog1,都不存在FontColor这个属性的,所以会提示未找到方法或数据成员!
道县17381253663： vb中出现未找到方法或数据成员是什么问题? - ？
禾牵科米： '在我这上面显示很正常啊'你改用下面代码看看,跟你的功能是一样的 Private Sub Cmddisplay_Click() Dim str1, str2, str3 As String str1 = IIf(optman.Value, ＂性别:男＂, ＂性别:女＂) str2 = IIf(opthan.Value, ＂汉族＂, ＂少数民族＂) str3 ...
道县17381253663： VB未找到方法或数据成员 - ？
禾牵科米： 已经测试,没有错误,只要在Text1.Text到Text4.Text有值就可以 Private Sub Command1_Click() Dim a, b, c, d, x, y As Single a = Val(Text1.Text) b = Val(Text2.Text) c = Val(Text3.Text) d = Val(Text4.Text) Text5.Text = (b - d) / (c - d) Text6.Text = b - x * a End Sub 如果你的仍然有错误“未找到方法或数据成员”,说明你的VB有问题.你是什么系统?
道县17381253663： 急!!!VB提示“未找到方法或数据成员” - ？
禾牵科米： 程序调试最好说明一下,是在什么情况下出现问题的,比如是在加载某个窗体或单击某个按钮时发生,还是在运行某个过程时发生等等.初步判断:modal没有赋值 第一个窗口 Private Sub cmdfont_Click() frmfont.Show modal End Sub
道县17381253663： vb运行时显示未找到方法或数据成员是怎么回事? - ？
禾牵科米： 方法或属性拼写错.从你的程序看不出问题,检查其它地方是否有错误.
道县17381253663： vb提示未找到方法或数据成员 - ？
禾牵科米： Open ＂path.dat＂ For Output As 1 第一 路径错误 path.dat 只是文件 你的路径呢? 第二 是 #1 不是 直接1
道县17381253663： 未找到方法或数据成员 VB - ？
禾牵科米： 将:Dim rs_find As New ADODB.Recordset Dim conn As New ADODB.Connection 改为:Dim rs_find As ADODB.Recordset Dim conn As ADODB.Connection set rs_find = New ADODB.Recordset set conn = New ADODB.Connection 试试
道县17381253663： vb中出现＂未找到方法或数据成员＂ - ？
禾牵科米： With Me.mnuFile.Enabled = False.mnuRecord.Enabled = False.mnuMan.Enabled = False.mnuBonus.Enabled = False.mnuCar.Enabled = False.mnuMater.Enabled = False.mnuWork.Enabled = False.mnuWindow.Enabled = False.mnuSysEdit....
道县17381253663： VB未找到方法或数据成员 - ？
禾牵科米： Private Sub Command1_Click()Dim a As StringDim b As StringDim c As StringDim d As StringDim e As Stringa = Text1.Textb = Text2.Textc = Text3.Textd = Text4.Texte = Text5.TextEnd S...
