एक आवेदन घटना हैंडलर लिखना

I am trying to write an unhandled exception event handler as in this question Catching application crash events

लेकिन दिया गया कोड संकलन नहीं करेगा, संदेश दे रहा है

error BC30590: Event 'UnhandledException' cannot be found.

कैसे ठीक करना है? क्या मुझे कुछ आयात करने की ज़रूरत है (मैं वीबी के लिए नया हूं) - अगर ऐसा है तो क्या?

Partial Friend Class MyApplication
    Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
        MsgBox(e.Exception.Message + vbNewLine + e.ToString())
    End Sub
End Class
0
एप्लिकेशन ढांचे को सक्षम करें चेकबॉक्स चेक किया गया है, और मैंने आपके उत्तर से कोड को ApplicationEvents.vb में चिपकाया जो तब दिखाई दिया जब मैंने एप्लिकेशन ईवेंट देखें क्लिक किया। क्या वह सही है?
जोड़ा लेखक Sideshow Bob, स्रोत
किया हुआ। मुझे लगता है कि माईप्लिकेशंस ठीक है - मुझे इसे बदलना नहीं चाहिए (मेरा आवेदन जैसा कि मैंने देखा है इसमें फॉर्म 1 नामक केवल एक वर्ग है)
जोड़ा लेखक Sideshow Bob, स्रोत
हाँ। कोई नामस्थान ब्लॉक नहीं। ऐप कार्यक्षमता form1.vb में बैठती है जिसमें एक फॉर्म के लिए ईवेंट हैंडलर होते हैं।
जोड़ा लेखक Sideshow Bob, स्रोत
क्या आपने उन चरणों का पालन किया जहां मैंने एप्लिकेशन फ्रेमवर्क को सक्षम करने के लिए कहा था और एप्लिकेशन ईवेंट ईवेंट देखें पर क्लिक करें?
जोड़ा लेखक Steven Doggart, स्रोत
हाँ। यदि आपने यही किया है, तो इसे काम करना चाहिए था। क्या आप उस फ़ाइल की पूरी सामग्री दिखाने के लिए अपना प्रश्न संपादित कर सकते हैं?
जोड़ा लेखक Steven Doggart, स्रोत
वह पूरी फाइल है? यह नेमस्पेस माई / एंड नेमस्पेस ब्लॉक में लपेटा नहीं गया है?
जोड़ा लेखक Steven Doggart, स्रोत

1 उत्तर

MyAplication आंशिक वर्ग को काम करने के लिए, यह प्राथमिक नाम MyAplication वर्ग के समान नामस्थान में होना चाहिए। यदि ऐसा नहीं है, तो इसका मतलब है कि आप केवल एक नया नया MyAplication क्लास बना रहे हैं जिसमें उस ईवेंट को शामिल नहीं किया गया है। अपना कोड ठीक करने के लिए, सुनिश्चित करें कि आंशिक वर्ग मेरा नामस्थान में है, इस तरह:

Namespace My
    Partial Friend Class MyApplication
        Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
            ' ...
        End Sub
    End Class
End Namespace
0
जोड़ा