BeforeOpenProject 中用以下代码在启动项目时报以下错误，同样代码命令窗口测试正常？麻烦老师帮忙看一下，谢谢！
'利用正则表达式获取IP地址
Dim a As String = "当前 IP：27.224.226.159 来自于：中国 甘肃 定西 电信"
Dim rs As String = "\b(\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3})\b"
Dim rgx2 As New RegularExpressions.Regex(rs)
Dim match2 As Match = rgx2.Match(a)
Dim ipv4 As String
If match2.Success Then
ipv4 = "【" & match2.Value & "】"
End If
“UserCode”的类型初始值设定项引发异常。
未将对象引用设置到对象的实例。
[此贴子已经被作者于2024/5/12 8:07:53编辑过]