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

Da Gambas-it.org - Wikipedia.
(Nuova pagina: Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile pertanto creare un ''Form'' autonomo dichiarando ed istanziando un oggetto ''Window'' per mez...)
 
Riga 1: Riga 1:
 
Poiché l'oggetto ''Form'' appartiene alla categoria dell'oggetto ''Window'', è possibile pertanto creare un ''Form'' autonomo 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 pertanto creare un ''Form'' autonomo 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.
  
−
Poniamo l'esempio che in un applicativo intendiamo creare un secondo ''Form'', secondario rispetto al principale, mediante la Classe ''Window''. Creeremo innanzitutto una nuova classe prima di ''Form'' (che per il nostro esempio chiameremo ''ClassWin.class''). Nella Classe principale porremo ovviamente una funzione che richiamerà la predetta classe secondaria ''ClassWin.class'', nella quale porremo semplicemente un codice ad esempio simile al seguente:
+
 
 +
Nel seguente esempio creeremo diversi ''Form'' mediante la Classe ''Window'':
 
  '''Private''' w As Window
 
  '''Private''' w As Window
 +
'''Private''' bt As Button
 +
 +
 +
'''Public''' Sub Button1_Click()
 
   
 
   
 +
  Dim j As Byte
 
   
 
   
−
  '''Public''' Sub mostraFormWindow() as "finestra"
+
    For j = 0 To 4
 +
       
 +
      With w = New Window As "w"
 +
        .W = 300
 +
        .H = 200
 +
        .Caption = "num. " & CStr(j)
 +
        .Background = &111111 * (j + 1000)
 +
        .Show
 +
      End With
 +
 
 +
  <FONT color=#006400>' ''Poniamo su ciascun nuovo "Form" un "Button":''</font>
 +
      creaTasto()
 
      
 
      
−
   With w = New Window
+
    Next
−
     .X = 100
+
−
     .Y = 100
+
'''End'''
−
     .W = 200
+
−
     .H = 150
+
 +
'''Public''' Sub w_Open()
 +
 
 +
<FONT color=#006400>' ''Per ogni nuovo "From" creato, che si apre,''
 +
' ''ne vediamo in console il nome:''</font>
 +
  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
 
     .Background = Color.Yellow
−
     .Show
+
     .Text = "Tasto " & w.Caption
 
   End With
 
   End With
−
   
+
 
 
  '''End'''
 
  '''End'''
 
   
 
   
 
   
 
   
−
  '''Public''' Sub finestra_MouseDown()
+
  '''Public''' Sub bt_Click() <FONT color=#006400>' ''I "Button" presenti sui nuovi "Form" sono regolarmente funzionanti''</font>
 
    
 
    
−
    Print "Hai cliccato sulla Finestra !"
+
  Print "Premuto " & Last.Text
 
    
 
    
 
  '''End'''
 
  '''End'''

Versione delle 06:38, 12 feb 2013

Poiché l'oggetto Form appartiene alla categoria dell'oggetto Window, è possibile pertanto creare un Form autonomo 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
       
     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
 
End
Estratto da "https://www.gambas-it.org/wiki/index.php?title=Creare_un_Form_mediante_la_Classe_Window&oldid=10826"