chores: 同步 #4360 有关下载任务名称的修改

This commit is contained in:
Pigeon0v0
2024-09-22 10:30:14 +08:00
parent bec86c0022
commit 893f791bb2
@@ -205,7 +205,12 @@
RunInNewThread( RunInNewThread(
Sub() Sub()
Try 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 = "资源包"
End Select
'确认默认保存位置 '确认默认保存位置
Dim DefaultFolder As String = Nothing Dim DefaultFolder As String = Nothing
If Project.Type = CompType.Mod Then If Project.Type = CompType.Mod Then