feat: 点击“下载新 Mod”按钮跳转到下载页面时自动填充搜索框的内容
This commit is contained in:
@@ -5,6 +5,10 @@
|
|||||||
''' 在切换到该页面时自动设置的目标版本。
|
''' 在切换到该页面时自动设置的目标版本。
|
||||||
''' </summary>
|
''' </summary>
|
||||||
Public Shared TargetVersion As McVersion = Nothing
|
Public Shared TargetVersion As McVersion = Nothing
|
||||||
|
''' <summary>
|
||||||
|
''' 在切换到该页面时自动设置的搜索框内的内容。
|
||||||
|
''' </summary>
|
||||||
|
Public Shared TargetName As String = Nothing
|
||||||
|
|
||||||
'加载器信息
|
'加载器信息
|
||||||
Public Shared Loader As New LoaderTask(Of CompProjectRequest, Integer)("CompProject Mod", AddressOf CompProjectsGet, AddressOf LoaderInput) With {.ReloadTimeout = 60 * 1000}
|
Public Shared Loader As New LoaderTask(Of CompProjectRequest, Integer)("CompProject Mod", AddressOf CompProjectsGet, AddressOf LoaderInput) With {.ReloadTimeout = 60 * 1000}
|
||||||
@@ -52,6 +56,9 @@
|
|||||||
ModLoader = CompModLoaderType.Forge Then '选择了 Forge
|
ModLoader = CompModLoaderType.Forge Then '选择了 Forge
|
||||||
ModLoader = CompModLoaderType.Any '此时,视作没有筛选 Mod Loader(因为部分老 Mod 没有设置自己支持的加载器)
|
ModLoader = CompModLoaderType.Any '此时,视作没有筛选 Mod Loader(因为部分老 Mod 没有设置自己支持的加载器)
|
||||||
End If
|
End If
|
||||||
|
If TargetName IsNot Nothing Then
|
||||||
|
FrmDownloadMod.TextSearchName.Text = TargetName
|
||||||
|
End If
|
||||||
With Request
|
With Request
|
||||||
.SearchText = FrmDownloadMod.TextSearchName.Text
|
.SearchText = FrmDownloadMod.TextSearchName.Text
|
||||||
.GameVersion = GameVersion
|
.GameVersion = GameVersion
|
||||||
|
|||||||
@@ -381,6 +381,7 @@ Install:
|
|||||||
''' </summary>
|
''' </summary>
|
||||||
Private Sub BtnManageDownload_Click(sender As Object, e As MouseButtonEventArgs) Handles BtnManageDownload.Click, BtnHintDownload.Click
|
Private Sub BtnManageDownload_Click(sender As Object, e As MouseButtonEventArgs) Handles BtnManageDownload.Click, BtnHintDownload.Click
|
||||||
PageDownloadMod.TargetVersion = PageVersionLeft.Version '将当前版本设置为筛选器
|
PageDownloadMod.TargetVersion = PageVersionLeft.Version '将当前版本设置为筛选器
|
||||||
|
PageDownloadMod.TargetName = SearchBox.Text '将当前搜索框内容设置为筛选器
|
||||||
FrmMain.PageChange(FormMain.PageType.Download, FormMain.PageSubType.DownloadMod)
|
FrmMain.PageChange(FormMain.PageType.Download, FormMain.PageSubType.DownloadMod)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
||||||
|
|||||||
Reference in New Issue
Block a user