Воскресенье, 27.07.2025, 8:07 PM

RSS
Трещалка
Галерея аватар

!!!HIP-HOP MAFIA!!!
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
Internet Map
  • Страница 1 из 1
  • 1
Microsoft Visual Basic. Урок 2-й
techinfoДата: Воскресенье, 13.05.2007, 11:40 PM | Сообщение # 1
Admin
Группа: Администраторы
Сообщений: 21
Статус: Нету меня
Поместите на форму элемент Рисунок (Image) находящийся на панели инструментов Toolbox. Растяните его на 2/3 размера страницы.
Щелкните в окне свойств элемента Image на графе Picture и, нажав кнопку с точками, загрузите любой рисунок из файла (это может быть картинка или фото). В нашем случае это изображение леса.

Чтобы рисунок растянулся на всё окно Image, нажмите на рисунок (окно Image) и в свойствах этого объекта измените значение параметра PictureSizeMode на 1.

Под РИСУНКОМ поместите элемент НАДПИСЬ (Label), и в графу свойства впишите: КАК ХОРОШО В ЛЕСУ! (в вашем случае - любая надпись). Подберите шрифт (Font).

Примечание*: в нашем случае это Label2. У вас же может быть совершенно другой, внимательно следите за названиями помещаемых вами элементов. Чтобы увидеть название, щелкните на элемент и в свойствах в графе name вы увидите название нужного вам элемента.

Поместите справа от элемента Рисунок три кнопки (CommandButton), сделайте их заголовки (Caption) – РОЗА, ЧАСЫ, БОМБА (в нашем случае - это соответственно картинки розы, часов и бомбы). В вашем случае это могут быть совсем другие изображения и надписи.

Щелкните дважды на 1-й кнопке (РОЗА - в нашем случае) и в окне кода внесите две строки текста типа:

Label2.Caption = "С ДНЕМ РОЖДЕНИЯ !!!"
Image2.Picture = LoadPicture("C:\Images\Vbasic\flower.wmf")

Внимание! В строке Image2.Picture = LoadPicture("....впишите свой адрес.....") в кавычках вы вписываете свой адрес нужной вам картинки.

Щелкните дважды на кнопке ЧАСЫ (2-я кнопка) и в окне кода внесите две строки текста типа:

Label2.Caption = "ЖИТЬ ОСТАЛОСЬ НЕДОЛГО!!!"
Image2.Picture = LoadPicture("C:\Images\Vbasic\clock.wmf")

Щелкните дважды на кнопке БОМБА (3-я кнопка) и в окне кода внесите две строки текста типа:

Label2.Caption = "ЭТО КОНЕЦ !!!"
Image2.Picture = LoadPicture("C:\Images\Vbasic\bomb.wmf")

Запустите программу и испытайте ее работоспособность. В случае наличия ошибок исправьте их.

Итоговый результат: при запуске программы у вас на форме появилась картинка и в элементе Label появилась надпись, соответствующая данной картинке. В нашем случае это лес и надпись "КАК ХОРОШО В ЛЕСУ!". Далее при нажатии на 1-ю кнопку (Роза) у нас появляется вместо картинки леса, картинка с изображением розы, а надпись в элементе Label меняется на надпись "С ДНЕМ РОЖДЕНИЯ !!!"..... и т.д. со всеми остальными кнопками.

Надеюсь этот урок вам понравился не меньше, а может даже и больше, чем предыдущий!


 
  • Страница 1 из 1
  • 1
Поиск:

Copyright BUKA&DEESTYLE © 2007