戻る

画面解像度の取得

目的

画面解像度をピクセル単位で取得します。

ポイント

Visual Basic は Twip 単位を基準としているのでピクセルに変換します。

サンプルコード


    ' 画面解像度( 800 * 600 など)を取得しラベルに表示する
    Label1.Caption = Screen.Width / Screen.TwipsPerPixelX
    Label2.Caption = Screen.Height / Screen.TwipsPerPixelY

ダウンロードファイルはありません。