diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml index e9690ad..b03f78d 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml @@ -7,7 +7,13 @@ PanScroll="{Binding ElementName=PanBack}"> - + + + + + + + @@ -20,50 +26,85 @@ + + + - - - - + + + + + + + + + + + + + + + + + + + + - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + diff --git a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb index 2b26139..d7fa6c0 100644 --- a/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb +++ b/Plain Craft Launcher 2/Pages/PageVersion/PageVersionExport.xaml.vb @@ -36,7 +36,7 @@ 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 & @@ -54,6 +54,11 @@ 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