PageOtherAbout.xaml.vb 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940
  1. Public Class PageOtherAbout
  2. Private Shadows IsLoaded As Boolean = False
  3. Private Sub PageOtherAbout_Loaded(sender As Object, e As RoutedEventArgs) Handles Me.Loaded
  4. '重复加载部分
  5. PanBack.ScrollToHome()
  6. '非重复加载部分
  7. If IsLoaded Then Exit Sub
  8. IsLoaded = True
  9. ItemAboutPcl.Info = ItemAboutPcl.Info.Replace("%VERSION%", VersionDisplayName).Replace("%VERSIONCODE%", VersionCode).Replace("%BRANCH%", VersionBranchCode)
  10. #If DEBUG Then
  11. BtnDonateDonate.Visibility = Visibility.Collapsed
  12. BtnDonateOutput.Visibility = Visibility.Visible
  13. #End If
  14. End Sub
  15. Private Sub BtnAboutBmclapi_Click(sender As Object, e As EventArgs) Handles BtnAboutBmclapi.Click
  16. OpenWebsite("https://afdian.net/a/bangbang93")
  17. End Sub
  18. Private Sub BtnAboutWiki_Click(sender As Object, e As EventArgs) Handles BtnAboutWiki.Click
  19. OpenWebsite("https://www.mcmod.cn")
  20. End Sub
  21. Public Shared Sub CopyUniqueAddress() Handles BtnDonateCopy.Click
  22. ClipboardSet(UniqueAddress)
  23. End Sub
  24. Private Sub BtnDonateCodeInput_Click() Handles BtnDonateInput.Click
  25. DonateCodeInput()
  26. End Sub
  27. #If DEBUG Then
  28. Private Sub BtnDonateOutput_Click(sender As Object, e As EventArgs) Handles BtnDonateOutput.Click
  29. DonateCodeGenerate()
  30. End Sub
  31. #End If
  32. End Class