41 lines
1.3 KiB
VB.net
41 lines
1.3 KiB
VB.net
Public Class PageOtherAbout
|
|
|
|
Private Shadows IsLoaded As Boolean = False
|
|
Private Sub PageOtherAbout_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
|
|
|
|
'重复加载部分
|
|
PanBack.ScrollToHome()
|
|
|
|
'非重复加载部分
|
|
If IsLoaded Then Exit Sub
|
|
IsLoaded = True
|
|
|
|
ItemAboutPcl.Info = ItemAboutPcl.Info.Replace("%VERSION%", VersionDisplayName).Replace("%VERSIONCODE%", VersionCode).Replace("%BRANCH%", VersionBranchCode)
|
|
#If DEBUG Then
|
|
BtnDonateDonate.Visibility = Visibility.Collapsed
|
|
BtnDonateOutput.Visibility = Visibility.Visible
|
|
#End If
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnAboutBmclapi_Click(sender As Object, e As EventArgs) Handles BtnAboutBmclapi.Click
|
|
OpenWebsite("https://afdian.com/a/bangbang93")
|
|
End Sub
|
|
Private Sub BtnAboutWiki_Click(sender As Object, e As EventArgs) Handles BtnAboutWiki.Click
|
|
OpenWebsite("https://www.mcmod.cn")
|
|
End Sub
|
|
Public Shared Sub CopyUniqueAddress() Handles BtnDonateCopy.Click
|
|
ClipboardSet(UniqueAddress)
|
|
End Sub
|
|
Private Sub BtnDonateCodeInput_Click() Handles BtnDonateInput.Click
|
|
DonateCodeInput()
|
|
End Sub
|
|
|
|
#If DEBUG Then
|
|
Private Sub BtnDonateOutput_Click(sender As Object, e As EventArgs) Handles BtnDonateOutput.Click
|
|
DonateCodeGenerate()
|
|
End Sub
|
|
#End If
|
|
|
|
End Class
|