Опубликован: 31.08.2006 | Доступ: свободный | Студентов: 3927 / 218 | Оценка: 4.14 / 3.89 | Длительность: 39:16:00
ISBN: 978-5-9570-0021-3
Лекция 17:

Добавление графики и эффектов анимации

< Лекция 16 || Лекция 17: 12345 || Лекция 18 >

Следующий шаг: изменение прозрачности формы

Интересуетесь одним из последних специальных эффектов? С помощью GDI+ вы можете сделать вещи, которые были сложными или невозможными в предыдущих версиях Visual Basic. Например, вы можете сделать форму практически прозрачной и видеть сквозь нее. Давайте предположим, что вы разрабатываете программу для показа фотографий, которая содержит отдельную форму, на которой расположены различные опции для манипулирования фотографиями. Вы можете сделать эту форму опций частично прозрачной, чтобы пользователь мог видеть всю область фотографии, при этом имея доступ к опциям.

В следующем упражнении показано, как изменять прозрачность формы. Это делается с помощью изменения значение свойства Opacity (Непрозрачность).

Установка свойства Opacity

  1. В меню File (Файл) щелкните на команде Close Solution (Закрыть решение).
  2. В папке c:\vbnet03sbs\Гл.16 создайте новый проект с именем My Transparent Form.
  3. Отобразите форму, щелкните в Области элементов на элементе управления Button, а затем нарисуйте в форме две кнопки.
  4. Установите для формы и двух ее кнопок следующие свойства:

    Объект Свойство Установка
    Button1 Text Установить непрозрачность
    Button2 Text Восстановить
    Form1 Text Прозрачная форма
  5. Сделайте двойной щелчок мышью на кнопке Установить непрозрачность формы.
  6. Введите в процедуре события Button1_Click следующий код программы:

    Me.Opacity = 0.75

    Непрозрачность задается в процентах, так что ее диапазон имеет границы от 0 до 1. Эта строка устанавливает Opacity формы Form1 (Me) на 75 %.

  7. Снова отобразите форму, сделайте двойной щелчок мышью на кнопке Восстановить, а затем введите в процедуре события Button2_Click следующий код программы:

    Me.Opacity = 1

    Эта строка восстанавливает непрозрачность на значение 100 процентов.

  8. Чтобы запустить программу, щелкните на кнопке Start (Начать).

    Примечание. Готовая программа Transparent Form лежит в папке c:\vbnet03sbs\Гл.16\transparent form.
  9. Щелкните на кнопке Установить непрозрачность. Обратите внимание, что сквозь форму, показанную ниже, можно видеть.


  10. Щелкните на кнопке Восстановить. Эффект прозрачности исчезнет.
  11. Когда вы закончите тестировать эффект прозрачности, щелкните на кнопке Закрыть, чтобы выйти из программы. Программа остановится, и вернется среда программирования.

Краткая справка по лекции 16

Чтобы Сделайте следующее
Создать линии или фигуры

Используйте методы из пространства имен System.Drawing.Graphics. Например, следующие операторы программы рисуют на форме эллипс:

Dim GraphicsFun As System.Drawing.Graphics
GraphicsFun = Me.CreateGraphics
Dim PenColor As New System.Drawing.Pen _
(System.Drawing.Color.Red)
GraphicsFun.DrawEllipse(PenColor, 10, _
120, 200, 160)
Создать линии или фигуры, которые сохраняются в форме при перерисовке окна Поместите графические методы в процедуру события Paint формы.
Переместить объект по форме

Переместите объект с помощью свойства Location, ключевого слова New и структуры Point. Например:

PictureBox1.Location = New Point(300, 200)

Измените в процедуре события таймера свойства Left, Top или Location объекта.

Анимировать объект Свойство Interval таймера управляет скоростью анимации.
Расширить или сжать объект во время выполнения программы Измените свойства Height или Width объекта.
Изменить прозрачность формы Измените свойство Opacity.
< Лекция 16 || Лекция 17: 12345 || Лекция 18 >
Жанболат Шаймерден
Жанболат Шаймерден

Можно ли выбирать язык для надписей и команд в среде разработки?

Анатолий Федоров
Анатолий Федоров
Россия, Москва, Московский государственный университет им. М. В. Ломоносова, 1989
Светлана Ведяева
Светлана Ведяева
Россия, Саратов