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

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

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

Мигание кнопки

Автор: Леонид | добавлено: 04.12.2014, 14:10 | просмотров: 3563 (5+) | комментариев: 0 | рейтинг: *x6
Примеры показывают как заставить мигать кнопку.

Инструкции

для 1 способа На форме Label и Button Timer=True, interval=10

для 2 способа На форме Button Timer=True, interval=300

Код

' 1 способ:
   Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        Static A1
        A1 = A1 + 10
        If A1 > 510 Then A1 = 0
        Button1.BackColor = System.Drawing.Color.FromArgb(Math.Abs(A1 - 255), 0, 0)
        ' Button1.BackColor = Color.FromArgb(Math.Abs(A1 - 255), 0, 0)' так тоже работает
        Label1.BackColor = System.Drawing.Color.FromArgb(Math.Abs(A1 - 255), 0, 0)
    End Sub

'2 способ:
Dim Mig As Boolean

    Private Sub Timer1_Tick(sender As System.Object, e As System.EventArgs) Handles Timer1.Tick
        If Mig = True Then
            Me.Button1.BackColor = Color.Red
            Mig = False
            Application.DoEvents()
        Else
            Me.Button1.BackColor = Color.Orange
            Mig = True
            Application.DoEvents()
        End If

Об авторе

Леонид

Нет информации об авторе...
Леонид
Другие примеры этого автора (всего: 2)
Последние комментарии (всего: 0)

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


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

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