' this is the mainwindow scope ' 15-November-2011 Example program by J. van Zijl aka Slowdown. ' was just testing something. ' compiler beta june 22 2011 ' IDE beta july 11 2011 ' You can find me on, ' http://www.q7basic.org/forum/index.php and ' http://www.kbasic.com/forum/index.php Dim MyWindow1 As QMainWindow Dim MyWindow2 As QMainWindow Dim MyWindow3 As QMainWindow Event Init() MyWindow1!windowTitle = "MyWindow 1" MyWindow2!windowTitle = "MyWindow 2" MyWindow3!windowTitle = "MyWindow 3" MyWindow1.Show MyWindow2.Show MyWindow3.Show CreateSomething() End Event Sub CreateSomething() MyLabel.setGeometry(100, 150, 300, 20) MyButton.setGeometry(200, 300, 450, 30) MyLabel.Visible = True MyLabel.Text = "test" MyButton.Visible = True MyButton.Text = "This is a button" End Sub Dim MyLabel As QLabel Dim MyButton As QPushButton Signal on_MyButton_clicked(Checked As Boolean) MsgBox("pushButton_clicked") End Signal Event ResizeEvent(e As QResizeEvent) Me.setGeometry(200, 300, Me!width, Me!height) MyWindow1.setGeometry(20, 100, 600, 300) MyWindow2.setGeometry(200, 300, 800, 50) MyWindow3.setGeometry(400, 500, 400, 200) End Event '