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

Статьи по Visual Basic.NET

  Все выпуски  

Статьи по Visual Basic.NET Задание фонового рисунка его прорисовкой


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

В начало Ozon.ru
  Главная | Новости | Статьи | Каталог | Регистрация | Поиск

Свежие компьютерные новости

11.12.2005 Новый сервис Google поможет точно спланировать поездку
11.12.2005 Чипсет VIA CN700 IGP со встроенной графикой для процессоров C7
11.12.2005 МР3-плеер Samsung с поддержкой спутникового радио
11.12.2005 В IE7 будет изменена схема работы зон безопасности
10.12.2005 Модули памяти Samsung FB-DIMM ёмкостью 8 Гб

Задание фонового рисунка его прорисовкой

Фоновый рисунок можно создать, выведя его в контекст графического устройства формы, т. е. обработав событие Paint или реализовав метод OnPaintBackground, который обрабатывает событие, генерируемое при прорисовке фонового рисунка. Конечно, в этом случае также надо обработать событие Resize, обновляя изображение при изменении размеров формы пользователем. Ниже изображен код демонстрирующий подобный подход. Контекст графического устройства формы (экземпляр класса Graphics) возвращается методом Graphics класса PaintEventArgs пространства имен System.Windows.Form. Экземпляр этого класса является параметром метода OnPaintBackground, и он инкапсулирует все данные, связанные с этим объектом. Свойство ClipRectangle возвращает объект Rectangle – прямоугольную область, в которую выводится изображение. Метод Refresh класса Form вызывает перерисовку формы. Для того чтобы избежать ошибки, генерируемой при попытки загрузить несуществующий файл, в код введена проверка существования файла статическим свойством Exists класса System.IO.File.

Protected Overrides Sub OnPaintBackground(ByVal_
 pevent As System.Windows.Forms.PaintEventArgs)
    Dim filename As String = "c:\girl.bmp"
    If System.IO.File.Exists(filename) Then
        Dim img As Image = Image.FromFile(filename)
        pevent.Graphics.DrawImage(img, pevent.ClipRectangle)
    End If
End Sub

Protected Overrides Sub OnResize(ByVal e As System.EventArgs)
    Me.Refresh()
End Sub



Subscribe.Ru
Поддержка подписчиков
Другие рассылки этой тематики
Другие рассылки этого автора
Подписан адрес:
Код этой рассылки: comp.soft.prog.visualbnet
Архив рассылки
Отписаться
Вспомнить пароль

В избранное