35 lines
1.0 KiB
VB.net
35 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%", VersionDisplayName).Replace("%VERSIONCODE%", VersionCode).Replace("%BRANCH%", VersionBranchCode)
|
|
#If DEBUG Then
|
|
BtnDonateDonate.Visibility = Visibility.Collapsed
|
|
BtnDonateOutput.Visibility = Visibility.Visible
|
|
#End If
|
|
|
|
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
|