
Geschrieben von
gix
am 12.04.2007 um 00:00 Uhr.
Beiträge: 185 /
#1203
Kontakt:
Mailen
|
ICQ
In meinem 1. Tutorial, habe ich euch noch erklärt, wie ihr zur entsprechenden Form kommt.
Diesmal nenne ich euch nur noch was ihr benötigt.
Form:
Wir haben vor, die 2 Zahlen aus den TextBoxen mit einander zu addieren, sobald man auf den Button klickt.
Dazu verwenden wir wieder:
Private Sub Command1_Click()
End Sub
Wir wollen unser Ergebnis natürlich in einer Variable speichern und später wieder über eine MsgBox ausgeben lassen.
Dazu müssen wir die Variable vorher noch deklarieren. Dies geschieht mit
Dim.
Also fügt ihr einfach:
in das Click-Event ein.
Nun müssen wir nurnoch die Zahlen aus der 1. und 2. TextBox addieren.
Da die Werte einer TextBox stehts als String gespeichert werden, könnten wir nichts errechnen.
Dazu müssen wir die Werte umwandeln.Anschließend können wir das Ergebnis in einer MsgBox ausgeben lassen.
Man kommt also zu folgendem Code:
ergebnis = CDbl(Text1.Text) + CDbl(Text2.Text)
MsgBox ergebnis
Hier nocheinmal der gesamte Code im überblick:
Private Sub Command1_Click()
Dim ergebnis As Long
ergebnis = CDbl(Text1.Text) + CDbl(Text2.Text)
MsgBox ergebnis
End Sub