Объявление процедуры не соответствует описанию события или процедуры с одинаковым именем.
Я только начинающий, и я пытался сделать простую программу на Visual Basic 6. Код почти эквивалентен коду в учебнике. Это должно было быть своего рода программой рисования. Удивительно, но он не может быть скомпилирован с ошибкой, указанной в заголовке этого вопроса. Это код:
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
Сбой приложения в следующей строке:
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
С ошибкой:
procedure declaration does not match description of event or procedure having the same name