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...