Ch 11.htm

Совмещение изображения и текста

Иногда возникает необходимость совместить текст и изображение в объектах приложения. Для этого используется метод print, позволяющий выводить текст на объекте. Рассмотрим, как этот метод применяется на практике. Для создания приложения выполните следующие действия:

1. Создайте новый стандартный проект. Для этого в меню File (Файл) выберите команду New Project (Создать новый проект) и в окне выбора типа проекта дважды щелкните мышью на значке Standard EXE.

2. Присвойте проекту имя MyGraphObjects. Для этого откройте окно свойств проекта, выбрав команду Projecti Properties (Свойства Project I) из меню Project (Проект). После переименования проекта эта команда будет выглядеть как MyGraphObjects Properties.

3. Присвойте форме проекта имя FormForGraphics. В свойство caption формы введите заголовок Графические формы и методы.

4. Добавьте в форму кнопку управления типа conmandButton, дважды щелкнув мышью кнопку CommandButton ДЦ на панели элементов управления. Назовите эту кнопку cbstart и присвойте свойству caption значение Выполнить. Созданная в форме кнопка cbstart будет служить для отображения текста на графическом объекте по событию click этой кнопки.

5. Переименуйте форму проекта Formi в FormForGraphics и в свойство Caption введите заголовок окна Графические формы и методы.

6. Добавьте в форму элемент управления типа picture, дважды щелкнув мышью кнопку PictureBox на панели элементов управления. Назовите этот объект picpicture. В свойство picture объекта вставьте графическое изображение светофора из каталога \Common\Graphics\Icons\Traffic.

7. Введите в окно редактора небольшой код, указанный ниже:

Private Sub cbStart_Click()

picPicture.Print "Светофор" End Sub

8. Запустите приложение на выполнение. Нажмите кнопку Выполнить. На изображении появится надпись "Светофор" (рис. 11.10).

Рис. 11.10. Приложение с совмещением изображения и текста в режиме выполнения

Рис. 11.11. Приложение с назначением координат для текста

Можно поместить надпись под рисунком, указав координаты точки начала надписи на изображении (рис. 11.11). В этом случае введите в окно редактора следующий код:

Private Sub cbStart_Click()

picPicture.CurrentX = 100

picPicture.CurrentY = 400

picPicture.Print "Светофор"

End Sub

назад | содержание | вперед