vb.net - 按住按钮控件时编写一个重复的 Sub

Question

我的应用程序中有一个表单，允许用户通过单击每个数字（小时、分钟、秒）的向上或向下按钮或直接使用键盘输入数字来输入时间。这是表单的捕获：

我正在尝试编写一个附加到MouseDown事件的事件处理程序，该事件将延迟两秒钟，然后开始向上或向下递增数字（取决于按住的按钮）直到按钮被释放。

如果我没有提供足够的信息，请告诉我，我会尽力详细说明。

Answer 1

如果您使用的是 WPF，则可以使用 aRepeatButton而不是 aButton

来自 MSDN 的示例：

<RepeatButton Width="100" DockPanel.Dock="Top" 
              Delay="500" Interval="100" 
              Click="Increase">
  Increase
</RepeatButton>

Private Sub Increase(ByVal sender As Object, ByVal e As RoutedEventArgs)    
    Num = CInt(valueText.Text)    
    valueText.Text = ((Num + 1).ToString())
End Sub

对于 WinForms，CodeProject 的本教程包含您需要了解的所有内容。

Answer 2

您想要实现的已经内置到 DateTimePicker 中，只需更改一些属性，用户在使用 updown 按钮之前单击时间部分以滚动浏览：

    Me.DateTimePicker1.Font = New System.Drawing.Font("Microsoft Sans Serif", 20.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    Me.DateTimePicker1.Format = System.Windows.Forms.DateTimePickerFormat.Time
    Me.DateTimePicker1.ShowUpDown = True