Выгрузка рисунков

Рисунки, помещенные в PictureBox, не удаляются, а выгружаются. Для выгрузки рисунка в процессе разработки программы необходимо выделить в строке свойства Picture слово bitmap и нажать клавишу Del.

Выгрузка рисунка в процессе работы осуществляется этой же функцией без указания имени файла:

Объект.Picture = LoadPicture()

Пример 4.10. Вывод текста и рисунка

Private Sub Form_Click()

Cls

Dim X As Single, Y As Single

picPicture1.CurrentX = 100

picPicture1.CurrentY = 100

picPicture1.Print "Ввод текста красным цветом"

'Тип шрифта, начертание, высота и некоторые атрибуты

' можно выбирать и в режиме диалога

picPicture1.Font.Italic = False

picPicture1.Font.Size = 12

picPicture1.ForeColor = vbRed

picPicture1.CurrentX = 400

picPicture1.Print "Ввод текста красным цветом"

picPicture1.CurrentX = 700

picPicture1.CurrentY = 600

picPicture1.Font.Size = 8

picPicture1.ForeColor = vbBlack

picPicture1.Print "Ввод текста черным цветом, при Х=700 твипов "

' Управление рисунком

X = 2000: Y = 1000

picPicture1.DrawWidth = 15

picPicture1.PSet (X, Y), vbRed

picPicture1.CurrentX = 900: picPicture1.CurrentY = 900

picPicture1.Print "Рисунок"

picPicture1.DrawWidth = 2

picPicture1.Line (0, 0)-(3000, 1500), vbBlue

picPicture1.Circle (2000, 1000), 500, vbGreen

picPicture1.CurrentX = 1100: picPicture1.CurrentY = 1200

picPicture1.Print "Рисунок1"

End Sub

Элемент PictureBox позволяет преобразовывать одни форматы изображений в другие. Например, пиктограмму (.ICO) можно преобразовать в растровый рисунок (.bmp).). Для этого надо загрузить пиктограмму, а затем сохранить ее с расширением .bmp. (Обратное преобразование не возможно

4.3.3. Элемент управления Image

Элемент управления Image также создан для отображения рисунков. Но в отличие от PictureBox, он не является элементом контейнером. Элемент управления Image не позволяет ни рисовать, ни группировать объекты. Однако Image использует меньше ресурсов и перерисовывает быстрее, чем PictureBox. Поэтому для отображения рисунков Image является более предпочтительным.

Основными свойствами элемента Image является свойство Stretch и Picture.

Свойство Picture аналогично соответствующему свойству элемента PictureBox.

Свойство Stretch позволяет устанавливать соответствие между размерами элемента управления и размером рисунка. Если свойству Stretch присвоено значение True, то размеры рисунка изменяются до размеров элемента управления Image, в противном случае элемент управления изменяется до размеров рисунка.

4.3.4. Загрузка изображений в форму

Изображения можно помещать непосредственно в форму. При этом изображение помещается от верхнего левого угла формы, никак не масштабируется и не растягивается.

Изображения не просвечиваются сквозь элементы управления за исключением Label и Shape. Чтобы элементы управления Label и Shape были прозрачны, значение их свойств BackStyle должно быть равно Transparente.

Основным преимуществом помещения изображения непосредственно в форму является то, что при этом используется меньше ресурсов системы, чем при предварительном размещении его в элементах управления PictureBox или Image.

Основные недостатки размещения изображений в форме:

• нельзя скрыть изображение, его можно только загрузить или выгрузить;

• нельзя управлять расположением изображения в форме;

• в форму одновременно можно поместить только одно изображение;

• размер изображения нельзя изменить. Оно помещается в форму в своем оригинальном размере;

• время на перерисовку формы требуется больше.

Метод Picture формы MDI позволяет поместить фоновое изображение на задний план.

Пример 4.11. Загрузка и выгрузка рисунков.

Установим на форму элементы управления Image и PictureBox. Свойство AutoSize объекта PictureBox и свойство Stretch объекта Image установим в True.

Загрузим в форму и элементы управления Image и PictureBox рисунки. Для этого необходимо выделить объект, щелкнуть по строке свойства Picture и выбрать в диалоговом окне нужный файл, например: C:\Windows\Лес.BMP, C:\Windows\Волны.BMP, C:\Windows\Облака.BMP. Напишем текст программы.

Private Sub Form_Click()

Dim i As Double

‘выгрузка рисунков

Form1.Picture = LoadPicture()

Image1.Picture = LoadPicture()

picPicture1.Picture = LoadPicture()

For i = 1 To 50000: DoEvents: Next I ‘ пауза

‘ Загрузка рисунка

Form1.Picture = LoadPicture("C:\Windows\Наждак.BMP")

Image1.Picture = LoadPicture("C:\Windows\Облака.BMP")

picPicture1.Picture = LoadPicture("C:\Windows\Лес.BMP")

End Sub