Навигация
Главная
Поиск
Форум
FAQ's
Ссылки
Карта сайта
Чат программистов

Статьи
-Delphi
-C/C++
-Turbo Pascal
-Assembler
-Java/JS
-PHP
-Perl
-DHTML
-Prolog
-GPSS
-Сайтостроительство
-CMS: PHP Fusion
-Инвестирование

Файлы
-Для программистов
-Компонеты для Delphi
-Исходники на Delphi
-Исходники на C/C++
-Книги по Delphi
-Книги по С/С++
-Книги по JAVA/JS
-Книги по Basic/VB/.NET
-Книги по PHP/MySQL
-Книги по Assembler
-PHP Fusion MOD'ы
-by Kest
Professional Download System
Реклама
Услуги

Автоматическое добавление статей на сайты на Wordpress, Joomla, DLE
Заказать продвижение сайта
Программа для рисования блок-схем
Инженерный калькулятор онлайн
Таблица сложения онлайн
Популярные статьи
OpenGL и Delphi... 65535
Бип из системно... 65535
Пример работы с... 65535
ТЕХНОЛОГИИ ДОСТ... 65535
Организация зап... 65535
Вызов хранимых ... 65535
Создание отчето... 65535
Эмулятор микроп... 65535
Подключение Mic... 65535
Создание потоко... 65535
Приложение «Про... 65535
21 ошибка прогр... 65535
Гостевая книга ... 65535
Форум на вашем ... 65535
HACK F.A.Q 65535
Содержание сайт... 65535
Invision Power ... 65535
Программируемая... 65535
Оператор выбора... 65535
Модуль Forms 65535
Реклама
Сейчас на сайте
Гостей: 6
На сайте нет зарегистрированных пользователей

Пользователей: 13,155
новичок: akshin
Новости
Реклама
Выполняем курсовые и лабораторные по разным языкам программирования
Подробнее - курсовые и лабораторные на заказ
Delphi, Turbo Pascal, Assembler, C, C++, C#, Visual Basic, Java, GPSS, Prolog, 3D MAX, Компас 3D
Заказать программу для Windows Mobile, Symbian

Моделирование работы узла коммутации сообщений на GPSS + Пояснительная з...
База данных склада на Delphi + Схема БД
База данных студентов на Turbo Pascal (Списки) + Пояснительная записка

Реклама



Подписывайся на YouTube канал о программировании, что бы не пропустить новые видео!

ПОДПИСЫВАЙСЯ на канал о программировании
Добавить объект Page Frame
Добавить объект 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 Май 20 2013 17:42:48 · 0 Комментариев · 3336 Прочтений · Для печати

• Не нашли ответ на свой вопрос? Тогда задайте вопрос в комментариях или на форуме! •


Комментарии
Нет комментариев.
Добавить комментарий
Имя:



smiley smiley smiley smiley smiley smiley smiley smiley smiley
Запретить смайлики в комментариях

Введите проверочный код:* =
Рейтинги
Рейтинг доступен только для пользователей.

Пожалуйста, залогиньтесь или зарегистрируйтесь для голосования.

Нет данных для оценки.
Гость
Имя

Пароль



Вы не зарегистрированны?
Нажмите здесь для регистрации.

Забыли пароль?
Запросите новый здесь.
Поделиться ссылкой
Фолловь меня в Твиттере! • Смотрите канал о путешествияхКак приготовить мидии в тайланде?
Загрузки
Новые загрузки
iChat v.7.0 Final...
iComm v.6.1 - выв...
Visual Studio 200...
CodeGear RAD Stud...
Шаблон для новост...

Случайные загрузки
Работа с картотеками
Платформа програм...
Java 2. Наиболее ...
WinPopup
CodeGear RAD Stud...
Обучение Borland ...
База Allsubmitter...
Распознавание иде...
AJAX и PHP. разра...
Графика в проекта...
EMS QuickExport S...
Отключение и вклю...
Программа рисует ...
Просмотр коммент...
PCX
Text effect
Профессиональное ...
JanButtonsV
Распознавание тек...
Пользовательская...

Топ загрузок
Приложение Клие... 100685
Delphi 7 Enterp... 95554
Converter AMR<-... 20190
GPSS World Stud... 16719
Borland C++Buil... 13937
Borland Delphi ... 9754
Turbo Pascal fo... 7244
Калькулятор [Ис... 5613
Visual Studio 2... 5133
FreeSMS v1.3.1 3624
Случайные статьи
Синтаксис - Пролог-10
Этап 9: выполните ...
Получить адреса и ...
Если вы не работае...
Построение дерева ...
Блок ASSIGN
XHTML - переход к XML
Вычислительные мо...
На компьютерах кли...
Предисловие Чарли ...
Реклама Сургут
Новый корпус для ЭЛТ
Необязательные ...
Настройка заголовка
Концепция правильн...
Инициализация опер...
Ошибки в регулярны...
Медицинские негато...
Высота и ширина яч...
Манипулирование би...
atom(X)
27 способов продви...
Обратные сортировк...
Работа с Cookies н...
Набор команд модем...
Статистика



Друзья сайта
Программы, игры


Полезно
В какую объединенную сеть входит классовая сеть? Суммирование маршрутов Занимают ли таблицы память маршрутизатора?