準備

  Visual Basic 6.0 起動





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

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

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

1) Form_Load を以下のようにする

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

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

End Sub
  

1) 実行して確認する

  WWW の基本調整



  1. プロジェクトに、「標準モジュール」を追加
  2. Module1 を WINAPI に変更
  3. 以下を 「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

  

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

  
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

  











   SQLの窓    create:2002/08/23  update:2014/09/07   管理者用(要ログイン)





フリーフォントWEBサービス

SQLの窓WEBサービス

SQLの窓フリーソフト

写真素材

一般WEBツールリンク

SQLの窓

フリーソフト

JSライブラリ