韩国名字女孩小名大全:VB中怎样让VB自己选择网页中select的内容

来源:百度文库 编辑:高校问答 时间:2024/04/28 20:55:14
VB中怎样让VB自己选择网页中select的内容 急
VB代码我是这样写的 请高手帮帮忙 赏20分

If vTag.Type = "select" Then '写发言内容,textarea表示文本区域
Select Case vTag.Name
Case "ReasonID" 'body是文本区域的name,从网页源码中查知。
vTag.Value = "<option value=1>好</option>"
End Select

网页中的代码是:

<td class=unnamed1 width="180"> <div align="right">原因:</div></td>
<td class=unnamed1> <font color="#000080">
<select style="BORDER-TOP-STYLE: groove; BORDER-RIGHT-STYLE: groove; BORDER-LEFT-STYLE: groove; BORDER-BOTTOM-STYLE: groove" size=1
name=ReasonID onchange="forqqversion(this)">
<!--<option value=0 selected>不清楚</option>-->
<!--<option value=1>好</option>-->
<!--<option value=2>很好</option>-->
<option value="">请选择...</option>
<option value=3>极好</option>
<option value=4>差</option>
<option value=5>极差</option>

<option value=6>其他</option>
</select>

请高手帮帮忙呀谢谢了!!!!!!!!!!!!

据我所知java script 是这样的
java script:
function forqqversion( me ){
me.selectedIndex = 3 '欲选择的opation排列
}

所以我猜vb script 也是一样
VB script:
sub forqqversion( me )
me.selectedIndex = 3 '欲选择的opation排列
end sub

能写完整的代码吗?谢谢了