Проект «Фотоальбом» «Картинная галерея» icon

Проект «Фотоальбом» «Картинная галерея»



НазваниеПроект «Фотоальбом» «Картинная галерея»
Дата конвертации29.07.2012
Размер19.04 Kb.
ТипДокументы

Проект «Фотоальбом» («Картинная галерея»)




Задание предполагает создание фотоальбома из 10 фотографий. Работает фотоальбом следующим образом: В списке справа указываются названия фотографий. При нажатии на фотографию в специальном контейнере слева появляется указанное изображение

Для создания Фотоальбома выполните следующие действия



  1. В своей папке С:\работы учеников\9г\… создайте папку «Фотоальбом» и скопируйте туда 10 изображений (фотографий). Вы можете использовать папки С:\школа, С:\Живопись, С:\Санкт-Петербург, С:\Новгород.

  2. В этой папке создайте проект Visual Basic. Для этого запустите Visual Basic, создайте новый проект, зайдите Файл - Сохранить проект как… .В появившемся окне выберите Вашу папку и сохраните в нее файл формы Form1 и файл проекта Project1.

  3. Задайте следующие свойства форме
^

Name – Form1


Caption – Фотоальбом

BackColor - &H00FFFFFF& (белый)

BorderStyle – 3 - FixedDialog


  1. Поместите на форму объект Image, задайте ему следующие свойтсва

    • Name – Image1 Имя объекта.

    • Stretch -True Размер изображения будет подгонятся под размер объекта Image

  2. Поместите на форму объект Label под объект Image и задайте ему следующие свойства

    • Name –label1

    • Alignment – 2-Center

    • BackColor - &H00FFFFFF& (белый)

    • Font

Шрифт – MS San Serif

Начертание – жирный

Размер – 14

  1. Поместите объект ListBox рядом с объектом Image и в его свойстве List задайте 10 наименований изображений. Name – List1.

  2. Создайте событие List1_Click()- Выбор элемента списка. Для вывода изображений в процессе выполненbя программы будем пользоваться функцией LoadImage, загружающей картинку из файла, и присваивать значение свойству Picture объекта Image.

Например,

Image1.Picture = LoadPicture("dogs.jpg")

Выбор картинки предполагает вывод комментария в объект Label1.
^

Label1.Caption = "Мои любимые щенки"



Для перебора вариантов используется оператор Выбор-Если Select Case

Выбор производится в зависимости от выбранного индекса элемента свойство ListIndex объекта List1

Select Case List1.ListIndex

Case 0

Image1.
Picture = LoadPicture("\D:\Pictures\A240050.jpg ")


Label1.Caption = "Крокодил"

Case 1



Case 2



Case 10





End Select


Примечание: Если Вы скопировали ваши файлы в ту папку, где находится проект, то можете указывать не абсолютный, а относительный путь файла, например, не С:\работы учеников\9г\A438052.jpg, а A438052.jpg




Похожие:

Проект «Фотоальбом» «Картинная галерея» iconГалерея компьютерной графики 1 Катавилова Лера 4 класс Остров

Проект «Фотоальбом» «Картинная галерея» iconГалерея компьютерной графики 2 Хрущёва Мария 10 класс Весёлого Рождества

Проект «Фотоальбом» «Картинная галерея» iconДокументы
1. /проект 2-х этажного дома/проект 2-х этажного дома/1 раздел Инженерная подготовка площадки...
Проект «Фотоальбом» «Картинная галерея» iconПраво на охрану здоровья Проект
В нашей стране разработан национальный проект «Здоровье», который предусматривает
Проект «Фотоальбом» «Картинная галерея» iconПроект развития муниципального образовательного учреждения Кодинской средней общеобразовательной школы №4 на 2010-2013 гг. Проект разработан
Проект разработан в соответствии с основными положениями Национальной образовательной инициативы «Наша новая школа»; законом Российской...
Проект «Фотоальбом» «Картинная галерея» iconГалерея-клуб по 24 октября 1 октября – 11 октября 2011 г
«И зверье, как братьев наших меньших, никогда не бил по голове…»: беседа для младших учащихся классов
Проект «Фотоальбом» «Картинная галерея» iconПроект 6-го класса «Обновление кабинета технологии»
Март – Изготовление вешалки для разделочных досок и прихваток (мальчики, проект)
Проект «Фотоальбом» «Картинная галерея» iconПроект перспективного развития муниципального общеобразовательного учреждения Агинская средняя общеобразовательная школа №1 на 2011 – 2015 годы
Проект перспективного развития моу агинской сош №1 на 2011 2015 годы (далее Проект)
Проект «Фотоальбом» «Картинная галерея» iconДокументы
1. /КУЛЬТУРА ДРЕВНЕЙ ГРЕЦИИ/2011-ПАСПОРТ-КУЛЬТУРА ДРЕВНЕЙ ГРЕЦИИ.doc
2. /КУЛЬТУРА...

Проект «Фотоальбом» «Картинная галерея» iconДокументы
1. /Солдатов проект/Паспорт 9.doc
2. /Солдатов...

Разместите кнопку на своём сайте:
Документы


База данных защищена авторским правом ©podelise.ru 2000-2014
При копировании материала обязательно указание активной ссылки открытой для индексации.
обратиться к администрации
Документы

Разработка сайта — Веб студия Адаманов