Differenze tra le versioni di "Creare un Form mediante la Classe Window"

Da Gambas-it.org - Wikipedia.
Riga 1: Riga 1:
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.
+
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 Classe ''Window'' potranno contenere regolarmente degli oggetti.
 
  
 +
Detti ''Form'' creati mediante la Classe ''Window'' potranno contenere regolarmente degli Oggetti grafici.
  
 
Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
 
Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
  '''Private''' w As <FONT color=#B22222>Window</font>
+
  Private w As <FONT color=#B22222>Window</font>
  '''Private''' bt As Button
+
  Private bt As Button
 
   
 
   
 
   
 
   
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
   Dim j As Byte
+
   Dim b As Byte
 
   
 
   
    For j = 0 To 4
+
  For b = 0 To 4
 
   
 
   
 
  <FONT color=gray>' ''Creiamo un nuovo "Form":''</font>
 
  <FONT color=gray>' ''Creiamo un nuovo "Form":''</font>
      With w = New <FONT color=#B22222>Window</font> As "w"
+
    With w = New <FONT color=#B22222>Window</font> As "Finestra"
        .W = 300
+
      .W = 300
        .H = 200
+
      .H = 200
        .Caption = "num. " & CStr(j)
+
      .Caption = "num. " & CStr(b)
        .Background = &111111 * (j + 1000)
+
      .Background = &111111 * (b + 1000)
  <FONT color=gray>' ''Per far mostrare la finestra, è assolutamente necessario chiamare la sua funzione ".Show":''</font>
+
  <FONT color=gray>' ''Per far mostrare la finestra, è assolutamente necessario chiamare il suo Metodo ".Show()":''</font>
        .Show
+
      .Show()
      End With
+
    End With
 
   
 
   
 
  <FONT color=gray>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
 
  <FONT color=gray>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
      creaTasto()
+
    creaTasto()
   
+
  Next
    Next
 
 
   
 
   
 
  '''End'''
 
  '''End'''
 
 
'''Public''' Sub w_Open()
 
 
    
 
    
  <FONT color=gray>' ''Per ogni nuovo "From" creato, che si apre,''
+
'''Public''' Sub Finestra_Open()
' ''ne vediamo in console il nome:''</font>
+
 
   Print w.Caption
+
  <FONT color=gray>' ''Per ogni nuovo "From" creato, che si apre, ne vediamo in console il nome:''</font>
 +
   Print w.Text
 
    
 
    
 
  '''End'''
 
  '''End'''
 
 
   
 
   
 
  '''Public''' Sub creaTasto()
 
  '''Public''' Sub creaTasto()
 
    
 
    
  With bt = New Button(<FONT color=#B22222>w</font>) As "bt"
+
  With bt = New Button(<FONT color=#B22222>w</font>) As "bt"
    .X = 20
+
    .X = 20
    .Y = 20
+
    .Y = 20
    .W = 100
+
    .W = 100
    .H = 40
+
    .H = 40
    .Background = Color.Yellow
+
    .Background = Color.Yellow
    .Text = "Tasto " & w.Caption
+
    .Text = "Tasto " & w.Text
  End With
+
  End With
 
    
 
    
 
  '''End'''
 
  '''End'''
 
 
   
 
   
 
  '''Public''' Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>
 
  '''Public''' Sub bt_Click() <FONT color=gray>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>
Riga 72: Riga 66:
  
 
Di seguito un semplice esempio:
 
Di seguito un semplice esempio:
  '''Private''' w As Window
+
  Private w As Window
 
    
 
    
 
   
 
   
 
  '''Public''' Sub Button1_Click()
 
  '''Public''' Sub Button1_Click()
 
   
 
   
  With w = New Window  
+
  With w = New Window  
    .X = Mouse.ScreenX
+
    .X = Mouse.ScreenX
    .Y = Mouse.ScreenY
+
    .Y = Mouse.ScreenY
    .W = 300
+
    .W = 300
    .H = 300
+
    .H = 300
    .Border = Border.None
+
    .Border = Border.None
  <FONT color=gray>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente,''
+
  <FONT color=gray>' ''Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente, avente ovviamente una parte d'immagine visibile:</font>
' ''avente ovviamente una parte d'immagine visibile:</font>
+
    .Picture = Picture.Load("<FONT color=gray>''/percorso/file/immagine.png''</font>")
    .Picture = Picture.Load("''percorso_file_immagine.png''")
+
  <FONT color=gray>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":''</font>
  <FONT color=gray>' ''Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":</font>
+
    <FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
    <FONT color=#B22222>.Mask</font> = <FONT color=#B22222>True</font>
+
    .Show()
    .Show
+
  End With
  End With
 
 
   
 
   
 
  '''End'''
 
  '''End'''

Versione delle 12:52, 30 dic 2021

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 Classe Window potranno contenere regolarmente degli Oggetti grafici.

Nel seguente esempio creeremo diversi Form mediante la Classe Window:

Private w As Window
Private bt As Button


Public Sub Button1_Click()

 Dim b As Byte

 For b = 0 To 4

' Creiamo un nuovo "Form":
   With w = New Window As "Finestra"
     .W = 300
     .H = 200
     .Caption = "num. " & CStr(b)
     .Background = &111111 * (b + 1000)
' Per far mostrare la finestra, è assolutamente necessario chiamare il suo Metodo ".Show()":
     .Show()
   End With

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

End
 
Public Sub Finestra_Open()
 
' Per ogni nuovo "From" creato, che si apre, ne vediamo in console il nome:
  Print w.Text
 
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.Text
 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


Semitrasparenza di un Form creato con la Classe Window

E' possibile applicare la semitrasparenza anche ad un Form, generato con la Classe Window, (e più in generale la si può applicare ad un oggetto di tipo Window) mediante la medesima modalità prevista per la specifica Classe Form.

Di seguito un semplice esempio:

Private w As Window
 

Public Sub Button1_Click()

 With w = New Window 
   .X = Mouse.ScreenX
   .Y = Mouse.ScreenY
   .W = 300
   .H = 300
   .Border = Border.None
' Carichiamo nell'oggetto di tipo "Window" un'immagine semitrasparente, avente ovviamente una parte d'immagine visibile:
   .Picture = Picture.Load("/percorso/file/immagine.png")
' Impostiamo la proprietà ".Mask" dell'oggetto di tipo "Window" a "True":
   .Mask = True
   .Show()
 End With

End