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?iType&cPact_No=" & txtNo.Text & " "

myIE.Visible = True

Set myIE = Nothing

Else

MsgBox "请选定一行记录"

End If