|
Azulean 様
感謝いたします！
実は一度投稿したのですが、何故か反映されなかったので、もう一度書き込みます。
そのままですが
Dim element As GeckoHtmlElement = Nothing
Dim geckoDomElement = geckoWebBrowser1.Document.DocumentElement
If TypeOf geckoDomElement Is GeckoHtmlElement Then
element = DirectCast(geckoDomElement, GeckoHtmlElement)
Dim innerHtml = element.InnerHtml
End If
1行で書くなら
Dim html as String = DirectCast( geckoWebBrowser1.Document.DocumentElement , GeckoHtmlElement).InnerHtml
でもいけました。
（Imports Gecko が必要）
ありがとうございました！！！！
|