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

Visual Basic.NET. Уроки

Подписаться Бесплатная «Золотая» новостная рассылка . Подписчиков 6.038 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.038 подписчиков
0 за неделю
←   Все выпуски   →

Visual Basic.NET. Уроки


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

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

Рассылка № 55

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