Pigeon0v0
0e0335e688
feat: NeoForge 自动安装 Stage 1 fix: StdVersion 可能错误地包含了 "neoforge-" 前缀 fix: 自动安装选择 NeoForge 时自动生成的核心名称存在重复字符串
33 lines
1.1 KiB
VB.net
33 lines
1.1 KiB
VB.net
Public Class PageDownloadNeoForge
|
|
|
|
Private Sub LoaderInit() Handles Me.Initialized
|
|
PageLoaderInit(Load, PanLoad, CardVersions, CardTip, DlNeoForgeListLoader, AddressOf Load_OnFinish)
|
|
End Sub
|
|
Private Sub Init() Handles Me.Loaded
|
|
PanBack.ScrollToHome()
|
|
End Sub
|
|
|
|
Private Sub Load_OnFinish()
|
|
'结果数据化
|
|
Try
|
|
Dim Versions As List(Of DlNeoForgeVersionEntry) = DlNeoForgeListLoader.Output
|
|
PanVersions.Children.Clear()
|
|
For Each Version In Versions
|
|
PanVersions.Children.Add(NeoForgeDownloadListItem(Version, AddressOf NeoForge_Selected, True))
|
|
Next
|
|
CardVersions.Title = "版本列表 (" & Versions.Count & ")"
|
|
Catch ex As Exception
|
|
Log(ex, "可视化 NeoForge 版本列表出错", LogLevel.Feedback)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub NeoForge_Selected(sender As MyListItem, e As EventArgs)
|
|
McDownloadNeoForgeSave(sender.Tag)
|
|
End Sub
|
|
|
|
Private Sub BtnWeb_Click(sender As Object, e As EventArgs) Handles BtnWeb.Click
|
|
OpenWebsite("https://neoforged.net/")
|
|
End Sub
|
|
|
|
End Class
|