标题VB中用“消息类”灵活地控制程序

　　我们在进行编程的时候，经常需要对某一过程或函数的运行状态做出响应，而采取不同的处理方法。如我们在加载数据库的时候，可能需要较长的时间，但在这期间，用户可能会做其它的操作，因此我们就需要知道程序运行的状态，以确定是否响应用户的操作。
　　一般地，如果我们需要在一段子程序运行的过程中了解正在发生的事情，则可以采用在该子程序中加入显示某种消息的语句，如：
　　Public Sub AutoAccess
　　……
　　frmMain.lblMessage = “正在进行采集，请稍侯……”
　　……
　　End Sub
　　不过，像这样的代码是很难通用的，因为它已经和具体的程序界面结合起来了。如果我们写了一段功能全面的模块，希望当程序界面发生变动的时候不影响到这部分模块的话，那么我们有两种方法可以做到：一种方法是将此模块封装为类，将代码封装成类之后，就可以通过类的事件来通知调用程序。这种做法有一些缺点，比如，如果在程序的许多地方都需要使用这段代码的话，那么就需要为该类创建多个实例，假如这段子程序很大的话，那么系统开销将会很大。所以，在某些应用场合并不是最佳方案；另一种方法就是采用“消息类”来解决，下面我就向大家介绍此种方法。
　　所谓“消息类”方法，同样是靠类的事件通知调用程序的，只不过这个类的功能仅限于传递消息，所以它很小：
　　clsMessage.cls清单：
　　'消息类型，属于枚举类型数据
　　Enum E_MessageType
　　eMessage_Unknow
　　eMessage_Error_Para_FileNotFound
　　eMessage_Error_Para_OpenParaBaseErr
　　eMessage_Error_Para_Dev_Load
　　eMessage_Error_Para_Dev_Save
　　eMessage_Error_Para_RTU_Load
　　eMessage_Error_Para_RTU_Save
　　eMessage_Error_Para_GPS_Load
　　eMessage_Error_Para_GPS_Save
　　eMessage_Error_Para_Net_Load
　　eMessage_Error_Para_Net_Save
　　End Enum
　　Public Tag As String
　　'----------
　　'要激活该事件，用下列语法使用：
　　'RaiseEvent SomeThingHappened[(arg1， arg2， ... ， argn)]
　　Public Event SomeThingHappened(MSGType As E_MessageType， _MSGNumber As Long， _MSGDescrible As String)
　　'局部变量保存属性值
　　Private meMSGType As E_MessageType'消息类型
　　Private mlngMSGNumber As Long'消息号
　　Private mstrMSGDescrible As String'消息描述
　　'本属性为对消息的描述
　　Public Property Let MSGDescrible(ByVal vData As String)
　　Attribute MSGDescrible.VB_Description = “事件的描述”
　　'当给属性赋值时在参数左边使用。
　　mstrMSGDescrible = vData
　　End Property
　　Public Property Get MSGDescrible() As String
　　'当检索属性值时在参数右边使用。
　　MSGDescrible = mstrMSGDescrible
　　End Property
　　'本属性用于返回消息号，为自定义的值
　　Public Property Let MSGNumber(ByVal vData As Long)
　　Attribute MSGNumber.VB_Description = “事件代码，为用户在程序中自己定义”
　　'当给属性赋值时在参数左边使用。
　　mlngMSGNumber = vData
　　End Property
　　Public Property Get MSGNumber() As Long
　　'当检索属性值时在参数右边使用。
　　MSGNumber = mlngMSGNumber
　　End Property
　　'本属性用于标识消息的类别
　　Public Property Let MSGType(ByVal vData As E_MessageType)
　　Attribute MSGType.VB_Description = “消息的类型，用户可以可以自己定义”
　　'当给属性赋值时在参数左边使用。
　　meMSGType = vData
　　End Property
　　Public Property Get MSGType() As E_MessageType
　　'当检索属性值时在参数右边使用。
　　MSGType = meMSGType
　　End Property
　　'本方法用于弹出事件
　　Public Sub Raise()
　　Attribute Raise.VB_Description = “用此方法弹出事件”
　　RaiseEvent SomeThingHappened(meMSGType， mlngMSGNumber， mstrMSGDescrible)
　　End Sub
　　使用的时候很简单方便，见下列代码：
　　mAccess.bas清单：
　　Public Sub BeginAccess(DevPara as Define_Para， cMsg as clsMessage)
　　……
　　eComInit = BuildCom(Para)
　　If eComInit = e_ComInitFaild Then '
　　AccessSeparate = False
　　cMsg.Raise eInitPort， False， “端口打开错误，请检查端口。”
　　Exit Function
　　ElseIf eComInit = e_RTUNoAddress Then '
　　cMsg.Raise eFailed， False， “没有为采集器指定通讯端口！”
　　AccessSeparate = False
　　Exit Function
　　End If
　　If UBound(Para.Devices) = 0 Then
　　cMsg.Raise eFailed， 0， “采集器没有挂接设备！”
　　'MsgBox “该采集器没有挂接设备！”
　　Exit Function
　　End If
　　……
　　End Sub
　　同样地，可以在其它界面中采用同样的方法调用BeginAccess子程序，而不必在BeginAccess中考虑如何操作界面。上例是一个采集程序中的部分代码。在实际应用中，BeginAccess本身调用了许多其它过程和函数，大量的返回信息就是靠类似clsMessage这样的“消息类”分门别类地传递回去，使得主程序的结构非常清晰，而且设计得很完善的功能模块mAccess.bas在多个应用程序中不必做任何修改。
　　实际上，我们可以采用这种方法建立功能更全面的类，拥有多种事件类型，而且还可以设计一个消息集合来收集消息，以便于记录程序运行事件。