タイトルバーの高さを調べる 【注意書き】●VB.NET を使っているものとします。●動作環境は、Windows XX を使用しているとします。.NET でも、タイトルバーの高さを取得することが可能です。この機能を使えば、簡単に、アプリケーション側でタイトルバーにあわせたラベルの設置を行って、オリジナルのタイトルバーを作りたいといった場合などに活用できます。フォームに次の様なコードを記述します-----------VB.NETコーディングここから-------------------１．フォームに、ラベルコントロール を配置します。 下記は、デフォルトのオブジェクトの名前と配置を示しています。 ┏━━━━━━━━━━━━┓ ┃Label1 ┃ ┗━━━━━━━━━━━━┛２．フォームをダブルクリックして、 フォームロードイベントのコード編集を開始して、 次のコードを記述します。 Private Sub Form1_Load(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles MyBase.Load With Label1 .Width = Me.Width 'タイトルバーの高さ .Height = SystemInformation.CaptionHeight '.Top = Me.Height - .Height - _ 'SystemInformation.CaptionHeight - 8 .Top = 0 .Left = 0 .BackColor = _ System.Drawing.Color.FromName("ActiveCaption") .Font = Me.Font .ForeColor = System.Drawing.Color.White .TextAlign = ContentAlignment.BottomLeft .Text = Me.Text End With End Sub３．ビルドして実行します。４．フォームに表示されたタイトルバーの真下に、 タイトルoーの長さと高さにあわせたラベルが 表示される事を確認できます。-----------VB.NETコーディングここまで-------------------本サンプルでは、ラベルコントロールへタイトルバーの高さを設置しています。 'タイトルバーの高さ .Height = SystemInformation.CaptionHeightSystemInformation クラスの CaptionHeight から取得しています本サンプルでは、比較の為、実際のタイトルバーの表示は、そのままにしています。オリジナルのウィンドウとタイトルバーを本格的に作る場合は、タイトルバーを消し、フォームをマウスドラッグできる形式にアプリケーション側を調整する必要がありますね。
Copyright(c)2001-2004 Ai Net Makoto 記事・情報の無断転載を禁止します。
