【】Top

【】VB.NET
【】VB6.0

【】メールマガジンの購読
【】メールマガジンの解除






【】会社概要

【】お問い合わせ


姉妹サイト「バーチャルコネクション!」はこちらです。

姉妹サイト「七福神のメールでビンゴ!」はこちらです。

アイネットマコト

●24時間365日の安心をあなたにAT-LINK専用サーバ・サービスお勧めのサーバです。






ディスプレイの解像度を取得する

【注意書き】
●VB.NET を使っているものとします。
●動作環境は、Windows XX を使用しているとします。


.NET でも、ディスプレイの解像度を取得ことが可能です。

この機能を使えば、簡単に、
画面にあわせてスケーリングされたアプリケーションを作成する場合
などに応用できます。


フォームに次の様なコードを記述します


-----------VB.NETコーディングここから-------------------


1.フォームに、テキストボックスコントロール、
    ボタンコントロール
    を配置します。
    下記は、デフォルトのオブジェクトの名前と配置を示しています。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓
   ┃TextBox2              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓
   ┃Button1 ┃
   ┗━━━━┛



2.ボタンコントロールの
    Button1 text プロパティに「取得」と記述します。

  ※説明用のためです。必須ではありません。

   ┏━━━━━━━━━━━┓
   ┃TextBox1              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━━━━━━━━┓
   ┃TextBox2              ┃
   ┗━━━━━━━━━━━┛
   ┏━━━━┓
   ┃取得    ┃
   ┗━━━━┛




3.フォームをダブルクリックして、
    フォームロードイベントのコード編集を開始して、
    次のコードを記述します。


    Private Sub Button1_Click(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles Button1.Click
        Dim recScr As Rectangle

        'スクリーン構造体
        recScr = Screen.PrimaryScreen.Bounds
        TextBox1.Text = recScr.ToString

        '各値を指定して取得する場合
        TextBox2.Text = "幅=" & recScr.Width & _
        " :高さ=" & recScr.Height



    End Sub


4.ビルドして実行します。

5.フォームに表示された
    ボタン「変換」を押します。

6.フォームに表示された上のほうにある
    テキストボックスに、スクリーン構造体の内容が表示されます。
    ※TextBox1

7.フォームに表示された下のほうにある
    テキストボックスに、スクリーンの幅と高さが表示されます。
    ※TextBox2



-----------VB.NETコーディングここまで-------------------

本サンプルでは
幅と高さを取得するパターンを同時に2つ実行しています。

1つ目は、スクリーン構造体から取得する
2つ目は、スクリーン構造体のメンバから取得する

といったものです。




 

http://anetm.com/dev/d.cgi?SC=DTDTL&o=OmO

Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。

「これがほしかった!厳選サンプルツール集」の注意点
●当サイトはリンクフリーです。
2024/03/29(金)00:05 更新