ツールチップの表示時間について (ID:112034)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >ツールチップ/ボタン/時間表示 あまり質問内容が把握できませんが、 【コマンドボタンにマウスポインタがある場合、コマンドボタンのToolTipTextに 現在時刻を表示したい】 ということでしょうか？Timerコントロールを使って Private Sub Timer1_Timer() Command1.ToolTipText = Format(Time, "hh:mm:ss") End Sub そのときのTimerのIntervalは1000(１秒)と設定すればよろしいのでは？ それとも質問内容は 【コマンドボタンのToolTipTextが表示された時刻をマウスポインタがある間表示したい】 ということでしょうか？ Private Sub Command1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) Command1.ToolTipText = Format(Time, "hh:mm:ss") End Sub ポインタが動くとイベントが再度発生するので、ToolTipTextは書き換わりますが・・・