A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
お世話になります。
以下のような感じでどうでしょうか?
Form9 にはデザイナで WebBrowser と MultiLine=True にしたTextBox、
Button を 2 個つけてあります。
Load イベントで http://oshiete.goo.ne.jp/ を読み込み、
Button1 を押下すると、ページのソースを TextBox にそのまま表示します。
Button2 を押下すると、ページのソースを HTML エンコーディングして TextBox に表示します。
Public Class Form9
Private Sub Form9_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Button1.Enabled = False
Me.Button2.Enabled = False
Me.WebBrowser1.Navigate("http://oshiete.goo.ne.jp/")
End Sub
Private Sub WebBrowser1_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
Me.Button1.Enabled = True
Me.Button2.Enabled = True
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.TextBox1.Text = Me.GetDocument(Me.WebBrowser1.Document.Encoding, Me.WebBrowser1.DocumentStream)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim html As String = Me.GetDocument(Me.WebBrowser1.Document.Encoding, Me.WebBrowser1.DocumentStream)
html = html.Replace("<", "<")
html = html.Replace(">", ">")
html = html.Replace(" ", "")
html = html.Replace(ControlChars.Quote, """)
html = html.Replace("&", "&")
Me.TextBox1.Text = System.Web.HttpUtility.HtmlEncode(html)
End Sub
Private Function GetDocument(ByVal enc As String, ByVal st As System.IO.Stream) As String
Dim buff(CInt(st.Length - 1)) As Byte
st.Read(buff, 0, CInt(st.Length))
Return System.Text.Encoding.GetEncoding(enc).GetString(buff)
End Function
End Class
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- アプリ Edgeを操作するアプリについて 4 2023/05/11 22:48
- JavaScript jsで診断コンテンツのページ内切り替えについて 1 2023/04/14 17:31
- Visual Basic(VBA) Edge操作のアプリが例外発生に 1 2023/03/12 21:22
- HTML・CSS ホームページにブログ記事をサムネイル付きで掲載する方法 2 2022/11/25 14:55
- Windows 10 パソコン初期化の件です 2 2022/06/05 11:05
- レシピ・食事 生パスタについて きしめんみたいな形の生パスタって表示時間より1分少なめに茹でたら流石に硬いですか? 3 2022/10/31 05:46
- レシピ・食事 お好み焼きに合うソースの作り方について 中濃ソースでお好み焼きに合うソース、中濃ソースを使った激辛ソ 1 2022/08/21 05:51
- 食べ物・食材 ミートソーススパゲティを作るときは、私はソースとパスタをフライパンで混ぜて作りますが、一般的には上に 10 2023/07/16 12:06
- レシピ・食事 お家でステーキを食べる時は、どんなソースが好きですか? 17 2022/09/13 09:26
- 食べ物・食材 中濃ソース以外のソース派って他のソースに対する偏見強すぎませんか?YouTubeのコメ欄に動画に関す 2 2022/11/18 20:39
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VBAで#Regionに変わるものは無...
-
Visual Source Safe?
-
COBOLのCALL文について
-
不明なタブ
-
ライブラリにない関数の定義
-
コンソールアプリの入出力
-
実行オブジェクトからソースを...
-
#ifdef多用でソースが見づらい
-
ソースの表示を無効にする方法。
-
VB2005ExpressEditionで、WebBr...
-
Dreamweaverのコードカラーが黒...
-
VisualBasicがインストールされ...
-
VB.NETのソースをDelphiに変換...
-
phpの表の作り方について
-
ARPツール
-
ポートスキャン
-
HTMLのソースを文字化けさせる...
-
JAVAとstrutsを利用...
-
マウスオーバーのやり方を教え...
-
ローカル環境とネット環境でホ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
レストラン、英語のメニュー表記
-
VBAで#Regionに変わるものは無...
-
Dreamweaverのコードカラーが黒...
-
ソースの追加行数と変更行数
-
#ifdef多用でソースが見づらい
-
JSPの実行結果をHTMLに変換
-
VBAでhtmlソースから特定の文字...
-
画像と文字が重なって表示される。
-
VB詳しい方
-
「MicrosoftVisualBasic6.0 行...
-
ソースの表示を無効にする方法。
-
htmlのタブの色変更について
-
【VB.NET】WebページのDOMソー...
-
c言語の改修されたソースから改...
-
Visual Source Safe?
-
VisualStudio2010でデバッグソ...
-
COBOLのCALL文について
-
HTMLのソースを文字化けさせる...
-
google Map APIの使い方
-
phpとaspの違い? 実力の違い?
おすすめ情報