fix: 重命名 Result 枚举为 ProcessReturnValues
This commit is contained in:
@@ -34,7 +34,7 @@ Friend Module ModSecret
|
|||||||
"2. 删除当前目录中的 PCL 文件夹,然后再试。" & vbCrLf &
|
"2. 删除当前目录中的 PCL 文件夹,然后再试。" & vbCrLf &
|
||||||
"3. 右键 PCL 选择属性,打开 兼容性 中的 以管理员身份运行此程序。",
|
"3. 右键 PCL 选择属性,打开 兼容性 中的 以管理员身份运行此程序。",
|
||||||
MsgBoxStyle.Critical, "运行环境错误")
|
MsgBoxStyle.Critical, "运行环境错误")
|
||||||
Environment.[Exit](Result.Cancel)
|
Environment.[Exit](ProcessReturnValues.Cancel)
|
||||||
End Try
|
End Try
|
||||||
If Not CheckPermission(Path & "PCL") Then
|
If Not CheckPermission(Path & "PCL") Then
|
||||||
MsgBox("PCL 没有对当前文件夹的写入权限,请尝试:" & vbCrLf &
|
MsgBox("PCL 没有对当前文件夹的写入权限,请尝试:" & vbCrLf &
|
||||||
@@ -42,7 +42,7 @@ Friend Module ModSecret
|
|||||||
"2. 删除当前目录中的 PCL 文件夹,然后再试。" & vbCrLf &
|
"2. 删除当前目录中的 PCL 文件夹,然后再试。" & vbCrLf &
|
||||||
"3. 右键 PCL 选择属性,打开 兼容性 中的 以管理员身份运行此程序。",
|
"3. 右键 PCL 选择属性,打开 兼容性 中的 以管理员身份运行此程序。",
|
||||||
MsgBoxStyle.Critical, "运行环境错误")
|
MsgBoxStyle.Critical, "运行环境错误")
|
||||||
Environment.[Exit](Result.Cancel)
|
Environment.[Exit](ProcessReturnValues.Cancel)
|
||||||
End If
|
End If
|
||||||
'开源版本提示
|
'开源版本提示
|
||||||
MyMsgBox($"该版本中无法使用以下特性:
|
MyMsgBox($"该版本中无法使用以下特性:
|
||||||
|
|||||||
Reference in New Issue
Block a user