प्रक्रिया घोषणा उसी नाम वाले ईवेंट या प्रक्रिया के विवरण से मेल नहीं खाती है

Question

मैं सिर्फ नौसिखिया हूं और मैंने विजुअल बेसिक 6 में एक साधारण प्रोग्राम बनाने की कोशिश की। कोड पाठ्यपुस्तक में लगभग बराबर है। यह एक तरह का एक पेंट प्रोग्राम होना था। आश्चर्य की बात है, इसे इस प्रश्न के शीर्षक में दी गई त्रुटि से संकलित नहीं किया जा सका।

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 

त्रुटि के साथ

:

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 

निम्न पंक्ति पर अनुप्रयोग क्रैश:

procedure declaration does not match description of event or procedure having the same name

Answer 1

समस्या यहाँ है:

Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) 

इस कोड है

ठीक है, के बाद से आप वीबी 6 में कोडिंग कर रहे हैं, आपको वीबी 6 प्लेबुक में कुछ चाल सीखना है। QqToolbar_Button जैसे कुछ और अस्थायी रूप से विधि का नाम बदलें, फिर डिज़ाइनर पर जाएं और कोड में ईवेंट को पुन: उत्पन्न करने के लिए टूलबार में बटन क्लिक करें।

अगर हस्ताक्षर गलत तरीके से गलत हो गया है, तो यह डिजाइनर से सही ढंग से पुन: उत्पन्न होगा और आप इस मुद्दे को देख सकते हैं।

एक और जांच यह देखने के लिए है कि टूलबार 1 को नियंत्रण सरणी में जोड़ा गया था या नहीं? उस मामले में, विधि हस्ताक्षर इस तरह देखने के लिए की जरूरत है:

Private Sub Toolbar1_ButtonClick(ByVal Index as Integer, ByVal Button As MSComctlLib.Button) 

मैं इनमें से एक आशा है कि आप के लिए इस मुद्दे को हल करने में मदद करता।