noob frage

sid

Gesperrt
hi,

ich möchte ein miniprog. machen, dass zahlen
aus zwei textfeldern addiert und das ergebniss
sofort in einem zweiten textfeld ausgibt.

aber schon beim deklarieren der variablen bekomm
ich die fehlermeldung, "fehler beim komilieren:
das mitglied ist bereits in einem objektmodul
vorhanden, von dem dieses objektmodul abgeleitet wird".

der "code" ;) sieht so aus,

Dim eingabe1 As String
Dim eingabe2 As String
Dim ausgabe As String

Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub

sieht jemand den fehler?

braucht euch,

sid
 

Dario Linsky

Erfahrenes Mitglied
"fehler beim komilieren:
das mitglied ist bereits in einem objektmodul
vorhanden, von dem dieses objektmodul abgeleitet wird".

deine textboxen heissen wahrscheinlich "eingabe1", "eingabe2" und "ausgabe", oder? du darfst in einem formular keine variablen genau so benennen, wie steuerelemente.

Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub

das versteh ich nicht so ganz. wenn der inhalt vom textfeld ausgabe geändert wird, berechnest du das ergebnis?
 

sid

Gesperrt
Private Sub ausgabe_Change()
ausgabe = CDbl(eingabe1) + CDbl(eingabe2)
End Sub

ja, das darf wahrscheinlich nicht so aussehen.

naja, ich hab mich heute mal durchgerungen die ersten
VB-schritte zu machen. deswegen fehlt wohl jede art von
plan.
 

Dario Linsky

Erfahrenes Mitglied
minitutorial

starte mal ein neues projekt und leg 3 textfelder und einen
commandbutton auf das formular.

die name-eigenschaft der controls lässt du einfach mal gleich. mach
einen doppelklick auf den commandbutton, dann kommst du im
codefenster sofort in die ereignis-prozedur für das klicken von dem
button. da schreibst du folgenden code rein:
Code:
Private Sub Command1_Click()

Dim Ergebnis As Long

If IsNumeric(Text1.Text) And IsNumeric(Text2.Text) Then
    Ergebnis = CLng(Text1.Text) + CLng(Text2.Text)
    Text3.Text = CStr(Ergebnis)
End If

End Sub
 

Dario Linsky

Erfahrenes Mitglied
einen irc-channel kenn ich jetzt gerade zwar nicht, aber wenn du hilfe brauchst, kannst du mich ja mal im icq anlabern. oder hier posten. ;)