主要用于自动填表,解决联动下拉框。
省 的自动选择成功后,市级、县级都需要手动点击才显示,
用审查元素测试,发现可以直接 ”市“ 级选择时,在这里面增强一行选项代码即可。只是本人初用VB,不知如何用vb webbrowser在指定位置上插入代码,或修改成想要的?
请教!
<select id="Area">
<option value="">选择区县</option>
</select>
希望改成:
<select id="Area">
<option value="">选择区县</option>
<option value="320100">吴江市</option>
</select>
省 的自动选择成功后,市级、县级都需要手动点击才显示,
用审查元素测试,发现可以直接 ”市“ 级选择时,在这里面增强一行选项代码即可。只是本人初用VB,不知如何用vb webbrowser在指定位置上插入代码,或修改成想要的?
请教!
<select id="Area">
<option value="">选择区县</option>
</select>
希望改成:
<select id="Area">
<option value="">选择区县</option>
<option value="320100">吴江市</option>
</select>
解决方案 »
- 如何触发鼠标右健的单击事件,(用API)
- 我的老板是不是在利用我?
- 专业级的商业源码
- 怎麼樣實現3D鼠標的滾輪轉,在grid控件中的記錄會自動翻頁?
- 用True DBGrid控件自带的打印方法如何设置打印纸张为A3,A4,B4.....?
- 在线等如何把MSHFlexGrid查询出来的数据输入到EXCEL中
- 程序中访问EXCEL工作表,如果它有密码,可不可以打开呢?
- 哪位大哥知道哪有解压缩的软件
- adodc问题
- 急!急!急!急!如何在VB程序中实现自动传递E-Mail用户名登录elong,WEB页面信箱????急!急!急!急!
- 急急急! webbrowser中如何模拟点击下拉列表(select)选项
- VBA通过dos命令操作SVN,对已经提交的代码加注释。
W1.Document.All.tags("option").Item(i).innerHtml = W1.Document.All.tags("option").Item(i).innerHtml & "</OPTION>" & "<br><OPTION value=320506 >苏州2"
在<option value="">选择区县</option> 后加 "</OPTION> <OPTION value=320506 >苏州2"没用呀在
忘了去掉一些不相关代码(虽然不影响)W1.Document.All.tags("option").Item(i).innerHtml = W1.Document.All.tags("option").Item(i).innerHtml & "</OPTION>" & "<br><OPTION value=320506 >苏州2"
在<option value="">选择区县</option> 后加 "<OPTION value=320506 >苏州2</OPTION>"
</OPTION>是闭合标签,要放在后面的
在<option value="">选择区县</option> 后加 "<OPTION value=320506 >苏州2</OPTION>"
</OPTION>是闭合标签,要放在后面的
第一次就是这样做的呀追加
<OPTION value=320506 >苏州2</OPTION>不成功,
得出来的效果是显示text是:选择城市<OPTION value=320506 >苏州2</OPTION>所以,后来想到构造成:选择城市</OPTION><OPTION value=320506 >苏州2</OPTION>就出现了上面的结果。还是不行(同时我把选择城市直接改成了 苏州市,截图时在再试这个了,所以截图不完全一样)就是输什么代码就进去,最终还是文本形式。
w=W1.Document.All.tags("option").Item(i)w.innerHtml = w.innerHtml & 代码 这种方式吧!后面想到偏方,基础不扎实又要迅速达到目的,完成。于是就干脆把“选择城市”的 value 和 innertext都直接赋值了,也成功提交了,这样结果事实比增加选项还更高效直接。
好像还没必在 添加了。也就是解决了。但我得学会,所以继续请教。
感谢