ステータスバーに、チップテキスト
第3回は、タイトルどうりですね。↓
こういうやつです。つまり、マウスがコマンドボタン等の上にあるとき
説明をステータスバーに表示する。これだけです。
まずコンポーネントから MicrosoftWindowsCommomComtrol Xを選択
して、ステータスバーを配置したあと、Styleを1-sbrSimpleに設定してください。
かっこいいアプリをつくろうTips
↑(当社比) ↑(アプリケーション)
ステータスバーに、チップテキスト
第3回は、タイトルどうりですね。↓
こういうやつです。つまり、マウスがコマンドボタン等の上にあるとき
説明をステータスバーに表示する。これだけです。
まずコンポーネントから MicrosoftWindowsCommomComtrol
Xを選択
して、ステータスバーを配置したあと、Styleを1-sbrSimpleに設定してください。
サンプルから抜粋しました。
| Private Sub Command1_MouseMove(Button As
Integer, Shift As Integer, X As Single,
Y
As Single) StatusBar1.SimpleText = "コマンドボタン1です" End Sub Private Sub Command2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) StatusBar1.SimpleText = "コマンドボタン2です" End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) StatusBar1.SimpleText = "" End Sub |
前回を見れば理解できると思いますので、説明はしません(^^;)
サンプルのダウンロード
さぁNO3もおわりですが、アプリはかっこよくなったでしょうか?
ならなかった人は、次回に期待!!