各位高手，求救啊，VB生成可执行程序是提示“未找到方法或数据成员."

[baosou]

新手啊，找书本学习了一段时间，编了个程序，运行调测没有错误，可生成可执行程序是提示“未找到方法或数据成员”，
请大家看看错误在那里啊，谢谢大家了！

总体框架：

Private Sub cmdGet_Click()
'
Dim iCount As Integer
'Dim objNode As New Node
If lstLinks.SelCount = 0 Then
'
MsgBox "Please Select a Link"
Exit Sub
Else
'
'objNode.Text = lstLinks.Text
'For iCount = 0 To lstLinks.ListCount - 1
iCount = 0
While iCount <= lstLinks.ListCount - 1

If lstLinks.Selected(iCount) Then

trvLinks.Nodes.Add , , , lstLinks.List(iCount)
getLinks lstLinks.List(iCount), 2, trvLinks.Nodes.Count
lstLinks.RemoveItem (iCount)
lstLinks.Refresh
Else
iCount = iCount + 1
End If

Wend
'Next

'
End If
'
End Sub

Private Sub cmdStart_Click()
'
'1 will populate lstlinks with all the parent links in the requested URL
getLinks txtURL.Text, 1
'
End Sub
Private Sub getLinks(strURL As String, iParentChild As Integer, Optional iParentNo As Integer)
'
Dim objLink As HTMLLinkElement
Dim objMSHTML As New MSHTML.HTMLDocument
Dim objDoc As New MSHTML.HTMLDocument
Dim objNode As Node
'
Set objDoc = objMSHTML.createDocumentFromUrl(txtURL.Text, vbNullString)
'
MousePointer = vbHourglass
While objDoc.readyState <> "complete"
DoEvents
Wend
'get all Links
For Each objLink In objDoc.links
'
If iParentChild = 1 Then
'
lstLinks.AddItem objLink
'
ElseIf iParentChild = 2 Then
'
'lstInnerLinks.AddItem objLink

Set objNode = trvLinks.Nodes.Add(iParentNo, tvwChild)
objNode.Text = objLink
'objNode.Image = "leaf"
'
End If
'
Next
MousePointer = vbNormal
'
End Sub

Private Sub Form_Load()
'

'
End Sub

Private Sub trvLinks_DblClick()
'
getLinks trvLinks.SelectedItem.Text, 2, trvLinks.SelectedItem.Index
'
End Sub

[luofenghen]

一句话 没有引用控件

[chinaboyzyq]

未找到方法或数据成员（错误 461）


集合、对象或用户定义类型不包含引用的成员。该错误发生的原因和解决方法如下：

对象或成员名称拼写错误。
检查名称拼写并检查 Type 语句或对象文档，以确定成员以及对象或成员名称的正确拼写。

您指定了一个超出范围的集合索引。
检查 Count 属性以确定某个集合成员是否存在。注意，集合索引从 1 开始，而不是从 0 开始，因此 Count 属性返回最大可能的索引数。

[舉杯邀明月]

友情Up...........

[hbkjccl]

看看是哪一行报错就知道怎么回事了

[hbkjccl]

LZ可以检查下treeview控件 或者 缺少引用

[wangli820]

没有引用控件

[guyehanxinlei]

检查引用是否完全

[mkx00623]

先帮忙顶下吧，我也不会

[hfCoder]

友情up

[孤独剑_LPZ]

查看工程目录下的.log文件,看提示什么

[cjyh0045]

u p

[hfCoder]

u p

[hjker007]

你程序中有一句没执行，或没有用的代码写错了！

[fzx4936]

如果是没有引用的错误 在运行调测时就会抱错的
楼主说测试运行没问题 恐怕某段过程没有测试到
建议楼主重新测试，要使每一行代码全部运行一次，这样一定会暴露出哪一行出现问题了。

[zouqingfeisony]

你从工程里面添加引用

[碧海情天-赵亮]

在ＶＢ里按ＣＴＲＬ+Ｆ５运行程序，会找到问题所在的行。

[百事洞明]

要把出错位置标出!
估计是你没加引用

[lovessll]

应该是没有加引用所致。