かっこいいアプリをつくろうTips
↑(当社比) ↑(アプリケーション)
シューティング風タイトルをつくる
第2回は、「シューティング風タイトルを作る」ですか。意味不明ですね(^^;)
つまりこんな感じです。↓
こういうやつです。つまり、マウスが文字の上にあると、色が変わる
↑では、赤になる。というやつです。
Private Sub Label1_MouseMove(Button
As Integer, Shift As Integer, X As Single,
Y As Single) Label2.ForeColor = &HFF& End Sub |
↑のコードは、Label1の上で、マウスをうごかしたとき文字の色を
&HFF&(赤)にするというものです。しかしこのままだとずっと赤のまま
なので、
Private Sub Form_MouseMove(Button As Integer,
Shift As Integer, X As Single, Y As Single) Label2.ForeColor = &HFF0000 End Sub |
これで、Label以外(Form)でマウスが動いたら、文字の色を、
&HF0000(青)にもどすことができます。
あとは、どこをクリックされたか?ですが、これは、Labelのクリックイベント
でOKだと思います。
サンプルを用意しましたので、ダウンロードしてみてください。
サンプルのダウンロード
さぁNO2もおわりですが、アプリはかっこよくなったでしょうか?
ならなかった人は、次回に期待!!