VB怎么获取HTML里select的Option里的内容

'引用Microsoft HTML Object Library库

Private Sub Command1_Click()

    Dim doc As New HTMLDocument

    docbodyinnerHTML = Text1Text '用HTMLDocument来解析网页文本

    '获取select标签

    Dim objSelect As HTMLSelectElement

    Set objSelect = docgetElementsByName("ctl00$MainContent$tabContainer$tbZFile$ucSeaExZDFileDetail$ddlDelTerm")Item(0)

    Dim i As Integer

    Dim objOption As HTMLOptionElement

    For i = 0 To objSelectlength - 1 '检索Option对象

        Set objOption = objSelectItem(i)

        List1AddItem objOptionText '添加到列表框中

    Next

End Sub

如果select标签是有id属性的，如

<select

id=xx>

则用下述方法获取当前选项的值：

var

v

=

xxvalue;

或

var

v

=

documentgetElementById("xx")value;

//此方法兼容性好

如果select标签是有name属性的，如

<form

name=form1>

<select

name=xx>

则用下述方法获取当前选项的值：

var

v

=

form1xxvalue;

或

var

v

=

documentgetElementsByName("xx")[0]value;

如果同一页面含有多个name属性相同的标签，则上述[0]中的数字要改为相应的物理顺序号（从0起算）

如果select标签不含有任何可供定位的属性，如

<select>

则用下述方法获取当前选项的值：

var

v

=

documentgetElementsByTagName("select")[0]value;

如果同一页面含有多个select标签，则上述[0]中的数字要改为相应的物理顺序号（从0起算）

以上就是关于VB怎么获取HTML里select的Option里的内容全部的内容，包括:VB怎么获取HTML里select的Option里的内容、JavaScript怎样获取select标签当前选择的值呢、等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！