cxr模拟.cls

这是一个实际的工程中所用的源程序

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CXR模拟"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Attribute VB_Ext_KEY = "SavedWithClassBuilder6" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Private WithEvents mXR As frm模拟
Attribute mXR.VB_VarHelpID = -1
Event EvOnComm(ByVal ScanAddr As Integer, ByVal Total As Double, ByVal Flow As Double, ByVal Speed As Double, ByVal SetValue As Double)

Public Property Let LogDiretory(ByVal New_LogDiretory As String)
    '只是模拟属性,
End Property

Public Property Let DenyManipulate(ByVal New_DenyManipulate As Boolean)
    '只是模拟属性,
End Property

Public Sub OpenCommPort(Optional ByVal Port As Integer = 0)
    Call mXR.OpenCommPort(Port)
End Sub
Public Sub WriteXR(ByVal Addr As Integer, ByVal Value As Single)
    Call mXR.WriteXR(Addr, Value)
End Sub

Private Sub Class_Initialize()
    Set mXR = New frm模拟
    Load mXR
End Sub

Private Sub Class_Terminate()
    Unload mXR
    Set mXR = Nothing
End Sub
Public Sub Show(ByVal OwnerForm As Form)
    mXR.Show , OwnerForm
End Sub
Private Sub mXR_EvOnComm(ByVal ScanAddr As Integer, ByVal Total As Double, ByVal Flow As Double, ByVal Speed As Double, ByVal SetValue As Double)
    RaiseEvent EvOnComm(ScanAddr, Total, Flow, Speed, SetValue)

End Sub
Public Sub cmdOperate_Click(ByVal vhand As Integer, ByVal bRun As Boolean)
    mXR.cmbAddr.Text = vhand
    If bRun Then
        Call mXR.cmdOperate_Click(2)
    Else
        Call mXR.cmdOperate_Click(3)
    End If
End Sub