Printable View
Hi. I'm writing a program that calls a procedure that is in a DLL. When the procedure fails, I have error handling to exit the program. The problem is that when the program exits, the entire VB design environment exits also. This only happens to me when I get an error using a DLL. Does anyone know how to prevent the VB design environment from exiting also? Thanks!
hi,
can you write down the error handler so i can maybe see what you wrote and maybe something is wrong. if you just wrote "End" then i haven't a clue.
On Error GoTo safe
safe:
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear
Set session = Nothing 'gets rid of object that uses dll
Exit Sub
The "on error" statement is of course at the beginning of the sub while everything past the "safe:" anchor is at the end. Everything seems to work fine except when I hit the terminate button on the application or the stop button in the vb design environment, my program quits but unfortunately the entire vb design environment quits with it. It's frustating because I have to keep going back into it.
actually, here, I'll give you the entire program:
Option Explicit
Dim session As Object
Dim folder As Object
Dim msgs As Object
Dim mess As Object
Private Sub Form_Load()
On Error GoTo safe
Set session = CreateObject("CTI.Session.1")
session.CTLogon "WM2", "jrumajas", "mandrake"
Set folder = session.Inbox
Set msgs = folder.Messages
Set mess = msgs.GetFirst
MsgBox mess.Text
MsgBox "the length of body is: " & Len(mess.Text)
Set mess = Nothing
Set mess = session.Inbox.Messages.GetNext
MsgBox mess.Text
MsgBox "the length of body is: " & Len(mess.Text)
Set mess = Nothing
Set msgs = Nothing
Set folder = Nothing
session.Logoff
MsgBox "Done "
session = Nothing
safe:
MsgBox "Error # " & CStr(Err.Number) & " " & Err.Description
Err.Clear ' Clear the error.
'Resume Next
Set session = Nothing
'End
Exit Sub
End Sub
The error says:
Error #-2147221227 Method 'CTLogon' of object 'ISession' failed.