miver писал(а):
Кстати посмотри ссылку PureBasic 4.51 (Windows, Linux, MacOS X) + учебники и библиотеки + Portable Тут файлда, качал именно оттуда
miver писал(а):
У меня простая форма не запускаетсявозможно из-за того что я изменил некоторые названия свойств в том числе и Caption на WindowsTitle...
------------ Дoбавленo в 17.31:
сегодня после добавления элемента StringGadget и попытки реализовать событие onChange понял что очень многое реализовал не верно и пришлось всё пересмотреть.
Теперь на примере элементов ButtonGadget(onClick) и StringGadget(onChange) подключённых к элементу MessageRequester(doMessage) формируется такой код:
OpenWindow(0,0,0,390,261,"Form",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(1,215,90,55,20,"Push",#PB_Button_MultiLine)
StringGadget(3,220,130,55,20,"")
Repeat : Event = WaitWindowEvent() : Select Event
Case #PB_Event_CloseWindow : End
Case #PB_Event_Gadget
Select EventGadget()
Case 1
MessageRequester("","",#MB_OK)
Case 3
If EventType() = #PB_EventType_Change
MessageRequester("","",#MB_OK)
EndIf
EndSelect
EndSelect : ForEver
OpenWindow(0,0,0,390,261,"Form",#PB_Window_SystemMenu|#PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered)
ButtonGadget(1,215,90,55,20,"Push",#PB_Button_MultiLine)
StringGadget(2,220,130,55,20,"")
Repeat : Event = WaitWindowEvent() : Select Event
Case #PB_Event_CloseWindow : End
EndSelect : ForEver
Поиск
Друзья
Администрация