|
Private Sub Form_Load()
' 非表示にするとうまくいきません
WebBrowser1.Left = Me.Width + 100
End Sub
Private Sub Command1_Click()
WebBrowser1.Navigate ( _
"http://download.microsoft.com/download/" & _
"vb40ent/sample37/1/w9xnt4/en-us/vbinet.exe")
' 直接 API で行なう場合のサンプル --> vbinet.exe
End Sub
Private Sub WebBrowser1_DocumentComplete( _
ByVal pDisp As Object, URL As Variant)
' Multiline
Text1.Text = _
WebBrowser1.Document.All.Tags("BODY")(0).InnerHTML
' 実際実行してみて表示される結果を元にアプリのコントロールを行います
End Sub
| |