#176 ウィンドウのキャプションを設定する方法 VBA、API

ウィンドウのキャプション(タイトルバーに表示されているウィンドウの標題)を設定するにはWindowsAPIの「SetWindowText」関数を使用します。

まず標準モジュールに次のコードを記述します。"Declare"の前に"Private"を付けることによってフォームのモジュールにも記述できます。
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String) As Long

次の例では、WindowsAPIを使った1行のコードによって、Accessのウィンドウのタイトルを変更しています。これによって、"人事データ"という文字に続いて、現在年月が表示されます。
SetWindowText hWndAccessApp, "人事データ " & Format$(Date, "yyyy年mm月度")

実行結果:
実行結果のキャプション


※この方法は、そのウィンドウハンドルを指定することによって、Windows上のさまざまなウィンドウに対して使うことができます。上記のように、Accessのタイトルを変更するだけなら、WindowsAPIを使わない「#138 AccessのタイトルバーをVBAから変更する方法」のような方法もあります。ただし、#138と比べると、上記の方法では一時的にキャプションが変わるだけで、「起動時の設定」の「アプリケーションタイトル」は書き換えられないという違いがあります。
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved