Callback issue

[Jake]

This is a great set of code for TAPI which does everything; however, I am
having the worst time trying to figure out why the form is being
reinitialized from the timerhandler instead of just calling
GetLineMessage like I really need it to.
I hope this amount of code will suffice. I think I'm just missing
something very simple.
Thanks in advance...
'///the form
Public objTAPIline As cTAPI
Private Sub Form_Load()
Set objTAPIline = New cTAPI 'Initialize the TAPI class
objTAPIline.Initialize
'other form stuff here
End Sub
Private Sub cmdDial_Click()
'dial functions here
objTAPIline.StartMessagePump Me.hwnd
End Sub

'///tapi module
'a zillion declarations
Public Sub _
TimerHandler( _
ByVal hwnd As Long, _
ByVal uMsg As Integer, _
ByVal idEvent As Integer, _
ByVal dwTime As Long)
'call getlinemessage to check for changes
frmMain.objTAPIline.GetLineMessage
End Sub

'///tapi class
'a zillion other functions and such
'timer declaration some where in here
Public Sub _
StartMessagePump( _
hwndIn As Long, _
Optional Interval As Long = 500)
SetTimer _
hwndIn, _
50, _
Interval, _
AddressOf TimerHandler
Debug.Print "starting timer"
End Sub
Public Sub _
StopMessagePump( _
hwndIn As Long)
KillTimer hwndIn, 50
End Sub
Public Sub GetLineMessage()
'check for events
End Sub

[Steve Gerrard]

"Jake" <ja**@jcws.net> wrote in message
news:a3**************************@posting.google.c om...

This is a great set of code for TAPI which does everything; however, I am
having the worst time trying to figure out why the form is being
reinitialized from the timerhandler instead of just calling
GetLineMessage like I really need it to.
I hope this amount of code will suffice. I think I'm just missing
something very simple.
Thanks in advance...
'///the form
Public objTAPIline As cTAPI
Private Sub Form_Load()
Set objTAPIline = New cTAPI 'Initialize the TAPI class
objTAPIline.Initialize
'other form stuff here
End Sub
Private Sub cmdDial_Click()
'dial functions here
objTAPIline.StartMessagePump Me.hwnd
End Sub

'///tapi module
'a zillion declarations
Public Sub _
TimerHandler( _
ByVal hwnd As Long, _
ByVal uMsg As Integer, _
ByVal idEvent As Integer, _
ByVal dwTime As Long)
'call getlinemessage to check for changes
frmMain.objTAPIline.GetLineMessage
End Sub

'///tapi class
'a zillion other functions and such
'timer declaration some where in here
Public Sub _
StartMessagePump( _
hwndIn As Long, _
Optional Interval As Long = 500)
SetTimer _
hwndIn, _
50, _
Interval, _
AddressOf TimerHandler
Debug.Print "starting timer"
End Sub
Public Sub _
StopMessagePump( _
hwndIn As Long)
KillTimer hwndIn, 50
End Sub
Public Sub GetLineMessage()
'check for events
End Sub

Don't know for sure, but I would try not using frmMain to refer to your main
form. If it gets called before the form is done loading, it could automatically
create another instance. Instead, declare a global variable and initialize it in
Sub Main, and start your project with Sub Main. Also, I would move the StartPump
call out of the Load event, so the form is definitely done loading and ready for
callbacks.

Global gMainForm As frmMain

Sub Main()

Set gMainForm = New frmMain

gMainForm.Show

DoEvents

gMainForm.objTAPIline.StartMessagePump gMainForm.hWnd

End Sub