Эта программа открывает новую форму того же класса.
Похожая программа, которая может быть найдена здесь: http://www.theeasygambasdoku.de/widgets/form/form/index.html не работает в моей версии Gambas.
Вам нужно две клавиши, чтобы программа работала. Новая форма не отличается от основной формы.
Код:
Fmain AS Class
STATIC PUBLIC SUB Main()
DIM hForm AS Fmain
hForm = NEW Fmain
hForm.show
END
PUBLIC SUB Button1_Click()
DIM hNewForm AS Fmain
hNewForm = NEW Fmain
hNewForm.show
END
PUBLIC SUB Button2_Click()
ME.close
END
-- ReinerHoffmann - 10 Sep 2004