VB 画面のサイズを取得する

画面のサイズを取得する

１．画面のサイズを取得する

　

Dim Rect As Rectangle
Rect = Screen.PrimaryScreen.Bounds

MsgBox(Rect.Width & ", " & Rect.Height)

メモ：この例は通常、Windowsアプリケーション上でのみ実行可能です。

　

２．画面の作業領域のサイズを取得する

　

Dim Rect As Rectangle
Rect = Screen.PrimaryScreen.WorkingArea

MsgBox(Rect.Width & ", " & Rect.Height)

メモ：MSDNライブラリによれば、作業領域とは「ディスプレイのデスクトップ領域からタスクバー、ドッキングされたウィンドウ、およびドッキングされたツールバーを除いた部分」を指します。

メモ：この例は通常、Windowsアプリケーション上でのみ実行可能です。

VB6ではScreenオブジェクトを利用します。 →VB6 ディスプレイのサイズを取得する