Lightbox Info Board : SQLの窓

1) プロジェクトの追加で、「標準 EXE」を選択
2) Project1 を MyBrowser に変更
3) Form1 を Browser に変更
4) 名前を付けてプロジェクトの保存を行う

1) 「プロジェクト」から「コンポーネント」を選択
2) Microsoft Internet Controls にチェックを付けて「OK」

1) 「ツールボックス」で「WebBrowser」を選択
2) フォームに適当な大きさで張り付ける
3) オブジェクト名を WebBrowser1 から WWW に変更する


' *************************************************
' 初期ページ
' *************************************************
Private Sub Form_Load()

    With WWW
        .Navigate2 "http://www.yahoo.co.jp"
    End With

End Sub

1) 実行して確認する

WWW の基本調整

プロジェクトに、「標準モジュール」を追加
Module1 を WINAPI に変更
以下を　「General」に追加


Type RECT
        Left As Long
        Top As Long
        Right As Long
        Bottom As Long
End Type
Declare Function GetClientRect Lib "user32" _
(ByVal hwnd As Long, _
lpRect As RECT) As Long

Public Const SM_CYMENU = 15
Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long

Browser の ScaleMode を「ピクセル」に変更
以下のコードを実装する


Private Sub Form_Load()

    With WWW
        .Navigate2 "http://yahoo.co.jp"
    End With
    
    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 WWW
        .Left = 0
        .Top = 0
        .Width = rc.Right
        .Height = rc.Bottom - GetSystemMetrics(SM_CYMENU)
    End With

End Sub