fix: 重命名 Result 枚举为 ProcessReturnValues

This commit is contained in:
龙腾猫跃
2025-03-18 22:16:47 +08:00
committed by GitHub
parent 6ed967281b
commit 05d51a1336
+2 -2
View File
@@ -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($"该版本中无法使用以下特性: