7.3 ウィンドウの操作 - VBScript & JScript(JavaScript) Tips for WSH

7.3 ウィンドウの操作

　VBS(WSH)でインターネットエクスプローラのウィンドウの外観や大きさ、表示する位置などを変更する方法です。まぁ、基本的には「だから何だ？」というような内容ですが…（汗）

外観を変えるためのプロパティ

　外観を変えるためには、IEオブジェクトの各種のプロパティを使います。代表的な物は次の通り！

Width	ウィンドウの幅を変更。ピクセル数で指定。
Height	ウィンドウの高さを変更。ピクセル数で指定。
Top	デスクトップ上の横位置を変更。ピクセル数で指定。
Left	デスクトップ上の縦位置を変更。ピクセル数で指定。
Statusbar	ステータスバーの表示切り替え。Trueが表示、Falseが非表示。
StatusText	ステータスバーに表示するメッセージの指定。普通に文字列を入れる。
Toolbar	ツールバーの表示切り替え。Trueが表示、Falseが非表示。
AddressBar	アドレスバーの表示切り替え。Trueが表示、Falseが非表示。ただし、ツールバーが非表示(False)のときは指定しても変化ナシ。

使用例

　例では、上記のプロパティを使ってインターネットエクスプローラ画面をいろいろ変更してみました。

　最初に、ステータスバーとツールバーが無い状態で小さめに表示します。画面が表示されると大きさを変えながら左に移動し、ある程度移動すると止まります。止まると、ステータスバーを表示しメッセージを表示。その後画面がだんだん小さくなり、最後に消えます。

　ちなみに、消えるというのはインターネットエクスプローラを終了したので消えただけです。

Option Explicit

Dim objIE
Dim i
Dim intWidth
Dim intHeight
Dim intX
Dim intY

'初期設定(ウィンドウサイズ、表示位置に使用)
intWidth = 320
intHeight = 240
intX = 200
intY = 300

'IEオブジェクトを作成します
Set objIE = CreateObject("InternetExplorer.Application")

'ウィンドウの大きさを変更します
objIE.Width = intWidth
objIE.Height = intHeight

'表示位置を変更します
objIE.Left = intX
objIE.Top = intY

'ステータスバーとツールバーを非表示にします
objIE.Statusbar = False
objIE.AddressBar = False

'インターネットエクスプローラ画面を表示します
objIE.Visible = True

'全体を左に移動しながらウィンドウサイズを少しずつ変更します
For i=1 to 50

    intWidth = intWidth + 4
    intHeight = intHeight + 2

    intX = intX + 4
    intY = intY - 1

    'ウィンドウサイズを変更します
    objIE.Width = intWidth
    objIE.Height = intHeight

    'ウィンドウ表示位置を変更します
    objIE.Left = intX
    objIE.Top = intY

Next

'ステータスバーを表示します
objIE.Statusbar = True
WScript.Sleep(500)

'ステータスバーにメッセージを表示します
objIE.StatusText="ばいばい！"
WScript.Sleep(2000)

'全体を少しずつ小さくします
For i=1 To 20

    intWidth = intWidth - 12
    intHeight = intHeight - 12

    intX = intX + 6
    intY = intY + 6

    'ウィンドウサイズを変更します
    objIE.Width = intWidth
    objIE.Height = intHeight

    'ウィンドウ表示位置を変更します
    objIE.Left = intX
    objIE.Top = intY

Next

'インターネットエクスプローラを終了します
objIE.Quit

'オブジェクトの破棄
Set objIE = Nothing

[PR]結城圭介。が書いたVBS(WSH)の本

■最速攻略 VBScriptサンプル大全集
◆最速攻略 Excel VBA サンプル大全集

（アマゾンへジャンプします）

VBScript&JScript Tips

■インターネットエクスプローラ操作編

7.インターネットエクスプローラの操作
  7.1 IEオブジェクトを作る(～IE6編)
     ・Internet Explorer 6での方法
     ・ついでにIEの終了方法
  7.11 IEオブジェクトを作る(IE7編)
     ・Internet Explorer 7での方法
  7.2 IE画面を表示・非表示にする
  7.3 ウィンドウの操作
     ・ウィンドウサイズの指定
     ・表示位置の指定
     ・ステータスバーへ文字列を表示、その他
  7.4 指定したページを表示
     ・ついでに読み込みが終わるまで待つ方法
  7.5 ページを書き込む
     ・ついでに画面をクリアする方法
  7.6 ページのタイトルを取得する
  7.7 <BODY>部のHTMLを取得する
     ・ついでに<BODY>部のテキストも取得
  7.8 フォームの操作1
     ・テキストボックスなどへ値を入れる方法
     ・他にボタンを押したりなど
  7.9 フォームの操作2
     ・フォームを送信する方法
  7.10 フォームの操作3
     ・フォーム名やコントロール名が無い場合の対処

■基本編
■ファイル・フォルダ操作編
■Excel & Access操作編
■インターネットエクスプローラ操作編
■データアクセス編

Happy! Happy! Islandその他のコンテンツ

■VBAプログラミング、その他
　Access VBAプログラミング＆Tips
　Excel VBA(エクセルマクロ)プログラミング＆Tips
　VBScript＆JScriptプログラミング＆Tips for WSH
　プログラミング基礎・入門
　HTMLの書き方
■ダウンロードコーナー
　AccessとExcelのフリーソフト
■コミュニティー
　VBA質問掲示板
■その他
　オレの話を聞けぇ♪（仮称／コラム）
　管理人プロフィール
　管理人へメール
■別館(海外向けサイト)
　SAMURAI Game Center - Freeware games for Microsoft ACCESS and EXCEL!

VBAプログラミング＆Tips集の
"Happy! Happy! Island"トップページへ

[リンク]IT関連情報サイトなど

gihyo.jp
技術評論社提供のIT関連コンテンツサイト

モーグ
スキルアップ・問題解決はモーグにおまかせ！

[リンク]一番クリックした国が優勝

ClickClickClick.com
クリッカー＆認証人募集！日本を1位にしよう！もちろん、おいらも参加中！各種情報の入手はClickJapanオフィシャルサイトで。

[PR]証券会社・投資運用関連サイト

カブドットコム証券
逆指値・W指値等の自動売買でリスク管理追求型の投資が可能！引け後のIRやニュースを見てからでも間に合う夜間取引も魅力！

マネックス証券
オンライントレード・自動売買の最先端！「逆指値・ツイン指値」でリスクコントロール！デイトレードなら片道手数料無料！

Ｅ＊トレード証券
オンライン専業証券№１の口座数！業界最低水準の手数料体系と充実のサービスラインナップ！

楽天証券のマーケットスピード
ネット証券最強のトレーディングツール「マーケットスピード」でプロ水準の投資環境がご自宅のパソコンに！

オンライン証券徹底比較
価格．ｃｏｍで証券徹底比較！手数料、取引商品、信用取引金利、逆指値などの注文方法や提供情報などを徹底比較！