[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