|
Name - в это свойство объекта пишут имя объекта.
Visible=False - невидим;
Visible=True -
видим.
Если свойство объекта Enabled=False - то объект недоступен.
ToolTipText - позволяет задать текст подсказки,
который будет появляться при наведении курсора на
объект.
В свойстве
MousePointer, можно
выбрать стрелку указателя мышки для данного
объекта.
Если у объекта PictureBox
свойство AutoSize = True, то рамка поля
автоматически подбирается под размер изображения, если
AutoSize = False, то большие рисунки могут не
поместится.
У Image, рамка сама подгоняется под размер
рисунка, но если свойство Stretch=True, то при
изменении размеров объекта размеры рисунка меняются и
возникают искажения изображения.
Свойство Picture ОБЪЕКТОВ
Image, PictureBox, КНОПКИ, ФОРМЫ используется для
заполнения их изображением.
Способы размещения
изображения.
На форму можно вывести
изображение используя:
-
Свойство Picture у самой
формы, при этом изображение выравнивается с верхнего
левого угла формы и практически является фоновым
рисунком формы;
-
используя свойство Picture
объектов PictureBox или Image;
-
Щелкаете по ОБЪЕКТУ
-
Выделяете свойство
Picture
-
В правом столбце
щелкаете по квадратику с тремя точками
-
В появившемся окне
открываете папку с рисунками, выбираете рисунок
(не забудь, меню ВИД - ЭСКИЗЫ значительно
ускоряет поиск нужного рисунка)
-
Открыть
-
или программным способом,
используя команду ИмяОбъекта.Picture = LoadPicture
("полный путь к файлу например С:\папка\папка\имя
файла. обязательно расширение файла")
Загрузка
изображения в процессе выполнения программы
Image6. Picture = LoadPicture ("полный путь к файлу
например С:\папка\папка\имя файла. обязательно
расширение файла")
Picture4.Picture = LoadPicture ("полный путь к файлу
например С:\папка\папка\имя файла. обязательно
расширение файла")
Если забудешь скобки или расширение, то возникает
ошибка.
Способы
организации смены изображений на объекте.
Для смены изображения, я сначала приготовил три поля
Image c рисунками. Рисунки в Image вставил используя их
свойство Picture. Наложил эти Image, переместив мышкой,
друг на друга. Один из них сделал видимым Visible=True,
остальные невидимыми Visible=False.
Имеются три поля Image с рисунками, они наложены друг на
друга. Первоначально Image1.Visible = True,
Image2.Visible = False, Image3.Visible = False
При нажатии на кнопку, первый становится невидимым
Visible=False, а второй видимым Visible=True, третий,
также остается невидимым и т.д.
Вот программа смены изображения, по описанному способу:
Private Sub Command1_Click()
Image1.Visible = False
Image3.Visible = False
Image2.Visible = True
End Sub
Private Sub Command2_Click()
Image2.Visible = False
Image3.Visible = False
Image1.Visible = True
End Sub
Private Sub Command3_Click()
Image2.Visible = False
Image1.Visible = False
Image3.Visible = True
End Sub
Есть другой способ организации смены изображений. Это
применив только одно поле Image, последовательно в это
поле загрузить различные файлы, используя Image1.Picture
= LoadPicture("полный путь к файлу, и даже расширение").
Но, если вы записали этот проект на диск и хотите
проиграть на другом компьютере, то у вас возникнут
проблемы при загрузке файлов. Это я говорю о том случае,
когда вы сохраняете не Exe-файл.
ВВЕРХ |