Creare un Form mediante la Classe Window

Poiché l'oggetto Form appartiene alla categoria dell'oggetto Window, è possibile creare un Form autonomo semplicemente dichiarando ed istanziando un oggetto Window per mezzo di una variabile di tipo Window, con la quale sarà anche gestito.

Detti Form creati mediante la Clase Window potranno contenere regolarmente degli oggetti.

Nel seguente esempio creeremo diversi Form mediante la Classe Window:

Private w As Window
Private bt As Button


Public Sub Button1_Click()

 Dim j As Byte

   For j = 0 To 4

' Creiamo un nuovo "Form":
     With w = New Window As "w"
       .W = 300
       .H = 200
       .Caption = "num. " & CStr(j)
       .Background = &111111 * (j + 1000)
       .Show
     End With

' Poniamo su ciascun nuovo "Form" un "Button":
     creaTasto()
   
   Next

End


Public Sub w_Open()
 
' Per ogni nuovo "From" creato, che si apre,
' ne vediamo in console il nome:
  Print w.Caption
 
End


Public Sub creaTasto()
 
  With bt = New Button(w) As "bt"
    .X = 20
    .Y = 20
    .W = 100
    .H = 40
    .Background = Color.Yellow
    .Text = "Tasto " & w.Caption
  End With
 
End


Public Sub bt_Click() ' I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti
 
  Print "Premuto " & Last.Text

  Wait 2

' Chiudiamo il "Form", individuandolo come "Parent", del "Button" cliccato:
  Last.Parent.Close
 
End