Мой Kbyte.Ru
Рассылка Kbyte.Ru
Группы на Kbyte.Ru
Партнеры Kbyte.Ru
Реклама
Сделано руками
Сделано руками
> Исходные коды - kebo -

Visual Basic .NET - Элементы управления Windows

Все примеры / Интерфейс / Элементы управления Windows

Продолжительность зажатия кнопки (Button)

Автор: kebo | добавлено: 06.03.2010, 16:44 | просмотров: 1375 (2+) | комментариев: 0 | рейтинг: *x0
В данном примере реализован таймер, подсчитывающий продолжительность зажатия кнопки (Button). Таймер запускается через определенный период времени, когда происходит событие MouseDown и останавливается, когда происходит событие MouseUp.

Инструкции

Для работы примера, необходимо на форме разместить Label1 и Button1.

Код

Public Class Form1
 
  '*******************************************************************
  'http://vbnet.su - Visual Basic .NET. Статьи. Примеры. Форум.
  '*******************************************************************
 
  Private WithEvents MouseDownTimer As New Timer
  Private WithEvents HoldActiontimer As New Timer
  Private i As Integer = 0
 
  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    AddHandler MouseDownTimer.Tick, AddressOf MouseDownTimer_Tick
    AddHandler HoldActiontimer.Tick, AddressOf HoldActiontimer_Tick
    'устанавливаем период в миллисекундах, через который нужно запускать таймер, после зажатия кнопки мышкой
    Me.MouseDownTimer.Interval = 1000
    'шаг, в миллисекундах
    Me.HoldActiontimer.Interval = 100
  End Sub
 
  Private Sub Button1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown
    Me.MouseDownTimer.Start()
  End Sub
 
  Private Sub Button1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseUp
    'когда кнопка мышки отжата, останавливаем таймер
    Me.MouseDownTimer.Stop()
    Me.HoldActiontimer.Stop()
  End Sub
 
  Private Sub MouseDownTimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Me.HoldActiontimer.Start()
  End Sub
 
  Private Sub HoldActiontimer_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs)
    Call MouseHoldAction()
  End Sub
 
  Private Sub MouseHoldAction()
    i += 1
    Me.Label1.Text = i.ToString()
  End Sub
 
End Class
Об авторе

kebo

Нет информации об авторе...
kebo
Последние комментарии (всего: 0)

Добавлять комментарии могут только зарегистрированные пользователи сайта.
Если у Вас уже есть учетная запись на Kbyte.Ru, пройдите процедуру авторизации OpenID.
Если Вы еще не зарегистрированы на Kbyte.Ru - зарегистрируйтесь.


Нет комментариев...

Авторизация
 
OpenID
Зарегистрируйся и получи 10% скидку на добавление своего сайта в каталоги! Подробнее »
Поиск по сайту
Люди на Kbyte.Ru
Реклама
Счетчики