10/01/13 02:10:44
>>561 さんのコードを元に>>519さんと同じ事を学習用に
やっているのですがどうも次のキャストで失敗する為に
後続処理のページ内の各オブジェクトにアクセスする事が出来ません。
>>561さんは、キャストもせずになぜそのまま出来たのでしょうか？
※対象コード
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As System.Object, ByVal e As
System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
state = state + 1
If state = 1 Then
Dim doc As HTMLDocument
Try
'(Ａ）
doc = DirectCast(WebBrowser1.Document, HTMLDocument)
'(B）
'doc = WebBrowser1.Document
Catch ex As Exception
Debug.WriteLine(ex.Message)
End Try
※エラー内容
System.InvalidCastException = {"型 'System.Windows.Forms.HtmlDocument'
のオブジェクトを型 'mshtml.HTMLDocument' にキャストできません。"}
(A)(B)いずれのコードでも同一のエラーが表示されてしまいます。