Calcolo tra richtextbox

domenica 07 ottobre 2007 - 17.59

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

gey Profilo | Newbie

12 messaggi | Data Invio: dom 7 ott 2007 - 17:59

Salve a tutti, mi trovo in Visual Basic 2005 Express, cerco di spiegare il mio problema.
Io eseguo dei calcoli, con delle richtextbox, con il codice che vi riporto qui sotto.
Siccome devo ripeterlo per altrettante richtextbox, nella stessa form, volevo sapere se esiste un modo, per evitare di ripetere ogni volta tutto questo codice.

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Dim A5 As Double
Dim A6 As Double
Dim A7 As Double
Dim A8 As Double
A5 = RichTextBox5.Text
A6 = RichTextBox6.Text
A7 = RichTextBox7.Text
A8 = RichTextBox8.Text

Dim B101 As Double
Dim B102 As Double
Dim B103 As Double
Dim B104 As Double
B101 = RichTextBox5.Text
B102 = RichTextBox8.Text
B103 = RichTextBox6.Text - RichTextBox4.Text
B104 = RichTextBox8.Text * 2

Dim C197 As Double
Dim C198 As Double
Dim C199 As Double
C197 = RichTextBox197.Text
C198 = RichTextBox5.Text
C199 = RichTextBox8.Text * RichTextBox197.Text

RichTextBox7.Text = A7
RichTextBox101.Text = B101
RichTextBox102.Text = B102
RichTextBox103.Text = B103
RichTextBox104.Text = B104
RichTextBox198.Text = C198
RichTextBox199.Text = C199

End Sub

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: lun 8 ott 2007 - 06:54

Dal codice che leggo basta che crei una funzione private che esegue quello che vuoi, che la richiami dove vuoi in cui passi ogni volta come argomento i parametri interessati, che potrebbero essere o i valori coinvolti o i reference alle textbox che usi.

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: lun 8 ott 2007 - 19:40

>Salve a tutti, mi trovo in Visual Basic 2005 Express, cerco di
>spiegare il mio problema.
>Io eseguo dei calcoli, con delle richtextbox, con il codice che
>vi riporto qui sotto.
>Siccome devo ripeterlo per altrettante richtextbox, nella stessa
>form, volevo sapere se esiste un modo, per evitare di ripetere
>ogni volta tutto questo codice.

Prima di tutto ti consiglio di dichiarare le variabili fuori dall'evento click, secondo ti consiglio di creare una procedura, dall'utilizzo che devo fare decidi se renderla pubblica o privata.
Ovviamente dato le modifiche che devi apportare ti consiglio di passare i parametri per indirizzo, quindi ByRef, un esempio:

Public Sub ProceduraEsempio(ByRef Val1, Val2 as Integer)
Val1 = Form.RichTextBox5.Text
Val2 = Form.RichTextBox6.Text
End Sub

http://blogs.dotnethell.it/Xnetus/

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: mer 10 ott 2007 - 14:26

Portare fuori variabili e codice... ok, ma sai che la funzione non l'ho proprio capita...

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: mer 10 ott 2007 - 14:37

>Portare fuori variabili e codice... ok, ma sai che la funzione
>non l'ho proprio capita...

Cosa non hai capito?

http://blogs.dotnethell.it/Xnetus/

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: mer 10 ott 2007 - 14:40

Public Sub ProceduraEsempio(ByRef Val1, Val2 as Integer)
Val1 = Form.RichTextBox5.Text
Val2 = Form.RichTextBox6.Text
End Sub

dal codice che ho visto all'inizio le richtextbox erano diverse così come le variabili e non solo due, oltre che di tipo double.

Xnetus Profilo | Junior Member

130 messaggi | Data Invio: mer 10 ott 2007 - 14:44

>Public Sub ProceduraEsempio(ByRef Val1, Val2 as Integer)
>Val1 = Form.RichTextBox5.Text
>Val2 = Form.RichTextBox6.Text
>End Sub
>
>dal codice che ho visto all'inizio le richtextbox erano diverse
>così come le variabili e non solo due, oltre che di tipo double.

Come puoi notare è un esempio di come passare i parametri. Comunque:

Public Sub ProceduraEsempio(ByRef Val1, Val2 ... as Integer)
Val1 = Form.RichTextBox5.Text
Val2 = Form.RichTextBox6.Text
...
' Continuando con le altre assegnazioni...
End Sub

http://blogs.dotnethell.it/Xnetus/

Anonimo Profilo | Senior Member

392 messaggi | Data Invio: mer 10 ott 2007 - 16:03

Ah ok scusami

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !