#176
ウィンドウのキャプション(タイトルバーに表示されているウィンドウの標題)を設定するにはWindowsAPIの「SetWindowText」関数を使用します。
まず標準モジュールに次のコードを記述します。"Declare"の前に"Private"を付けることによってフォームのモジュールにも記述できます。
Declare Function SetWindowText Lib "user32" Alias "SetWindowTextA" _
(ByVal hwnd As Long, ByVal lpString As String) As Long
(ByVal hwnd As Long, ByVal lpString As String) As Long
次の例では、WindowsAPIを使った１行のコードによって、Accessのウィンドウのタイトルを変更しています。これによって、"人事データ"という文字に続いて、現在年月が表示されます。
SetWindowText hWndAccessApp, "人事データ " & Format$(Date, "yyyy年mm月度")
実行結果：
※この方法は、そのウィンドウハンドルを指定することによって、Windows上のさまざまなウィンドウに対して使うことができます。上記のように、Accessのタイトルを変更するだけなら、WindowsAPIを使わない「#138 AccessのタイトルバーをVBAから変更する方法」のような方法もあります。ただし、#138と比べると、上記の方法では一時的にキャプションが変わるだけで、「起動時の設定」の「アプリケーションタイトル」は書き換えられないという違いがあります。
