目前.NET 2.0正式版已经发布;
http://www.microsoft.com/downloads/details.aspx?familyid=0856EACB-4362-4B0D-8EDD-AAB15C5E04F5&displaylang=zh-cn
'引用Microsoft HTML Object Library库Private Sub Command1_Click()
Dim doc As New HTMLDocument
doc.body.innerHTML = Text1.Text '用HTMLDocument来解析网页文本
'获取select标签
Dim objSelect As HTMLSelectElement
Set objSelect = doc.getElementsByName("ctl00$MainContent$tabContainer$tbZFile$ucSeaExZDFileDetail$ddlDelTerm").Item(0)
Dim i As Integer
Dim objOption As HTMLOptionElement
For i = 0 To objSelect.length - 1 '检索Option对象
Set objOption = objSelect.Item(i)
List1.AddItem objOption.Text '添加到列表框中
Next
End Sub
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)