ボタンの検知

すみません。初心者です。教えてください。
フォームにボタン１個、テキストボックス１個のプログラムです。

Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim chr As String
Dim chr2 As String
chr = "■"
chr2 = Label1.Text
Label1.Text = chr2 & chr
End Sub
このプログラムで
・ボタンを「押すたび」に"■"→"■■"→"■■■"と増えていきます。
これを
・ボタンを「押しままにすると」"■"→"■■"→"■■■"と増えていくようにするにはどうしたらよいでしょうか？

例えばタイマー使って100ms毎とかで"■"の数を増やしたいと思っていますが、「ボタンを押している」ということをどのように拾ったらいいか考えてもわかりません。
どなたかすみませんが教えてください。

No.2 ベストアンサー 回答者： Wizard_Zero 回答日時： 2009/05/21 23:52

Button1のMouseDown, MouseUp, KeyDown, KeyUp各イベントの中に書けばOKです。

Private Sub Button1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyDown
' スペースキーが押された
If e.KeyCode = Windows.Forms.Keys.Space Then
' ここでタイマースタート
End If
End Sub

Private Sub Button1_KeyUp(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Button1.KeyUp
' スペースキーを放した
If e.KeyCode = Windows.Forms.Keys.Space Then
' ここでタイマー停止
End If
End Sub

Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
' マウスの左ボタンを押した
If e.Button = Windows.Forms.MouseButtons.Left Then
' ここでタイマースタート
End If
End Sub

Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
' マウスの左ボタンを放した
If e.Button = Windows.Forms.MouseButtons.Left Then
' ここでタイマー停止
End If
End Sub

っと大事なことを忘れていました。
KeyDownイベントはキーを押している間、一定間隔でKeyDownイベントが発生し続けます。タイマーがすでに稼動している時は何も処理しないようにしたほうがよいでしょう。MouseDownとMouseUpはマウスボタン１回のクリックにつきそれぞれ１回ずつしか発生しません。

この回答へのお礼

できました。お手数おかけしました。
ありがとうございます。

お礼日時：2009/05/22 13:38

No.1 回答者： Wizard_Zero 回答日時： 2009/05/21 16:23

月並みですが、MouseDownからMouseUpが発生するまで、スペースキーのKeyDownからKeyUpが発生するまで「ボタンが押されている」と判断できます。

MouseDown/KeyDownでタイマーを開始し、MouseUp/KeyUpでタイマーを停止すればご希望の動作になると思います。

この回答へのお礼

早速回答ありがとうございます。
オブジェクトに対して何か書き込んでいくイメージが強いのですが、
この場合「Button1」に対してどのように「MouseDown」を書けばよいのでしょうか？
検索してもわからないのでお教えいただけませんでしょうか。

お礼日時：2009/05/21 21:37