Questo sito utilizza cookies, anche di terze parti, per mostrare pubblicità e servizi in linea con il tuo account. Leggi l'informativa sui cookies.
Username: Password: oppure
C# / VB.NET - Visual basic
Forum - C# / VB.NET - Visual basic

Pagine: [ 1 2 ] Precedente | Prossimo
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 1:00
Giovedì, 01/01/1970
Salve,sto facendo un programma.Vi spiego in breve cosa dovrei fare.
Ho 2 form
Nel primo form c'è un label
Nel secondo 2 text box
Nel secondo un tasto
In questo tasto vorrei ke mi mandi l'addizione della textbox1 + textbox2 nel label nel primo form...se mi sn spiegato male fatemi sapere :D aspetto vostre risposte!!!Siau!!!

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 19:07
Mercoledì, 06/12/2006
Forse volevi dire la somma :D, cmq puoi usare un codice del genere (puoi usare CInt o qualsiasi altra conversione a seconda del tipo di dato):
Codice sorgente - presumibilmente Plain Text

  1. Form1.Label.Text = CType(TextBox1.Text, Double) + Ctype(TextBox2.Text, Double)


In questo codice si suppone che Form1 si già aperto.

Ultima modifica effettuata da Il Totem il 06/12/2006 alle 19:08
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 19:13
Mercoledì, 06/12/2006
eh si lol cmq ce siamo capiti... :D grazie ;)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 19:31
Mercoledì, 06/12/2006
ehm...non capisco xkè nn mi funziona -.-

Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2.         Form1.Label26.Text = CType(TextBox1.Text, Double) + CType(TextBox2.Text, Double) + CType(TextBox3.Text, Double) + CType(TextBox4.Text, Double) + CType(TextBox5.Text, Double) + CType(TextBox6.Text, Double) + CType(TextBox7.Text, Double) + CType(TextBox8.Text, Double) + CType(TextBox9.Text, Double) + CType(TextBox10.Text, Double) + CType(TextBox11.Text, Double) + CType(TextBox12.Text, Double) + CType(TextBox13.Text, Double) + CType(TextBox14.Text, Double) + CType(TextBox15.Text, Double) + CType(TextBox16.Text, Double) + CType(TextBox17.Text, Double) + CType(TextBox18.Text, Double) + CType(TextBox19.Text, Double) + CType(TextBox20.Text, Double) + CType(TextBox21.Text, Double) + CType(TextBox1.Text, Double) + CType(TextBox22.Text, Double) + CType(TextBox23.Text, Double) + CType(TextBox24.Text, Double) + CType(TextBox25.Text, Double) + CType(TextBox26.Text, Double) + CType(TextBox27.Text, Double) + CType(TextBox28.Text, Double) + CType(TextBox29.Text, Double) + CType(TextBox30.Text, Double) + CType(TextBox31.Text, Double)
  3.     End Sub


PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 15:47
Giovedì, 07/12/2006
Sei sicuro di non poter utilizzare meno codice? Mi hai fatto spaventare con tutta quella roba!

Beh, ritornando al problema, forse non hai specificato le label come public.
E potresti provare ad usare questo codice un po' più semplice, anche se non so se fa al caso tuo (nella fattispecie non so se tutte le textbox del form contengano numeri...):
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Somma()
  2.   Dim Tot As Double = 0
  3.  
  4.   For Each T As TextBox In Me.Controls
  5.     Tot += CType(T.Text, Double)
  6.   Next
  7.  
  8.   Form1.Label.Text = Tot


Ultima modifica effettuata da Il Totem il 07/12/2006 alle 15:47
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 18:50
Sabato, 09/12/2006
si tutte e 31 TextBox devono avere un numero e devono essere tutti sommati tra di loro...cosa mi konsigli?Aspetto al + presto una tua risposta ;)

PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 19:03
Sabato, 09/12/2006
Codice sorgente - presumibilmente VB.NET

  1. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
  2.         Dim Tot As Double = 0
  3.  
  4.         For Each T As TextBox In Me.Controls
  5.             Tot += CType(TextBox1.Text, Double)
  6.         Next
  7.  
  8.         For Each T As TextBox In Me.Controls
  9.             Tot += CType(TextBox2.Text, Double)
  10.         Next
  11.         For Each T As TextBox In Me.Controls
  12.             Tot += CType(TextBox3.Text, Double)
  13.         Next
  14.         For Each T As TextBox In Me.Controls
  15.             Tot += CType(TextBox4.Text, Double)
  16.         Next
  17.         For Each T As TextBox In Me.Controls
  18.             Tot += CType(TextBox5.Text, Double)
  19.         Next
  20.         For Each T As TextBox In Me.Controls
  21.             Tot += CType(TextBox6.Text, Double)
  22.         Next
  23.         For Each T As TextBox In Me.Controls
  24.             Tot += CType(TextBox7.Text, Double)
  25.         Next
  26.         For Each T As TextBox In Me.Controls
  27.             Tot += CType(TextBox8.Text, Double)
  28.         Next
  29.         For Each T As TextBox In Me.Controls
  30.             Tot += CType(TextBox9.Text, Double)
  31.         Next
  32.         For Each T As TextBox In Me.Controls
  33.             Tot += CType(TextBox10.Text, Double)
  34.         Next
  35.         For Each T As TextBox In Me.Controls
  36.             Tot += CType(TextBox11.Text, Double)
  37.         Next
  38.         For Each T As TextBox In Me.Controls
  39.             Tot += CType(TextBox12.Text, Double)
  40.         Next
  41.         For Each T As TextBox In Me.Controls
  42.             Tot += CType(TextBox13.Text, Double)
  43.         Next
  44.         For Each T As TextBox In Me.Controls
  45.             Tot += CType(TextBox14.Text, Double)
  46.         Next
  47.         For Each T As TextBox In Me.Controls
  48.             Tot += CType(TextBox15.Text, Double)
  49.         Next
  50.         For Each T As TextBox In Me.Controls
  51.             Tot += CType(TextBox16.Text, Double)
  52.         Next
  53.         For Each T As TextBox In Me.Controls
  54.             Tot += CType(TextBox17.Text, Double)
  55.         Next
  56.         For Each T As TextBox In Me.Controls
  57.             Tot += CType(TextBox18.Text, Double)
  58.         Next
  59.         For Each T As TextBox In Me.Controls
  60.             Tot += CType(TextBox19.Text, Double)
  61.         Next
  62.         For Each T As TextBox In Me.Controls
  63.             Tot += CType(TextBox20.Text, Double)
  64.         Next
  65.         For Each T As TextBox In Me.Controls
  66.             Tot += CType(TextBox21.Text, Double)
  67.         Next
  68.         For Each T As TextBox In Me.Controls
  69.             Tot += CType(TextBox22.Text, Double)
  70.         Next
  71.         For Each T As TextBox In Me.Controls
  72.             Tot += CType(TextBox23.Text, Double)
  73.         Next
  74.         For Each T As TextBox In Me.Controls
  75.             Tot += CType(TextBox24.Text, Double)
  76.         Next
  77.         For Each T As TextBox In Me.Controls
  78.             Tot += CType(TextBox25.Text, Double)
  79.         Next
  80.         For Each T As TextBox In Me.Controls
  81.             Tot += CType(TextBox26.Text, Double)
  82.         Next
  83.         For Each T As TextBox In Me.Controls
  84.             Tot += CType(TextBox27.Text, Double)
  85.         Next
  86.         For Each T As TextBox In Me.Controls
  87.             Tot += CType(TextBox28.Text, Double)
  88.         Next
  89.         For Each T As TextBox In Me.Controls
  90.             Tot += CType(TextBox29.Text, Double)
  91.         Next
  92.         For Each T As TextBox In Me.Controls
  93.             Tot += CType(TextBox30.Text, Double)
  94.         Next
  95.         Tot += CType(TextBox31.Text, Double)
  96.  
  97.         Form1.Label26.Text = Tot
  98.     End Sub



Non ti spaventare :P ho messo questo codice ma l'errore me lo da qui

Codice sorgente - presumibilmente VB.NET

  1. For Each T As TextBox In Me.Controls



Se mi puoi dare una mano mi farestri un GRANDISSIMO favore :)

PM Quote
Avatar
Il Totem (Admin)
Guru^2


Messaggi: 3635
Iscritto: 24/01/2006

Segnala al moderatore
Postato alle 9:07
Domenica, 10/12/2006
Per prima cosa quando dici 'mi dà errore' dovresti specificare quale errore, chè altrimenti ti possiamo aiutare poco. In seconda istanza, il codice che hai scritto è... beh, non hai fatto i cicli for? Questo è un tipo particolare di ciclo, ma ciclo rimane, quindi va scritto una sola volta ed esegue le operazioni per tutte le textbox, quindi prova così:
Codice sorgente - presumibilmente VB.NET

  1. For Each C As Control In Me.Controls
  2.   If TypeOf C Is TextBox Then
  3.     Tot += CType(C.Text, Double)
  4.   End If
  5. Next



EDIT: in effetti ci ho pensato e il codice che ti avevo scritto l'ultima volta è sbagliato perchè il for each cerca di vedere tutti i controlli come textbox: questa volta dovrebbe andare...

Ultima modifica effettuata da Il Totem il 10/12/2006 alle 9:10
PM Quote
Avatar
()
Newbie


Messaggi:
Iscritto:

Segnala al moderatore
Postato alle 4:41
Venerdì, 15/12/2006
ma nn leggo il comando da dare al pulsante x farlo copiare nel label del primo form....

Testo quotato

Per prima cosa quando dici 'mi dà errore' dovresti specificare quale errore, chè altrimenti ti possiamo aiutare poco.



Testo quotato

Non ti spaventare :P ho messo questo codice ma l'errore me lo da qui


Codice sorgente


--------------------------------------------------------------------------------
For Each T As TextBox In Me.Controls

--------------------------------------------------------------------------------


Ultima modifica effettuata da il 15/12/2006 alle 4:47
PM Quote
Pagine: [ 1 2 ] Precedente | Prossimo