vb中调用aspx页面

1,首先在工程---引用,需要引用Microsoft Internet Controls

2,代码如下:
        Dim myIE As New InternetExplorer    '注意在代码中添加这句引用
        Dim itypeNo As String
        Dim i As Long
        itypeNo = ""
        itypeNo = FlexGrid.TextMatrix(FlexGrid.Row, 1)  '10064-产品
        itypeNo = Left(itypeNo, InStr(1, itypeNo, "-") - 1)  'itypeNo =10064
If itypeNo <> "" Then
            myIE.Navigate2 "http://129.0.0.2/sheji/sheetadd.aspx?iTypeID=" & itypeNo & "&cPact_No=" & txtNo.Text & " "
            myIE.Visible = True
            Set myIE = Nothing
        Else
            MsgBox "请选定一行记录"
End If

转载于:https://www.cnblogs.com/A-I/archive/2008/07/14/1242424.html