fix(resource): 展开上个页面已展开的卡片功能不生效

This commit is contained in:
wyc-26
2026-05-24 20:47:17 +08:00
parent 105e798744
commit cad37e9fc2
@@ -90,7 +90,6 @@
If Card.Title <> "" AndAlso Not Card.IsSwapped Then Titles.Add(Card.Title) If Card.Title <> "" AndAlso Not Card.IsSwapped Then Titles.Add(Card.Title)
Next Next
Logger.Info($"记录当前已展开的卡片:{String.Join("、", Titles)}") Logger.Info($"记录当前已展开的卡片:{String.Join("、", Titles)}")
FrmMain.PageCurrent.Additional(1) = Titles
End If End If
'打开详情页 '打开详情页
Dim TargetType As ResourceTypes Dim TargetType As ResourceTypes
@@ -123,7 +122,7 @@
TargetLoader = FrmMain.PageCurrent.Additional(3) TargetLoader = FrmMain.PageCurrent.Additional(3)
End If End If
FrmMain.PageChange(New FormMain.PageStackData With {.Page = FormMain.PageType.ResourceDetail, FrmMain.PageChange(New FormMain.PageStackData With {.Page = FormMain.PageType.ResourceDetail,
.Additional = {sender.Tag, New List(Of String), TargetInstance, TargetLoader, TargetType}}) .Additional = {sender.Tag, Titles, TargetInstance, TargetLoader, TargetType}})
End Sub End Sub
'鼠标点击判定 '鼠标点击判定