[u757207]

--------------------
閱讀本主題的最佳解答
--------------------


如填入台灣郵政裡的鄉鎮市區下拉式選單：
http://www.post.gov.tw/post/internet....jsp?ID=190102

拉下下拉式選單選擇「桃園縣」後方的下拉式選單會產生「查桃園全區」......
如果使用VB填入select的Value值也是選值桃園縣 則後方的下列式選單沒有反應
有大大知道問題是出在哪嗎？
網頁語法：

<span class="bigger">縣市/鄉鎮【市】區</span> 
<select name="city" onChange="javascript:citychange();" class="select">
                      <option value="%" >請選擇</option>
                      <option value="基隆市" >基隆市</option>
                      <option value="台北市" >台北市</option>
                      <option value="台北縣" >台北縣</option>
                      <option value="桃園縣" >桃園縣</option>
                      <option value="新竹市" >新竹市</option>
                      <option value="新竹縣" >新竹縣</option>
                      <option value="苗栗縣" >苗栗縣</option>
                      <option value="台中市" >台中市</option>
                      <option value="台中縣" >台中縣</option>
                      <option value="彰化縣" >彰化縣</option>
                      <option value="南投縣" >南投縣</option>
                      <option value="雲林縣" >雲林縣</option>
                      <option value="嘉義市" >嘉義市</option>
                      <option value="嘉義縣" >嘉義縣</option>
                      <option value="台南市" >台南市</option>
                      <option value="台南縣" >台南縣</option>
                      <option value="高雄市" >高雄市</option>
                      <option value="高雄縣" >高雄縣</option>
                      <option value="屏東縣" >屏東縣</option>
                      <option value="台東縣" >台東縣</option>
                      <option value="花蓮縣" >花蓮縣</option>
                      <option value="宜蘭縣" >宜蘭縣</option>
                      <option value="澎湖縣" >澎湖縣</option>
                      <option value="金門縣" >金門縣</option>
                      <option value="連江縣" >連江縣</option>
                    </select>

VB程式碼：

Private Sub Command1_Click()
Dim vDoc, vTag
Dim i As Integer
Set vDoc = WebBrowser1.Document
For i = 0 To vDoc.All.length - 1
       If UCase(vDoc.All(i).tagName) = "SELECT" Then
          Set vTag = vDoc.All(i)
          If vTag.Name = "city" Then
              vTag.Value = "桃園縣"
          End If
       End If
   Next i
End Sub
--------------------------------------------------------------------
Private Sub Form_Load()
WebBrowser1.Navigate2 "http://www.post.gov.tw/post/internet/f_searchzone/index.jsp?ID=190102"
End Sub