Hallo,
Abd Sabour hat soweit recht.
Ich nehme mal an, dass dein Prozedur so aussieht
Private Sub AddToText3(Op1 As Double, Op2 As double, Op as String, d as Double)
If Text3.text <> "" Then
Text3.text = Text3.text + vbNewLine
Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d)
End Sub
Mit If Text3.text <> "" Then wird geprüft, ob in Text3 (in der Textbox [diese ist wohl mehrzeilig!]) bereits ein Text drin steht. Wenn ja, wir eine neue Zeile an den Text drangehangen. Ist wie in C das \n.
Mit Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d)
passiert folgendes:
Op1, Op2, Op und d sind Variablen die an diese Prozedur übergeben wurden.
Angenommen es steht in diesen Variablen folgendes:
Op1 = 1
Op2 = 3
Op = +
d = 4
Dann steht in Text 3:
1 + 3 = 4
Wird nun diese Prozedur nochmals aufgerufen mit folgenden Werten:
Op1 = 2
Op2 = 4
Op = *
d = 8
dann steht in Text3 folgendes:
1 + 3 = 4
2 * 4 = 8
usw.
das + Zeichen in Text3.text = Text3.text + CStr(Op1) + vbTab + Op + vbTab + CStr(op2) + vbTab + "=" + vbTab + CStr (d) ist eine StringVerkettung. CStr ist eine vorhandene funktion, die die Variable in Text umwandelt, sprich hier wird die Zahl zum Text konvertiert. Mit vbTab wird ein Tab eingefügt um platz zu schaffen.
ich hoffe ich konnte helfen.