Argument nicht optinal

[sunygirl]

Hallo! Habe eigentlich kein besonders Problem, aber ich weiß trotzdem nicht was ich vergessen habe...
Habe eine Menüleiste mit Buttons und bei manchen Buttons sagt der dann: Argument nicht optional, habe mal das VB-Script kopiert, vielleicht kann mir hier ja jemand helfen.

Public Sub cmdButton_Click(Index As Integer)
  Select Case Index
    Case FILEOPEN
         MDIForm1.mnuFileOpen_Click
    Case FILESAVE
         ActiveForm.mnuFileSave_Click
    Case FILEPRINT
         ActiveForm.mnuFilePrint_Click 'Argument nicht optional
    Case MAIL
         ActiveForm.mnusenden_Click
    Case EDITCOPY
         ActiveForm.mnuEditCopy_Click
    Case EDITPPASTEINTO
        ActiveForm.mnuEditPasteInto_Click
    Case EDITPASTENEW
         MDIForm1.mnuEditPasteNew_Click
    Case EDITZOOM
         ActiveForm.mnuEditZoom_Click
    Case FILESCAN
         MDIForm1.mnuFileAcquire_Click
    Case IMAGECOLORS
         ActiveForm.mnuImageColors_Click
    Case IMAGEROTATE
         ActiveForm.mnuImageRotate_Click 'Argument nicht optional
    Case IMAGEBRIGHTNESS
         ActiveForm.mnuImageBrightness_Click 'Argument nicht optional
    Case IMAGECONTRAST
         ActiveForm.mnuImageContrast_Click
    Case IMAGEFILTERS
         ActiveForm.mnuImageFilter_Click 'Argument nicht optional
    Case IMAGEINVERT
        ActiveForm.mnuImageInvert_Click
    Case IMAGESCALE
          ActiveForm.mnuImageScale_Click 'Argument nicht optional
    Case IMAGEFLIP
         ActiveForm.mnuImageFlip_Click 'Argument nicht optional
  End Select
End Sub

Vielen Dank!

 

[Shakie]

Warscheinlich sind diese Buttons als Array definiert, so dass immer ein index übergeben werden muss. Schau doch einfach nach, die die entsprechenden Click-Prozeduren definiert sind!

 

[sunygirl]

Ja da steht z.b.: Public Sub mnuFilePrint_Click(Index As Integer)
was muss ich denn da ändern?

 

[Shakie]

Du musst der Prozedur dann natürlich auch einen Wert übergeben, je nach dem für welches Steuerelement des Steuerelemente-Arrays die Prozedur "gelten" soll.
Beispiel:

mnuFilePrint_Click 1
oder auch:
mnuFilePrint_Click 23094

 

[sunygirl]

Also müsste ich folgendes eingeben?

Public Sub cmdButton_Click(Index As Integer)
Select Case Index
Case FILEPRINT
ActiveForm.mnuFilePrint_Click1
End Select
End Sub

Dann habe ich aber einen Laufzeitfehler...

 

[Shakie]

Du musst ein Leerzeichen zwischen mnuFilePrint_Click und der 1 einfügen.

 

[sunygirl]

Dann kriege ich auch einen Laufzeitfehler...
"Die Methode 'mnuFilePrint_Click' für das Objekt 'Form1' ist fehlgeschlagen."

Und dann schmeißt der mich noch ganz aus VB raus...

 

[DrSoong]

Ein Index-Steuerelement musst du anders aufrufen, bei dir z.B.

mnuFilePrint(1).Value = True

So gehts dann ohne Fehler.


Der Doc!

 

[sunygirl]

Kommt wieder ein Laufzeitfehler, habe dieses eingegeben:

Case FILEPRINT
ActiveForm.mnuFilePrint.Value = True

Auch wenn ich hinter das FilePrint ein (1) setzte kommt ein Fehler...

 

[DrSoong]

Ersetz mal das ActiveForm durch den Formnamen oder durch Me, dann gehts. KA wieso es mit ActiveForm nicht funktioniert.


Der Doc!