dincht55

 

    '主表單載入事件
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            loadPage(Url)  '載入網頁

            CtrlFormEM()   '控制程單元件(有二種範例說明)
    End Sub

    '戴入網頁
    Private Sub loadPage(Byval URL As String)
        WB.ScriptErrorsSuppressed = True
        WB.Navigate(URL)

        '等待網頁讀取完成
        Do Until WB.ReadyState = WebBrowserReadyState.Complete
            Application.DoEvents()
        Loop
    End Sub

    '控制程單元件 - 範例1
    Private Sub CtrlFormEM(ByVal c As String)
        Dim form As HtmlElement = WB.Document.GetElementById("Form1")   '取得表單元件
        form.All("view1_6").InvokeMember("Click")     '取得表單元件ID為 view1_6，並調用 Click (點擊)
        form.All("Button1").InvokeMember("Click")     '取得表單元件ID為 Button1，並調用 Click (點擊)
    End Sub

    '控制程單元件 - 範例2
    Private Sub CtrlFormEM()
        Dim form As HtmlElement = WB.Document.GetElementById("Form1")   '取得表單元件
        form.All("view1_7").InvokeMember("Click")     '取得表單元件ID為 view1_6，並調用 Click (點擊)
        form.All("year").SetAttribute("value", "2014")     '取得表單元件ID為 year，並設定元件的 value 為 2014
        form.All("month").SetAttribute("value", "12")     '取得表單元件ID為 month，並設定元件的 value 為 12
        form.All("Button1").InvokeMember("Click")     '取得表單元件ID為 Button1，並調用 Click (點擊)
    End Sub

以上範例就是基本的調用方式，其他元件大致相同。以上調用的表單，程式碼如下所示，請參考！

    <form name="Form1" method="post" action="UIP004INQ1.aspx?lang=zh-TW&whom3=USD" id="Form1">
        <!-- 第一段-單一幣別歷史匯率查詢 -->
        <table>
            <tr class="color0">
                <td class="title" style="width:25%;">查詢期間</td>
                <td style="width:75%;">
                    <input value="99" name="term" type="radio" id="view1_99" onclick="CheckInquiryPeriod();" checked="checked" />最近一個營業日
                    <br />
                    <input value="6" name="term" type="radio" id="view1_6" onclick="CheckInquiryPeriod();" />最近三個月走勢圖
                    <br />
                    <input value="7" name="term" type="radio" id="view1_7" onclick="CheckInquiryPeriod();" />指定年月 
                    <select id="year" name="year" title="請選擇西元年份">
                        <option value="2015" selected="selected">2015</option>
                        <option value="2014">2014</option>
                    </select>年
                    <select id="month" name="month" title="請選擇月份">
                        <option value="01">01</option>
                        <option value="02" selected="selected">02</option>
                        <option value="03">03</option>
                        <option value="04">04</option>
                        <option value="05">05</option>
                        <option value="06">06</option>
                        <option value="07">07</option>
                        <option value="08">08</option>
                        <option value="09">09</option>
                        <option value="10">10</option>
                        <option value="11">11</option>
                        <option value="12">12</option>
                    </select>月
                    <input type="hidden" name="day" value="01" />
                </td>
            </tr>
        </table>
        <br />
        <input id="Button1" name="Button1" type="submit" class="button" value="查詢" onclick="validateForm();" />
        <input id="Button5" name="Button2" type="button" class="button" value="關閉本頁" onclick="window.close();" />
    </form>