コントロールの長押しイベントをクリックイベントと区別したい。

Question

お世話になっております。
作成したアプリの機能拡張をしたいと思っています。
コントロールのクリックイベントを使って別フォームを開き、したい動作をするアプリなのですが、
もう1種類の動作をさせたいので、長押しを検知してまた別のフォームを開いてほしいです。
簡単に以下のコードのように作ってみたのですが
Timer1.Tickのイベントが起こると、必ずForm2も開かれてしまいます。
素早くクリックするだけだったらTimer1.tickは起こらないので、Form2が開かれるだけです。
しかし、それぞれ独立した動作にしたいと思っています。
どのように改良すれば目的の動作が得られるでしょうか。
簡単なことなのかもしれませんが、どうかお知恵をお貸しいただけないでしょうか。
宜しくお願いします。

   Private Sub btnUP_MouseDown() Handles btnUp.MouseDown
        Timer1.Enabled = True
    End Sub

    Private Sub btnUp_MouseUp() Handles btnUP.MouseUp
        Timer1.Enabled = False
    End Sub

    Private Sub Timer_Tick() Handles Timer1.Tick
        Debug.Print("mouse down")
    End Sub

    Private Sub btnUP_Click(sender As Object, e As EventArgs) Handles btnUP.Click
        Dim f As New Form2
        f.ShowDialog()
        f.Dispose()
    End Sub

Answer 1

Tickイベントが起きたらなんかフラグを立てて、Clickのときにそのフラグ見て動作をキャンセルさせるようにすればどうでしょう

Comments

[hanbee.com]

ご回答ありがとうございます。
timer1は仮に5秒と設定していますが、そのやり方だとtickイベントが起こる前にクリックイベントが呼び出されませんか。

[y_waiwai]

ならクリックイベントじゃなくて、MouseUpイベントでForm2開けるようにすればいいのでは

[hanbee.com]

なるほど。動作をキャンセルさせるようなフラグというのはどういうものなのでしょうか

[hanbee.com]

自分で調べます

[y_waiwai]

boolの変数用意しとけばいいんです
MouseDown　その変数をTrueに
MouseUp その変数がTrueのときにForm2を開け、変数をFalseにする
tick その変数がTrueのときのみ長押し処理を行い、、変数をFalseにする

[hanbee.com]

なるほど。返信が遅く大変失礼しました。
昨日ウェブサーチであれこれと調べていたんですが、わからなさ過ぎて寝てしまいました。
今、waiwai様の回答を見て、なるほど！と思った次第です。
早速やってみます。
目的の動作ができれば、報告いたします。ご回答ありがとうございます。

[hanbee.com]

Public Class Form1
Public cancel As Boolean

Private Sub btnUP_MouseDown() Handles btnUP.MouseDown
cancel = True
Timer1.Enabled = True
End Sub

Private Sub btnUP_MouseUp(sender As Object, e As MouseEventArgs) Handles btnUP.MouseUp
Timer1.Enabled = False

If cancel = True Then
Dim f As New Form2
f.ShowDialog()
f.Dispose()
ElseIf cancel = False Then
MessageBox.Show("mouse down")
End If

End Sub

Private Sub Timer_Tick() Handles Timer1.Tick
cancel = False
Timer1.Enabled = False
End Sub

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Timer1.Interval = 2000
Timer1.Enabled = False
End Sub
End Class

このようにすることで、目的の動作を実現できました。
ここでかなり詰まっていたので、とてもうれしいです。
本当にありがとうございました。

[hanbee.com]

もはやクリックイベントを使わなくてもいいんですね。
なるほど。
作成したアプリで適用できるか見てみたいと思います。

[hanbee.com]

作成したアプリでも無事適用することができました。本当にありがとうございました。
この回答をBAとさせていただきます。