HOME > 即効テクニック > AccessVBA > コーディング・デバッグ > ホップアップヒントを設定する

即効テクニック

コーディング・デバッグ

ホップアップヒントを設定する

(Access)
ホップアップヒントは、フォームに配置されたラベルやコマンドボタンにカーソルを合わせてしばらくすると表示される説明文のことです。
サンプルプロシージャでは、フォームとコマンドボタンを作成して、コマンドボタンに表示される文字列にサイズを合わせ、ホップアップヒントを表示しています。
標準モジュールに次のプロシージャを作成して下さい。

Sub Sample()
    Dim myForm As Form
    Dim myBtn  As Control
    
    Set myForm = CreateForm
    
    Set myBtn = CreateControl(myForm.Name, acCommandButton, , , , 200, 200)
    myBtn.Caption = "ホップアップヒントが出るよ"
    myBtn.SizeToFit
    myBtn.ControlTipText = "ホップアップヒントを利用しよう"
    
    DoCmd.Restore
    DoCmd.MoveSize 0, 0, 4000, 2000
    DoCmd.OpenForm myForm.Name
        
End Sub