by Amod (2 Submissions)
Category: Debugging and Error Handling
Difficulty: Intermediate
Date Added: Wed 3rd February 2021
Rating: (5 Votes)
Demo application developed similar to error screen shown in Windows XP
This module will be used in error handling for VB application.
This application will log an error log and send an email notification.
Modules to be included in client project :
1. FrmErrorMsg.frm
2. moduleGlobal.bas
Working of errormsg :
If each method add below code..
On Error GoTo ErrorHandler
--
--
--
--
Exit Sub/function
ErrorHandler:
Call frmErrorMsg.SetErrorLog(Err.Number, Err.Description, "Command1_Click", "frmDemo")
frmErrorMsg.Show vbModal
End
Where command1_Click is method name and frmdemo is form name.
So a log file is created with this log and a custom form is shown.
Please modify form as per requirement.
If user clicks on send Error Report. Error log is send to default emailaddress. So change email address first before sending mail.
Also you can either automatically send email without knowing user about it. Just pass first parameter to method SendMessage as "false"
Another alternative to this is sending data on site. for e.g. www.yoursite.com/submit.aspx?... etc.
Assumes
This module will be used in error handling for VB application.
This application will log an error log and send an email notification.
Modules to be included in client project :
1. FrmErrorMsg.frm
2. moduleGlobal.bas
Working of errormsg :
If each method add below code..
On Error GoTo ErrorHandler
--
--
--
--
Exit Sub/function
ErrorHandler:
Call frmErrorMsg.SetErrorLog(Err.Number, Err.Description, "Command1_Click", "frmDemo")
frmErrorMsg.Show vbModal
End
Where command1_Click is method name and frmdemo is form name.
So a log file is created with this log and a custom form is shown.
Please modify form as per requirement.
If user clicks on send Error Report. Error log is send to default emailaddress. So change email address first before sending mail.
Also you can either automatically send email without knowing user about it. Just pass first parameter to method SendMessage as "false"
Another alternative to this is sending data on site. for e.g. www.yoursite.com/submit.aspx?... etc.
Download Error Handling VB6 Similar to Windows XP Error Message) (50 KB)