vb.net一知半解,今天想把一个vb6.0的代码改成vb.net,以便于使用vb.net的多线程功能
可是问题出现了,在vb.net中无法获得链接地址,而在vb6.0中可以
大家给看一下
b6.0中代码:

Dim UrlNow As IHTMLDocument2
Set UrlNow = WebBrowser1.Document
If UrlNow Is Nothing Then
MsgBox "当前页面没有链接", vbInformation, "注意"
Else
Dim UrlIndex As Long
For UrlIndex = 0 To UrlNow.links.length - 1
Listurl.AddItem UrlNow.links(UrlIndex)
Next UrlIndex
End If
可以在列表框中显示所有的地址列表
而在vb.net中代码
:
Dim UrlNow As mshtml.IHTMLDocument2
UrlNow = WebBrowser1.Document

Dim UrlIndex As Integer
For UrlIndex = 0 To UrlNow.Links.Count - 1
LstUrl.Items.Add(UrlNow.Links(UrlIndex))
Next
出现在列表的却不是网址
不知为什么
大家看看
还出现一个错误
错误 1 接口“mshtml.IHTMLElementCollection”没有默认属性，因此不能被索引。
大家如果还有别的方法可以写下来
谢谢!

ghXJzBni.rar (51.36 KB) [求助]关于获得网页中的超链接(有代码)

[此贴子已经被作者于2007-9-19 19:13:38编辑过]

ndMXHrTe.rar (3.27 KB) [求助]关于获得网页中的超链接(有代码)