Да... После VB.Net создавать GUI на FB гемор еще тот
Для библиотеки window9 полноценных визуальных редакторов форм нет. Есть какие-то отдельные , но в них много ошибок. Поэтому весь GUI пишется вручную.
Если по коду представленному выше, то примерно следующее:
Код
#Include "window9.bi"
Dim As integer event ' переменная , принимающая событие
Dim As HWND hwnd ' хендл главного окна
hwnd=OpenWindow("Главное окно",300,10,500,500) ' создаем окно
TextGadget(1,10,50,40,20,"Текст")' создаем 1 текстовый гаджет
TextGadget(2,10,10,80,20,"")' создаем 2 текстовый гаджет
ButtonGadget(3,10,90,90,20,"Копировать") ' Создаем кнопку
SetGadgetColor(1,&hff,&hffffff,3) ' изменяем цвет 1 текстового гаджета
SetGadgetColor(2,&hfff,&hffff,3) ' изменяем цвет 2 текстового гаджета
Do
event=WaitEvent()' получаем событие
Select case event ' что за событие?
Case EventClose ' если закрытие окна
Exit Do ' тогда выход из цикла и завершение программы
Case eventgadget ' если событие клика мышью по гаджету
If EventNumber = 3 Then ' если гаджет имеет ID = 3
SetGadgetText(2,GetGadgetText(1)) ' меняем текст во втором гаджете
EndIf
End Select
Loop