اعلام هشدار هنگامی که کامپوننت برنامه حذف شده است

[parselearn]

هنگامی که کامپوننت برنامه به هر دلیلی حذف شده خطایی به شماره 339 نمایش داده میشه
حالا چی کار کنم که هم این پیغام نمایش داده نشه
هم یک پیغام جایگزین کنم

[ƒxmahdi]

من قبلا این چنین مشکلی داشتم دقیقا یادم نیست چکار کردم که درست شد ولی اینو امتحان کن!

Private Sub Form_Load()
On Error Resume Next
If Err.Number = 339 Then MsgBox "Person Massage", vbOKOnly + vbInformation, "Title"
End Sub

[parselearn]

اونو قبلا امتحات كرده بودم
اينم همچنين



Private Sub Form_Load()
On Error GoTo errdia

errdia:
If Err.Number = 339 Then MsgBox "Person Massage", vbOKOnly + vbInformation, "Title"
End Sub


اما نشد!