User's Manual

Real-world examples 287

ong, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As

Long, CancelDispl

ay As Boolean)

lab_msg = Error & number & - & Description

log E, ERR, TCP error & number & - & Description & (eKERNEL)

End Sub

Private Sub mnu_ekernel_disconnect_Click()

ip_ekernel.Close

lab_ekernel_state.Backcolour = RGB(0, 0, 0)

g_ekernel_local_address = N/A

g_ekernel_local_port = N/A

eAPI_form - 5

lab_ekernel_local_port = & g_ekernel_local_port

lab_ekernel_local_address = & g_ekernel_local_address

End Sub

Private Sub process_ekernel()

Dim lcl_o As String

Dim lcl_version As String

’ Handle sockets status - continuously attempt to stay connected

Dim lcl_ekernel_cur_state As Integer

lcl_ekernel_cur_state = ip_ekernel.State

If lcl_ekernel_cur_state <> g_ekernel_prv_state Then

g_ekernel_prv_state = lcl_ekernel_cur_state

Select Case lcl_ekernel_cur_state

Case 0

lab_ekernel_msg = Closed

lab_ekernel_state.BackColor = RGB(0, 0, 0)

Case 1

lab_ekernel_msg = Open