32 lines
1.0 KiB
VB.net
32 lines
1.0 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 Return
|
|
IsLoaded = True
|
|
|
|
ItemAboutPcl.Info = ItemAboutPcl.Info.Replace("%VERSION%", VersionDisplay).Replace("%VERSIONCODE%", VersionCode).Replace("%BRANCH%", CInt(BuildType))
|
|
If BuildType = BuildTypes.Debug Then
|
|
BtnDonateDonate.Visibility = Visibility.Collapsed
|
|
BtnDonateOutput.Visibility = Visibility.Visible
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Public Shared Sub CopyIdentify() Handles BtnDonateCopy.Click
|
|
ClipboardSet(Identify)
|
|
End Sub
|
|
Private Sub BtnDonateCodeInput_Click() Handles BtnDonateInput.Click
|
|
InputPotatoCode(False)
|
|
End Sub
|
|
Private Sub BtnDonateOutput_Click(sender As Object, e As EventArgs) Handles BtnDonateOutput.Click
|
|
GeneratePotatoCode()
|
|
End Sub
|
|
|
|
End Class
|