fix: 修复了查看数据包工程时崩溃的问题，但可能会炸掉点别的东西，需要测试

2024-09-22 10:15:49 +08:00
parent c1ba65783d
commit 9d3be21090
3 changed files with 20 additions and 2 deletions
@@ -205,7 +205,13 @@
        RunInNewThread(
        Sub()
            Try
-                Dim Desc As String = If(Project.Type = CompType.ModPack, "整合包", If(Project.Type = CompType.Mod, "Mod ", "资源包"))
+                Dim Desc As String = "资源"
+                Select Case Project.Type
+                    Case CompType.ModPack : Desc = "整合包"
+                    Case CompType.Mod : Desc = "Mod "
+                    Case CompType.ResourcePack : Desc = "资源包"
+                    Case CompType.DataPack : Desc = If(File.FileName.EndsWith(".jar"), "Mod ", "数据包") '有些项目同时包含 Mod 版本和数据包版本
+                End Select
                '确认默认保存位置
                Dim DefaultFolder As String = Nothing
                If Project.Type = CompType.Mod Then