quindi paso un array di stringhe come parametro al nuovo form
in effetti gli passo il riferimento all'array
all'interno del form chiamato aggiungo un elemento all'array che mi ritroverò anche nel form principale
Nel form principale:
Public Sub Button1_Click()
Dim stringa As New String[]
Dim frm As Form1
frm = New Form1(stringa)
frm.Showmodal
Label1.text = stringa[0]
End
nel form chiamato
Public Sub _new(stringa As String[])
Dim stri As New String[]
stri = stringa
stri.Add("ww")
me.close()
End
corretto?
ps
come si fa a postare il codice nella maniera che fai tu?
quindi paso un array di stringhe come parametro al nuovo form
in effetti gli passo il riferimento all'array
all'interno del form chiamato aggiungo un elemento all'array che mi ritroverò anche nel form principale
Nel form principale:
Public Sub Button1_Click()
Dim stringa As New String[]
Dim frm As Form1
frm = New Form1(stringa)
frm.Showmodal
Label1.text = stringa[0]
End
nel form chiamato
Public Sub _new(stringa As String[])
Dim stri As New String[]
stri = stringa
stri.Add("ww")
me.close()
End
corretto?
In parte si.
Se hai letto la discussione che ti ho suggerito, ma esiste anche un argomento sui metodi nascosti nel wiki di Gambas-it (http://www.gambas-it.org/wiki/index.php/Metodi_nascosti), Il metodo _new permette di passare al costruttore informazioni necessarie alla form modale dipendente, ma, grazie al successiva istruzione di chiamata "i_SwReturn = Frm1.ShowModal()", è possibile conoscere il risultato dell'operatività svolta dalla form dipendente. Allo stesso tempo l'array contenente i volari passati al momento della chiamata, ritornano alla classe chiamante. Ciò significa che la Form chiamata può anche averli modificati. Es.:
Dim $FrmParam As New String[]
Dim Frm1 As Form01
Dim i_SwReturn As Integer
$FrmParam.add("Autom")
Frm1 = New Form01($FrmParam)
i_SwReturn = Frm1.ShowModal()
Select Case i_SwReturn
Case (0) ' l'elemento $_FrmParam[0] contiene la data contabile nel formato AAAAmmGG
$DataCont = $FrmParam[0]
$TipoValuta = $FrmParam[1]
i_NumDecim = $FrmParam[2]
$GiorSettim = $FrmParam[3]
If $_SceltOper = "Menu06" Then
Frm2 = New Form02($FrmParam)
i_SwReturn = Frm2.ShowModal() 'avvio della procedura di INSRIMENTO MOVIMENTI DI GIORNATA CONTABILE
If i_SwReturn = 99 Then
Me.Close
Endif
Endif
End Select
Spero di avere chiarito meglio il concetto.
:ciao:
Lui clicca nel ''ComboBox'' sulla destra, sopra le faccine, avente la scritta: "Evidenzia sintassi", e sceglie ovviamente "Gambas".
Ma non solo io! ;D
si è tutto chiaro
grazie
Public Sub _new(stringa As String[])
Dim stri As New String[]
stri = stringa
stri.Add("ww")
me.close()
End
PS
ho capito anche questo!