Visual Basic

[antonio89x]

Ho avuto un problema nell'inviarti l'e-mail e siccome ora non ho più tempo riproverò domani.

Rispondendo al tuo dubbio...
La cosa è seplicissima, puoi sia mettere il codice che ti ho dettato nel sub form_load(), oppure metterlo nel commandbutton2 e quando ti riferisci ad oggetti dell'altro form devi scrivere prima di essi Form2.[oggetto] (ad esempio Form2.TextBox1.Text).

Ciao.

[stellacometa2003]

Quindi ad esempio appena inserisco il comando Form2.show, posso subito scrivere sotto:Form2.[oggetto] e far fare un qualcosa che desidero, giusto?

[antonio89x]

Si se queste istruzioni le inserisci nel CommandButton2, perchè per riferirti ad oggetti che sono presenti in un altro form devi mettere prima di essi il form di appartenenza.

A proposito hai sistemato il programma? Funziona adesso?

[stellacometa2003]

Ho provato a fare come dici tu...mi viene tutto bene tranne il fatto che non riesco a fare apparire, al momento dell'apertura del secondo form, immediatamente i valori delta e radice...
Io ho fatto cosi:

Private Sub Command3_Click()
Form2.Show
Form2.[text1.Text1= radice]
End Sub

però non mi viene...'radice' sta a indicare la variabile che contiene il calcolo del radicale.

[karl]

La variabile "radice " deve essere indicata come "static" in Form1 in questo modo:
Private Sub Form_Load()
Static radice As Integer ' ( o altro tipo)
End Sub
E dopo puoi scrivere:"Form2.Text1.Text= radice
Tieni anche presente che in quest'ultimo caso Text1 deve essere un TextBox piazzato
in Form2 e non lo stesso messo in Form1.
Archimede.

[stellacometa2003]

Abbiamo fatto un passo avanti: ora mi apre il secondo form ma non visualizza i valori. Ricopio qui il programma cosi vedi se c'è qualche errore!!



Private Sub Form_Load()
Static radice As Integer
End Sub


Private Sub Command1_Click()
delta = (Text2.Text) ^ 2 - 4 * (Text1.Text) * (Text3.Text)
radice = Sqr(delta)
Text4.Text = (-Text2.Text - radice) / 2 * Text1.Text
Text5.Text = (-Text2.Text + radice) / 2 * Text1.Text
End Sub


Private Sub Command3_Click()
Form2.Show
Form2.Text1b.Text = radice
End Sub

[karl]

La variabile "radice" deve essere di tipo "double" perche' e' la radice di un reale.
Vedo anche una "b" di troppo in "Form2.Text1b.Text " ma forse si tratta di un
semplice errore di battitura.
Sia pure in altri termini,ho provato il programma usando la variabile "static"
in form2 e mi risulta.
Archimede.

[antonio89x]

Io non capisco dove sta il problema ?!?

[antonio89x]

Non so perchè ma anche a me dava lo stesso problema di stellacometa2003.
Così ho cercato una scappatoia e ora mi funziona. Prova così:

Private Sub Command3_Click()

Form2.Show
Form2.Text1.Text = Sqr((Text2.Text) ^ 2 - 4 * (Text1.Text) * (Text3.Text))

End Sub

@ stellacometa2003
Tanto per curiosità, quale versione del Visual Basic hai?

[stellacometa2003]

ho VB6!!! Ora provo un po qualche alternativa e vi faccio sapere!!!