BODY タグ内のソースを表示する

ダイアログを表示してその中にソースを表示

プロジェクトにフォームモジュールを追加
オブジェクト名を "Source" に変更

[ Browser フォームの処理 ]

「BODYタグ内のソース」というメニューを「mnuソース」という名前で作成
以下のコードを追加

Private Sub mnuソース_Click()

    Source.Show vbModal

End Sub

[ Source フォームの処理 ]

TextBox を追加
オブジェクト名を HTML に変更
MultiLine プロパティを True にする
以下のコードを追加

' *************************************************
' HTMLソース
' *************************************************
Private Sub Form_Load()

    Source.HTML.Text = Browser.WWW.Document.All.Tags("BODY")(0).InnerHTML
    
    Form_Resize
    
End Sub

' *************************************************
' コントロール位置の最適化
' *************************************************
Private Sub Form_Resize()

    If Me.WindowState = vbMinimized Then
        Exit Sub
    End If

    Dim rc As RECT
    
    GetClientRect Me.hwnd, rc
    
    With HTML
        .Top = 0
        .Left = 0
        .Width = rc.Right
        .Height = rc.Bottom
    End With
    
End Sub