<html> <body> <div>你去过那些地方？</div> <br /> <select name="调查" multiple="multiple" size="8"> <option value="河南省">河南省</option> <option value="湖北省">湖北省</option> <option value="黑龙江省">黑龙江省</option> <option value="江西省">江西省</option> <option value="新疆">新疆</option> <option value="内蒙古">内蒙古</option> <option value="西藏">西藏</option> </select> </body> </html>
如果一个网页中有多选列表框，特征是multiple="multiple"，可以按住Ctrl或Shift选择多选。
你去过那些地方？
SeleniumBasic中，有一些以Select和DeSelect开头的方法，用于操作多选下拉框。
- Sub SelectByIndex(index As Long)
- Sub SelectByText(Text As String, [partialMatch As Boolean = False])
- Sub SelectByValue(Value As String)
- Sub DeselectAll()
- Sub DeselectByIndex(index As Long)
- Sub DeselectByText(Text As String)
- Sub DeselectByValue(Value As String)
其中De开头的是反选，也就是取消选中。例如DeSelectAll可以全部不选。
但是Selenium没有全选的方法，如果要选择所有，需要在循环中单独选中每一个。实例如下：
Dim sel As SeleniumBasic.IWebElement Set sel = WD.FindElementByName("调查") Dim items() As SeleniumBasic.IWebElement items = sel.FindElementsByTagName("option") If sel.IsMultiple Then For i = 0 To UBound(items) sel.SelectByIndex i Next i End If If sel.IsMultiple Then sel.DeselectByText "江西省" sel.DeselectAll End If
程序中的For循环执行完后，列表框所有的项目都被选中了。
另外，SeleniumBasic提供了下拉列表框中遍历每个option的方法。
- Options：返回下拉列表框中所有option项
- AllSelectedOptions：返回处于选中状态的所有option项
- SelectedOption：返回选中的那一个option项
假设有3个被选中了，然后运行如下程序，打印出所有条目。
Dim Col() As IWebElement
Col = sel.Options
For i = 0 To UBound(Col)
Debug.Print Col(i).text
Next i
河南省
湖北省
黑龙江省
江西省
新疆
内蒙古
西藏
再运行如下程序，打印出处于选中的条目。
Col =sel.AllSelectedOptions
For i = 0 To UBound(Col)
Debug.Print Col(i).text
Next i
湖北省
江西省
西藏
最后运行 Debug.Print sel.SelectedOption.text
打印出：湖北省