66 lines
3.5 KiB
VB.net
66 lines
3.5 KiB
VB.net
Public Class PageVersionExport
|
|
|
|
Private CurrentVersion As McVersion = PageVersionLeft.Version
|
|
Private Type As ModpackType = ModpackType.Modrinth
|
|
Private SelectedSaves As New List(Of Integer)
|
|
Private ReadOnly Property Saves As List(Of String)
|
|
Get
|
|
If Directory.Exists(CurrentVersion.Path & "saves\") Then
|
|
Return Directory.EnumerateDirectories(CurrentVersion.Path & "saves\").ToList
|
|
End If
|
|
Return New List(Of String)
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub PageVersionExport_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
CurrentVersion = PageVersionLeft.Version '各个版本不同，每次都需要重新加载
|
|
TbExportName.HintText = CurrentVersion.Name
|
|
End Sub
|
|
|
|
#Region "控件事件"
|
|
Private Function IncludePCL() As Boolean
|
|
Return True
|
|
End Function
|
|
Private Sub ComboExportType_Change(sender As ComboBox, e As SelectionChangedEventArgs) Handles ComboExportType.SelectionChanged
|
|
If AniControlEnabled <> 0 Then Exit Sub
|
|
Type = sender.SelectedIndex
|
|
Select Case Type
|
|
Case ModpackType.Modrinth
|
|
If IncludePCL() Then 'TODO：修改这里的条件
|
|
If GridCompressed IsNot Nothing Then GridCompressed.Visibility = Visibility.Visible
|
|
If GridModrinth IsNot Nothing Then GridModrinth.Visibility = Visibility.Collapsed
|
|
Else
|
|
If GridCompressed IsNot Nothing Then GridCompressed.Visibility = Visibility.Collapsed
|
|
If GridModrinth IsNot Nothing Then GridModrinth.Visibility = Visibility.Visible
|
|
End If
|
|
End Select
|
|
CardExport.TriggerForceResize()
|
|
End Sub
|
|
If GridModrinth IsNot Nothing Then GridModrinth.Visibility = Visibility.Visible
|
|
Private Sub BtnExportExport_Click() Handles BtnExportExport.Click
|
|
If IncludePCL() AndAlso Val(VersionBranchCode) <> 50 Then
|
|
If MyMsgBox("你当前的 PCL 不是正式版，有二次分发（制作压缩包）的限制。" & vbCrLf &
|
|
"请使用正式版再次尝试该操作！" & vbCrLf &
|
|
"其他类型的整合包（例如 Modrinth 整合包）没有该限制。", Button1:="下载正式版", Button2:="取消") = 1 Then
|
|
OpenWebsite("https://afdian.net/p/0164034c016c11ebafcb52540025c377")
|
|
End If
|
|
Exit Sub
|
|
End If
|
|
Dim savePath As String = SelectAs(
|
|
"选择导出位置", $"整合包 - {If(String.IsNullOrWhiteSpace(TbExportName.Text), CurrentVersion.Name, TbExportName.Text)}" & If(Type = ModpackType.Modrinth, ".mrpack", ".zip"),
|
|
If(Type = ModpackType.Modrinth, "Modrinth 整合包(*.mrpack)|*.mrpack", "整合包文件(*.zip)|*.zip"))
|
|
If String.IsNullOrEmpty(savePath) Then Exit Sub
|
|
ModpackExport(New ExportOptions(CurrentVersion, savePath, Type, {TbExportSave.Text},
|
|
PCLSetupGlobal:=CheckExportGlobal.Checked, Name:=TbExportName.Text,
|
|
VerID:=TbExportVersion.Text))
|
|
End Sub
|
|
ModpackExport(New ExportOptions(CurrentVersion, savePath, Type, {TbExportSave.Text},
|
|
PCLSetupGlobal:=CheckExportGlobal.Checked,
|
|
PCLSetupVer:=CheckExportVersion.Checked, Name:=TbExportName.Text,
|
|
VerID:=TbExportVersion.Text))
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
End Class
|