Erledigt VB6 - Prozedur aufrufen - Sonstige Programmiersprachen

- WebmasterWork »
- Grafik & Programmierung »
- Sonstige Programmiersprachen »
- Erledigt VB6 - Prozedur aufrufen »

cybermaxtc

Tripel-As

Dabei seit: 23.11.2007

Beiträge: 215

Sonntag, 13. Dezember 2009, 00:51

Erledigt VB6 - Prozedur aufrufen

n´ Abend

Ich habe eine Prozedur Rechnen erstellt, die ich gerne nochmal aufrufen möchte

Spoiler

Private Sub Rechnen_Click(Index As Integer)
'** Werte ausrechnen ohne Fehlerroutine
'**Button Ereignis
a = Val(Text1.Text)
b = Val(Text2.Text)
c = Val(Text2.Text)
Volumen = a * b * b
Flaeche = (2 * a * b) + (2 * b * c) + (2 * a * c)
Ergebnis = "Fläcche: " + Str(Flaeche) + Chr$(13) + Chr$(10)
Ergebnis = Ergebnis + "Volumen: " + Str$(Volumen)
MsgBox Ergebnis, 64, "Ergebnis"
End Sub

hier

Spoiler

Private Sub MNU_Rechnen_Click()
'**Menüeintrag
Rechnen_Click
End Sub

aber irgendwie klappt das nicht so...
Wenn ich den Code von oben einkopiere geht es einwand frei...

Könnt Ihr mir bitte sagen wo der Fehler liegt?

Danke

Edit:

Die Lösung war: Ich musste nur ein Argument übergeben....

Wer mit dem Strom schwimmt, wird ganz schön den Bach runter geh´n... "M. F. H"

Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von »cybermaxtc« (13. Dezember 2009, 00:51)

Erledigt VB6 - Prozedur aufrufen

Ähnliche Themen