| 12345678910111213141516171819202122232425262728293031323334353637383940 |
- 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.net/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
|