This event will be generated when anything on the Operator Information
Area (OIA) changes.
Session.OnOIAChanged( )
None
|
Public AllSessions As OhioSessions Private Sub Form_Load() Set AllSessions = New OhioSessions MySession.Connect End Sub Private Sub MySession_OnOIAChanged() Dim strOwner As String Case OHIO_OWNER_APP strOwner = "APP" Case OHIO_OWNER_NVT strOwner = "NVT" Case OHIO_OWNER_SSCP strOwner = "SSCP" Case OHIO_OWNER_UNKNOWN strOwner = "UNKNOWN" Case OHIO_OWNER_UNOWNED strOwner = "UNOWNED" End Select End Sub Private Sub Form_Unload(Cancel As Integer) MySession.Disconnect End Sub |
|
#define OHIO_OWNER_UNKNOWN 0 #define OHIO_INPUTINHIBITED_NOTINHIBITED
0 BEGIN_DISPATCH_MAP(CMyView, CView) DISP_FUNCTION_ID(CMyView, "OnOIAChanged", 2, OnOIAChanged, VT_EMPTY, VTS_NONE END_DISPATCH_MAP() void CMyView::OnOIAChanged() CString strStatus, strOwner; switch (m_MyOIA.GetInputInhibited()) case OHIO_INPUTINHIBITED_NOTINHIBITED: strStatus = "NOTINHIBITED"; case OHIO_INPUTINHIBITED_OTHER: strStatus = "OTHER"; case OHIO_INPUTINHIBITED_SYSTEM_WAIT: strStatus = "SYSTEM_WAIT"; default: strStatus = "Error"; } case OHIO_OWNER_APP: strOwner = "APP"; case OHIO_OWNER_NVT: strOwner = "NVT"; case OHIO_OWNER_SSCP: strOwner = "SSCP"; case OHIO_OWNER_UNKNOWN: strOwner = "UNKNOWN"; case OHIO_OWNER_UNOWNED: strOwner = "UNOWNED"; default: strOwner = "Error"; } } |
|
MySession.OnOIAChanged += new PASSHIOLib._IOhioSessionEvents_OnOIAChangedEventHandler(this.OnOIAChanged); public void OnOIAChanged() { String strStatus, strOwner; switch (MyOIA.InputInhibited) { case PASSHIOLib.OHIO_INPUTINHIBITED.OHIO_INPUTINHIBITED_NOTINHIBITED: strStatus = "NOTINHIBITED"; break; case PASSHIOLib.OHIO_INPUTINHIBITED.OHIO_INPUTINHIBITED_OTHER: strStatus = "OTHER"; break; case PASSHIOLib.OHIO_INPUTINHIBITED.OHIO_INPUTINHIBITED_SYSTEM_WAIT: strStatus = "SYSTEM_WAIT"; break; default: strStatus = "Error"; break; } switch (MyOIA.Owner) { case PASSHIOLib.OHIO_OWNER.OHIO_OWNER_APP: strOwner = "APP"; break; case PASSHIOLib.OHIO_OWNER.OHIO_OWNER_NVT: strOwner = "NVT"; break; case PASSHIOLib.OHIO_OWNER.OHIO_OWNER_SSCP: strOwner = "SSCP"; break; case PASSHIOLib.OHIO_OWNER.OHIO_OWNER_UNKNOWN: strOwner = "UNKNOWN"; break; case PASSHIOLib.OHIO_OWNER.OHIO_OWNER_UNOWNED: strOwner = "UNOWNED"; break; default: strOwner = "Error"; break; } MessageBox.Show ( "status = " + strStatus + ", Owner = " + strOwner ); } |