[VB6] Somma tra stringhe

[chiamatekatia]

Devo sommare tre variabili (Impostate su String, in questo esempio a, b e c) contenenti dei numeri.
Mettende essere:

a = 100
b = 200
c = a + b

La stringa c non ha valore '300', ma valore '100200'.
Suppongo essere questo dovuto al fatto che le tre variabili sono impostate su String e non su, ad esempio, Long.

Se le imposto su long però ricevo un errore da visual basic (in quanto queste variabili sono ricavate da un TextBox): Tipo non corrispondente.

Come faccio per ottenere invece '300'? (Qua sotto vi riporto il codice completo)

Private Sub cmdElabora_Click()
Dim a As String
Dim b As String
Dim c As String

a = txta.Text
b = txtb.Text
c = txtco.Text

c = a + b
MsgBox (c)
End Sub

[francesco_test]

Usa la funzione CLng(arg), converte arg dal suo tipo in long.

[francesco_test]

Private Sub cmdElabora_Click()
Dim a As String
Dim b As String
Dim c As String

a = CLng(txta.Text)
b = CLng(txtb.Text)
c = CLng(txtco.Text)

c = a + b
MsgBox (c)
End Sub

[chiamatekatia]

Mi dice 'Tipo Non Corrispondente'

[avatar]

Originariamente inviato da chiamatekatia
Mi dice 'Tipo Non Corrispondente'

se all'interno delle text ci dei valori diversi da "0123456789" ti va in errore

[ciro78]

Se devi sommarli basta convertirli

Dim a As String

Private Sub Command1_Click()
a = Text1.Text
flag = IsNumeric(a)
If flag = True Then
a = CInt(a)
MsgBox a
End If
End Sub

ciao

[chiamatekatia]

Ho capito perchè non andava...Un txt era vuoto

[XVincentX]

Ti do anche la mia versione

a = text1.text
b = text2.text
c = val(a)+val(b)

Se la text è vuota ti mette 0, cosi eviti errori

[ans]

Private Sub cmdElabora_Click()
Dim a As String
Dim b As String
Dim c As String

a = txta.Text
b = txtb.Text
c = txtco.Text

c = CStr(CLng(a) + CLng(b))
MsgBox (c)
End Sub

[chiamatekatia]

Scusate ho un'altra domanda...

Con CLng lo trasformo in un Long, se lo volessi trasformare in un SIngle?