ディスプレイの解像度を取得する 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、ディスプレイの解像度を取得ことが可能です。この機能を使えば、簡単に、画面にあわせてスケーリングされたアプリケーションを作成する場合などに応用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、テキストボックスコントロール、 ボタンコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━┓ ┃TextBox2 ┃ ┗━━━━━━━━━━━┛ ┏━━━━┓ ┃Button1 ┃ ┗━━━━┛２．ボタンコントロールの Button1 text プロパティに「取得」と記述します。 ※説明用のためです。必須ではありません。 ┏━━━━━━━━━━━┓ ┃TextBox1 ┃ ┗━━━━━━━━━━━┛ ┏━━━━━━━━━━━┓ ┃TextBox2 ┃ ┗━━━━━━━━━━━┛ ┏━━━━┓ ┃取得 ┃ ┗━━━━┛３．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 次のコードを記述します。 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４．ビルドして実行します。５．フォームに表示された ボタン「変換」を押します。６．フォームに表示された上のほうにある テキストボックスに、スクリーン構造体の内容が表示されます。 ※TextBox1７．フォームに表示された下のほうにある テキストボックスに、スクリーンの幅と高さが表示されます。 ※TextBox2-----------VB.NETコーディングここまで-------------------本サンプルでは幅と高さを取得するパターンを同時に２つ実行しています。１つ目は、スクリーン構造体から取得する２つ目は、スクリーン構造体のメンバから取得するといったものです。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
