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