Deklaration der Prozedur entspricht nicht der Beschreibung des Ereignisses oder Prozedur mit demselben Namen

Ich bin nur Anfänger und ich habe versucht, ein einfaches Programm in Visual Basic 6. Der code ist fast gleichbedeutend mit, dass im lehrbuch. Es war dazu gedacht, eine Art paint-Programm. Überraschend, es konnte nicht kompiliert werden, mit dem Fehler im Titel dieser Frage.
Dies ist der code:

Option Explicit

Dim Col As Long

Private Sub Form_Load()
    AutoRedraw = True
    BackColor = vbWhite
    Col = vbBlack
    DrawWidth = 3
End Sub

Private Sub Command1_Click()
    CommonDialog1.ShowOpen
    Form1.Picture = LoadPicture(CommonDialog1.FileName)
End Sub

Private Sub Command2_Click()
    CommonDialog1.ShowSave
    SavePicture Image, CommonDialog1.FileName
End Sub

Private Sub Command3_Click()
    CommonDialog1.ShowColor
    Col = CommonDialog1.Color
End Sub

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    PSet (X, Y), Col
End Sub

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
    Select Case Button.Key
    Case "Line1"
        DrawWidth = 3
    Case "Line2"
        DrawWidth = 20
    End Select
End Sub

Stürzt die Anwendung ab, in der folgenden Zeile:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)

Mit der Fehlermeldung:

Deklaration der Prozedur entspricht nicht der Beschreibung des Ereignisses oder einer Prozedur
mit dem gleichen Namen

InformationsquelleAutor user1700848 | 2012-09-26
Schreibe einen Kommentar