Добавить объект Page Frame не сложно. Откройте панель Form Controls (элементы управления формы). Она показана на рис. Если панель отсутствует на экране - выберите в главном меню Visual FoxPro пункт View, а в открывшемся подменю пункт Toolbars. Откроется окно Toolbars. Сделайте отметку напротив названия панели - Form Controls и щелкните кнопку OK.
Если вашему кондиционеру требуется ремонт, опытные специалисты с лёгкостью устранят все неполадки в работе системы и выявят недостатки при дальнейшей эксплуатации вашего кондиционера тут: http://www.optimal-climate.ru/index.php/component/k2/item/8-carrier.
Выберите на панели значок Page Frame, а в нужном месте активной области формы при помощи левой кнопки мыши отведите место для этого объекта. Форма Building с активной первой страницей и окружением данных в конструкторе форм показана на рис.
Если пользователь сделает щелчок левой кнопкой мыши по фотографии здания, то сработает код события Click объекта Image1. Этот код создавался на протяжении десяти лет, пополняясь с появлением новых операционных систем. Одни стандартные просмотрщики изображений заменялись на другие, только один Paint оставался неизменным. Именно на нем я и остановил свой выбор. Будем надеяться, что новый Windows, который Microsoft обещает выпустить, не расстанется с Paint и код будет работать.
Код события Click объекта Image1:
IF LEN(ALLTRIM(cBuilding.Picture))=0
=MESSAGEBOX(,В архиве отсутствует фото этого здания’,;
48,’ Внимание’)
RETURN
ENDIF
SET EXACT ON
IF ALLTRIM(SYS(2003))=[\]
RealDirectory=[]
ELSE
RealDirectory=[\]
ENDIF
SET EXACT OFF
FileName1=DISK+RealDirectory+[PICTURE\]+;
ALLTRIM(cBuilding.Picture)+[.jpg]
* Поиск просмотрщика картинок FileVeiwver=[ ]
* WINDOWS 95
IF FILE ('C:\WINDOWS\WANGIMG.EXE')
FileVeiwver=’C:\WINDOWS\WANGIMG.EXE ’
ENDIF
* WINDOWS 98
IF FILE ('C:\WINDOWS\KODAKIMG.EXE')
FileVeiwver=’C:\WINDOWS\KODAKIMG.EXE ’
ENDIF
* WINDOWS NT 4.0 Workstation
IF FILE (’C:\Program Files\Windows NT\Accessories\ImageVue\wangimg.exe’)
FileVeiwver=’C:\Program Files\Windows NT\Accessories\ImageVue\wangimg.exe’
ENDIF
* WINDOWS 2000
IF FILE (’C:\Program Files\Windows NT\Accessories\ImageVue\kodakimg.exe’)
FileVeiwver=’C:\Program Files\Windows NT\Accessories\ImageVue\kodakimg.exe’
ENDIF
* WINDOWS XP и другие ОС Выбираем PAINT
IF FILE ('C:\Windows\System32\Mspaint.exe')
FileVeiwver='C:\Windows\System32\Mspaint.exe'
ENDIF
IF FileVeiwver=[ ]
=MESSAGEBOX(’На Вашем компьютере отсутствует'+;
' просмотрщик изображений!',48,' Внимание’)
RETURN
ENDIF
Опубликовал vovan666
May 20 2013 13:42:48 ·
0 Комментариев ·
3777 Прочтений ·
• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •
Комментарии
Нет комментариев.
Добавить комментарий
Рейтинги
Рейтинг доступен только для пользователей.
Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.
Нет данных для оценки.
Гость
Вы не зарегистрированны? Нажмите здесь для регистрации.
Главная
Каталог файлов
