类模块里添加match类型出错，用户定义类型未定义（高手Help)？在过程中定义没有问题，不知道错误的原因。Privat
类模块里添加match类型出错，用户定义类型未定义（高手Help)？
在过程中定义没有问题，不知道错误的原因。
Private Sub Class_Initialize()
End Sub
Private Sub Class_Terminate()
End Sub
'match的m始终改成大小写
Public Function TryGetMatch(ByVal text As String, ByVal pat As String, ByRef m As match) As bool
Dim re As RegExp
Dim matches As MatchCollection
Set re = New RegExp
re.Global = True
re.IgnoreCase = True
re.Pattern = pat
Set matches = re.Execute(text)
If matches.Count <> 0 Then
m = matches(0)
TryGetMatch = True
Else
TryGetMatch = False
End If
End Function
[解决办法]
Public Function TryGetMatch(ByVal text As String, ByVal pat As String, ByRef m As String) As bool