VB.NET2010 Timerの使用

質問

こんにちは、冬の猫と申します。
VB.NET2010にて、教えて頂きたく投稿します。

現在作成中のプログラムの簡易仕様は、
(1)フォーム上に複数のボタンが配置されている。
(2)ボタンの上にマウスを載ったタイミングで0.5秒カウントする。
(3)0.5秒のカウントが終わるまでマウスがボタンの上にあれば、ボタンのサイズを大きくする。
(4)ボタンの上からマウスがなくなれば、ボタンを元のサイズに戻す。

という形になっているのですが(3)の実装がうまくいきません。
以下にソースコードを貼り付けます。

Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
'ボタンのサイズ共通化処理
Dim o As Control
For Each o In Me.Controls
If o.GetType Is GetType(Button) Then
o.Size = New Size(50, 50)
End If
Next
For Each ctl As Control In Me.Controls
If TypeOf ctl Is Button Then
AddHandler CType(ctl, Button).MouseEnter, AddressOf Button_MouseEnter
End If
Next
For Each ctl2 As Control In Me.Controls
If TypeOf ctl2 Is Button Then
AddHandler CType(ctl2, Button).MouseLeave, AddressOf Button_MouseLeave
End If
Next
End Sub

Private Sub Button_MouseEnter(sender As System.Object, e As System.EventArgs)
'マウスが乗った時
'ボタンの取得
Dim btn As Button = CType(sender, Button)
btn.Size = New size(100, 100)
End Sub

Private Sub Button_MouseLeave(sender As System.Object, e As System.EventArgs)
'マウスが離れた時

'ボタンの取得
Dim btn As Button = CType(sender, Button)
btn.Size = New Size(50, 50)

End Sub

End Class

細かい処理は割愛していますが、大まかにはこの様な処理を作成しました。
インターネットからのコピーアンドペーストもあるので、少し不細工な形になっています。
これに、タイマーイベントを実装したいのですが
ボタンの上にマウスが乗った際に、タイマーをスタートさせて
該当するボタンのオブジェクトを取得できず困っております。

ご教授のほど、よろしくお願いします。

回答No.2

田中 裕之（@bybalsendercase） · ベストアンサー

再び失礼します

Timerが必須だといけませんので、Timerを使用した場合のサンプルを作成しました。

かなり適当に作成してますのでWinterCat-Huyuさんの目的に合わせて調整してください。

Public Class Form1
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Shown
'ボタンのサイズ共通化処理
Dim o As Control
For Each o In Me.Controls
If o.GetType Is GetType(Button) Then
o.Size = New Size(50, 50)
End If
Next
For Each ctl As Control In Me.Controls
If TypeOf ctl Is Button Then
AddHandler CType(ctl, Button).MouseEnter, AddressOf Button_MouseEnter
End If
Next
For Each ctl2 As Control In Me.Controls
If TypeOf ctl2 Is Button Then
AddHandler CType(ctl2, Button).MouseLeave, AddressOf Button_MouseLeave
End If
Next
End Sub
Dim btn As Button ' Timer1_Tickで参照できるようにここで変数宣言
Private Sub Button_MouseEnter(sender As System.Object, e As System.EventArgs)
btn = sender
btn = CType(sender, Button)

'Timerの設定
Timer1.Interval = 1000
Timer1.Enabled = True
End Sub
Private Sub Button_MouseLeave(sender As System.Object, e As System.EventArgs)
'マウスが離れた時
'ボタンの取得
Dim btn As Button = CType(sender, Button)
btn.Size = New Size(50, 50)
End Sub
Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
'マウスが乗った時
'ボタンの取得
btn.Size = New Size(100, 100)

'Timerを無効にする
Timer1.Enabled = False
End Sub
End Class

お礼

bybalsendercase様

ありがとうございます。
記入が入れ違いになってしまったようです・・・

ご指摘いただいた通り、
Dim btn As Button ' Timer1_Tickで参照できるようにここで変数宣言
が抜けておりました。

また、記述の方法も勉強になります。
貴重なお時間をありがとうございました。

回答No.1

田中 裕之（@bybalsendercase）

こんばんは

今回はTimerが必須ですか？

もしTimerが必須でなければ、下記のコードのように１行追加するだけですみますが、だめですか？

Private Sub Button_MouseEnter(sender As System.Object, e As System.EventArgs)
'0.5秒間お休み
Threading.Thread.Sleep(500)
'Application.DoEvents()
'マウスが乗った時
'ボタンの取得
Dim btn As Button = CType(sender, Button)
btn.Size = New Size(100, 100)
End Sub

ダメな場合は教えてください。
よろしくお願いします。

お礼

bybalsendercase様

ありがとうございます。

文章として抜けておりました、ボタンに0.5秒の間マウスが乗っていなければ
アクションをおこなさいという処理がほしかったのです。
ボタンが50個（5×10）ほど並んでおりマウスを目的のボタンに移動するたびに
マウスの軌跡上にあるボタンが大きくなるので困っておりました。
この件は、先ほど解決しましたので記載します。

Dim btn As Button
Private Sub Button_MouseEnter(sender As System.Object, e As System.EventArgs)
'Application.DoEvents()
'マウスが乗った時
'ボタンの取得
btn= CType(sender, Button)
timer1.start
End Sub

Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
btn.Size = New Size(100, 100)
Timer1.Stop
End Sub

Private Sub Button_MouseLeave(sender As System.Object, e As System.EventArgs)
'マウスが離れた時
Timer1.stop
'ボタンの取得
btn = CType(sender, Button)
btn.Size = New Size(50, 50)

End Sub

※タイマーインターバル＝300ぐらい

となりました
Dim btn As Button
を、グローバルで宣言するだけです＾＾；
灯台もと暗しでした・・・

お騒がせしてすみません、アドバイスありがとうございました。