vb如何自动填写下拉列表

2024-12-14 15:48:20

推荐回答（1个）

回答1：

Private Sub Command1_Click()
WebBrowser1.Document.Form1.prov.Value = "14"
'通过onhange方法更新二级下拉列表
WebBrowser1.Document.Form1.prov.onchange
WebBrowser1.Document.Form1.city.Value = "2"
'各省的城市对应值可从"http://tanaer.60450.cn1/city.js"得到,以上以"山西"--"大同"为例
End Sub

Private Sub Form_Load()
WebBrowser1.Navigate "http://tanaer.60450.cn"
Command1.Caption = "填充"
End Sub

vb如何自动 填写下拉列表

vb如何自动填写下拉列表