NODMAN
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Вот парочка простых примеров программ на языке PureBasic.
Это оконные проги с поддержкой стиля XP.
Окно с надписью "Демонстрационная программа"
Код: ; Открываем окно
OpenWindow(1,200,250,300,50,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList(WindowID(1)) ; Создаём новый список гаджетов
TextGadget(2,80,20,180,15,"Демонстрационная программа") ;Отображаем текст
Repeat ; Начало главного цикла Repeat-Until
Event=WaitWindowEvent() ; Получаем текущий идентификатор события
Until Event=#PB_Event_CloseWindow ; Прерываем цикл при попытке закрыть окно (щелчёк по крестику в заголовке окна)
End ; Завершаем работу программы |
Окно с кнопкой.
При клике по кнопке выккакивет окно сообщением об этом
Код: ; Создаём окно.
OpenWindow(1,150,200,200,100,"Заголовок окна",#PB_Window_MinimizeGadget)
CreateGadgetList( WindowID(1) ) ; Создаём пустой список гаджетов.
ButtonGadget(2,50,30,80,25,"Кнопка")
Repeat ; Начало главного цикла.
Event=WaitWindowEvent() ; Получаем идентификатор события.
Gadget=EventGadget() ; Узнаём идентификатор активного гаджета.
If Event=#PB_Event_Gadget And Gadget=2 ; Условие будет выполнено при щелчке по кнопке.
MessageRequester("Сообщение","Была нажата кнопка") ; Выводим на экран сообщение.
EndIf
Until Event = #PB_Event_CloseWindow ; Прерываем цикл при закрытии окна
End ; Директива, завершающая программу. |
Размер скомпилированых прог примерно по 15 Кб каждая.
Для их работы не нужны никакие внешние файлы.
Работать будут под любой виндой начиная с Win95.
Добавлено:
Вот окно редактора
Это скин был сделан с помощью проги написаной на PureBasic.
Скачать пригу с исходником можно здесь http://www.filehoster.ru/files/cm2707
Прога после запуска прыгает в трей и ждёт нажатия кнопок.
Если нажать на PrintScreen то будет снят скрин всего экрана, а если нажать на Ctrl + PrintScreen то будет снят скрин активного окна.
Место сохранения указывается в настройках, вызываемых через контекстное меню значка программы в трее.
|
Всего записей: 70 | Зарегистр. 25-03-2009 | Отправлено: 11:41 03-04-2009 | Исправлено: NODMAN, 11:58 03-04-2009 |
|
