Отправляет email-рассылки с помощью сервиса Sendsay

Visual Basic.NET. Уроки

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.031 RSS
←   Март 2004   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31


За последние 60 дней ни разу не выходила


Сайт рассылки: http://progs.biz
Открыта: 17-03-2002

Автор
Алексеев Игорь

Статистика

6.031 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic.NET. Уроки


Информационный Канал Subscribe.Ru

VB.NET. Создание компонентов. Уроки с сайта http://progs.biz

Рассылка № 55

VB.NET. Создание компонентов. Урок 5. Добавление обработчика для щелчка мыши.
Полные версии уроков (с картинками) можно найти по адресам:
Урок 5. Добавление обработчика для щелчка мыши.
Ч. Петцольд. Программирование для Microsoft Windows на Microsoft Visual Basic .NET. Том 1.

Заказать на Озоне

Подробнее
Рассылки сайта progs.biz через subscribe.ru
Delphi. Уроки
Delphi. Уроки. Уровень - от начинающего до профи. Каждый урок рассчитан на 15 - 20 минут. Темы - библиотека VCL, создание компонентов, FAQ, работа с базами данных (InterBase и др).

VB.NET Создание компонентов. Урок 5. Добавление обработчика для щелчка мыши

Рассмотрим добавление обработчика для нашего компонента на примере щелчка для левой кнопки мыши.

В нашем примере мы будем прищелчке мыши изменять цвет надписи на нашем компоненте случайным образом.

Для этого, во-первых, мы добавим три переменные трех составляющих цвета в класс компонента:

Public Class UserControl1
    ...
    'Переменные для хранения цвета
    Private _red, _green, _blue As Byte
    ...

Во-вторых, мы внесем изменения в OnPaint:

    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim g As Graphics
        g = e.Graphics()
        g.DrawString(k.ToString(), New Font("Arial", 16), _
                New SolidBrush(Color.FromArgb(_red, _green, _blue)), _
                Me.Width / 2, Me.Height / 2)
    End Sub

Конкретно тут мы создали новую кисть случайного цвета, используя метод FromArgb класса Color:

...
New SolidBrush(Color.FromArgb(_red, _green, _blue))
 ...

И в-третьих, мы должны добавить обработчик для щелчка кнопки мыши. Для этого в левом combobox'е окна кода выбираем "UserControl1 Events", а в правом - "MouseDown".

В появившуюся заготовку вставляем следующий код:

    Private Sub UserControl1_MouseDown(ByVal sender As Object, _
        ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDown
        'Если нажата левая кнопка мыши.
        If e.Button = MouseButtons.Left Then
            Dim rnd As New Random
            'Получаем случайное число.
            _red = rnd.Next(0, 255)
            _green = rnd.Next(0, 255)
            _blue = rnd.Next(0, 255)
            'Перерисовываем.
            Invalidate()
        End If
    End Sub

Все! Теперь наш компонент при щелчке на нем будет менять произвольным образом цвет надписи.

Наверх
PARKING.RU. Качественный ВИРТУАЛЬНЫЙ ХОСТИНГ на платформе Windows(r): поддержка .NET, многофункциональная панель управления, аренда бизнес-приложений, сертифицированные специалисты. Управляемый ВЫДЕЛЕННЫЙ ХОСТИНГ на платформе Windows(r): производительные серверы, профессиональная поддержка, аренда ПО Microsoft(r), безопасность, гарантии. http://www.parking.ru
Copyright Алексеев Игорь, 2002-2004
Copyright сайт progs.biz, 2002-2004
Распространение материалов без разрешения владельцев авторских прав запрещено.

BannerDrive.ru
http://subscribe.ru/
E-mail: ask@subscribe.ru 		Отписаться
Убрать рекламу
В избранное