请问，，类模块没有可见界面，那定义属性是不是很难，还有方法和事件，

Question

还有，，，要定义这些东西要掌握多少理论，，，，你们给个主意，，小妹先谢谢了

Answer 1

如果没有事件的话很简单，就像普通的模块中的一样。然后就可以使用类模块的名称定义变量了。
'项目类型是ActiveX Dll,编译后生成*.dll文件，使用前先注册。
'类模块,名称是CheckUC。--------------------------------------------
Option Explicit
Private ReturnV As Boolean'该函数用于检测单位编码的格式是否合法，若合法则返回True；否则返回False
Public Function CheckUnitCode(UnitCode As String) As Boolean
Dim db As String
Dim i As Integer
    #If MYDEBUG = 1 Then
        DebugInfo "Value to Check:" + UnitCode
    #End If
    db = "ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789"
    
    If UnitCode = "" Then
        CheckUnitCode = False
        ReturnV = False
        Exit Function
    End If
    
    If Len(UnitCode) < 2 And Len(UnitCode) > 8 Then
        CheckUnitCode = False
        ReturnV = False
        Exit Function
    End If
    
    If Len(UnitCode) Mod 2 <> 0 Then
        CheckUnitCode = False
        ReturnV = False
        Exit Function
    End If
    
    UnitCode = UCase(UnitCode)
    For i = 1 To Len(UnitCode)
        If InStr(db, Mid(UnitCode, i, 1)) > 0 Then
        Else
            CheckUnitCode = False
            ReturnV = False
            Exit Function
        End If
    Next i
    CheckUnitCode = True
    ReturnV = True
End FunctionPrivate Sub Class_Initialize()
    #If MYDEBUG = 1 Then
        DebugInfo "CheckUnitCode.dll is logging (begin time is " + CStr(Now) + ")"
    #End If
End SubPrivate Sub Class_Terminate()
    #If MYDEBUG = 1 Then
        If ReturnV Then
            DebugInfo "CheckUnitCode=True" + Chr(13) + Chr(10) + "CheckUnitCode completes logging now."
        Else
            DebugInfo "CheckUnitCode=False" + Chr(13) + Chr(10) + "CheckUnitCode completes logging now."
        End If
    #End If
End Sub
'----------------------------------------------------------
’用的时候
dim G_ChkUC As CheckUC