Visualizza wikitesto di Passare una Struttura con Event

Qualora, al sollevarsi di un evento tramite l'istruzione ''Event'', si debba passare come parametro una ''Struttura'', sarà necessario dichiarare nel codice la <SPAN Style="text-decoration:underline">medesima identica</span> ''Struttura'' sia nella Classe secondaria, ove viene sollevato l'evento, sia nella Classe principale ove l'evento verrà intercettato.
<BR>Più precisamente, le due ''Strutture'' dichiarate dovranno avere medesimo nome identificatore e medesimi membri, sia nel loro identificatore sia nel tipo.
<BR>Gli identificatori delle variabili del tipo della ''Struttura'', presenti nella Classe secondaria ed in quella principale, potranno avere anche nomi diversi.


Mostriamo un semplice esempio, nel quale si hanno due Classi: una principale ed una secondaria. L'evento viene sollevato nella Classe secondaria con l'istruzione ''Event'' e contemporaneamente viene passata, come suo parametro, una ''Struttura'', i valori della quale verranno quindi letti nella Classe principale.

La Classe secondaria, che chiameremo ''Class1.class'', avrà il seguente codice:
 Public Struct <FONT color=Red>STRUTTURA</font>
   a As Byte
   i As Integer
   s As String
 End Struct
 
 '''Event''' <FONT color=Blue>Evento</font>(strutt As <FONT color=Red>STRUTTURA</font>)
 
 
 <FONT color=Gray>' ''Dichiariamo come Pubblica e creaiamo la Classe secondaria Class1.class.''
 ' ''Quindi la assegnamo al Gruppo "cl":''</font>
 Public cl As New Class1 As "cl"
 
 
 Public Procedure prova(b As Byte)
   
  Dim b As Byte
  Dim st As New <FONT color=Red>STRUTTURA</font>
 
  For b = 0 To 100
    If b = 50 Then
      st.a = b
      st.i = b * b
      st.s = "b = 50 !"
      Raise <FONT color=Blue>Evento</font>(st)
    Endif
  Next
  
 End


Il codice della Classe principale è il seguente:
 Public Struct <FONT color=Red>STRUTTURA</font>
   a As Byte
   i As Integer
   s As String
 End Struct
 
 
 Public cl As New Class1 As "<FONT color=DarkGreen>cl</font>"
 
 
 Public Sub Form_Open()
 
  cl.prova(2)
 
 End
 
 
 Public Sub <FONT color=DarkGreen>cl</font>_<FONT color=Blue>Evento</font>(sFM As <FONT color=Red>STRUTTURA</font>)
  
  With sFM
    Print .a
    Print .i
    Print .s
  End With
  
 <FONT color=Gray>' ''Poniamo una pausa di 2 secondi per vedere in console il risultato della sollevazione dell'evento:''</font>
  Wait 2
 
 End