clsmsgctrl.vb

来自「empp 开发例子」· VB 代码 · 共 40 行

Option Strict Off
Option Explicit On
Friend Class clsMsgCtrl
	
	Public WithEvents cn As EMPPLib.emptcl
	Public Function init() As Object
		cn = New EMPPLib.emptcl
	End Function
	
	
	Private Sub cn_EMPPClosed(ByVal errorCode As Integer) Handles cn.EMPPClosed
		If Not frmLogin.DefInstance Then
			frmLogin.DefInstance.cmdOK_Click(frmLogin.DefInstance.cmdOK, New System.EventArgs())
		End If
	End Sub
	
	Private Sub cn_MessageReceivedInterface(ByVal sm As EMPPLib.ISMDeliverd) Handles cn.MessageReceivedInterface
		Dim sMsg As String
		sMsg = "发送方号码:" & sm.srcID & ":接收方号码:" & sm.DestID & ";短信格式:" & sm.MsgFmt & ";短信长度:" & sm.MsgLength & ";发送方号码类型:" & sm.SrcTerminalType & ";短信内容:" & sm.content & ";MsgID:" & sm.MsgID & ";ServiceID:" & sm.ServiceID
		MsgBox(sMsg,  , "接收短信")
	End Sub
	
	Private Sub cn_SocketClosed(ByVal errorCode As Integer) Handles cn.SocketClosed
		If Not frmLogin.DefInstance Then
			frmLogin.DefInstance.cmdOK_Click(frmLogin.DefInstance.cmdOK, New System.EventArgs())
		End If
	End Sub
	
	Private Sub cn_StatusReceivedInterface(ByVal sm As EMPPLib.IStatusReport) Handles cn.StatusReceivedInterface
		Dim sReportStatus As String
		sReportStatus = "发送方号码:" & Trim(sm.SrcTerminalId) & ";接收方号码:" & sm.DestID & ";接收短信时间:" & sm.submitDatetime & ";发送短信时间:" & sm.doneDatetime & ";短信接收状态:" & sm.Status & ";ServiceID:" & sm.ServiceID & ";MsgID:" & sm.MsgID & ";SeqID:" & sm.SeqID
		
		MsgBox(sReportStatus,  , "状态报告")
	End Sub
	
	Private Sub cn_SubmitRespInterface(ByVal sm As EMPPLib.ISubmitResp) Handles cn.SubmitRespInterface
		Dim result As Integer
		result = sm.result
	End Sub
End Class