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

Visual Basic.NET. Уроки

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

Visual Basic.NET. Уроки


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

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

Рассылка №53

VB.NET. Создание компонентов. Урок 3. Добавление метода.
Полные версии уроков (с картинками) можно найти по адресам:
Урок 3. Добавление метода.
Н. Секунов. Программирование на C++ в Linux.
Н. Секунов. Программирование на C++ в Linux
Заказать на Озоне

Подробнее
Рассылки сайта progs.biz через subscribe.ru
Уроки по C++ Builder
Уроки по программированию на C++ Builder. Библиотека VCL, создание собственных компонентов, работа с базами данных, примеры, FAQ. Уроки разбиты на серии. Каждая серия независима от других.

VB.NET Создание компонентов. Урок 3. Добавление метода

Теперь добавим к нашему компоненту метод.

Название для метода будет Rand, параметров у него не будет, возвращать же он будет случайное число от 1 до N и отображать это число на нашем компоненте.

Вот код для метода:

    Public Function Rand() As Int32
        'Объявляем экземпляр класса Random.
        Dim rnd As New Random
        'Получаем случайное число.
        k = rnd.Next(1, _N)
        'Перерисоваваем.
        Invalidate()
        Return k
    End Function

Так так тут мы использовали переменную k, то ее надо объявить на уровне класса нашего компонента:

    ...
    Dim k As Int32
    ...

Теперь надо написать код для перерисовки. Вот он:

    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.Black), _
                Me.Width / 2, Me.Height / 2)
    End Sub

Этот метод - перекрытый из родительского класса. Это означает, что заготовку для него не надо писать вручную - для его добавления в окне кода выбираем в левом combobox'е Overrides, а в правом - название метода OnPaint.

С добавлением метода все.

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

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