[Gambas-user] List of Open Forms?
Jack
jscops at ...11...
Wed Aug 28 10:34:33 CEST 2013
Le 27/08/2013 17:51, Ru Vuott a écrit :
> I tried this simple code:
>
> Private w As Window
>
>
> Public Sub Form_Open()
>
> With w = New Window
> .W = 100
> .H = 100
> .X = 0
> .Y = 0
> .Show
> End With
>
> With w = New Window
> .W = 100
> .H = 100
> .X = 200
> .Y = 100
> .Show
> End With
>
> With w = New Window
> .W = 100
> .H = 100
> .X = 300
> .Y = 200
> .Show
> End With
>
> Me.Center
>
> Application.MainWindow = Me ' and also: = Fmain
>
> End
>
> When you launch the program, 3 windows open. Then, if you close the main Form of application, those three windows close too.
>
> bye
> vuott
>
You can also open each windows in new virtual desktop if gb.dektop is
activate.
Private w As Window
Public Sub Form_Open()
With w = New Window
desktop.current = 2
.W = 100
.H = 100
.X = 0
.Y = 0
.Show
End With
With w = New Window
Desktop.Current = 1
.W = 100
.H = 100
.X = 200
.Y = 100
.Show
End With
With w = New Window
Desktop.Current = 3
.W = 100
.H = 100
.X = 300
.Y = 200
.Show
End With
Desktop.Current = 0
Me.Center
Application.MainWindow = Fmain
End
--
Cordialement
Jacky Tripoteau
More information about the User
mailing list