Программа новой формы

Эта программа открывает новую форму того же класса.

Похожая программа, которая может быть найдена здесь: 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