41 lines
1.8 KiB
VB.net
41 lines
1.8 KiB
VB.net
Imports Microsoft.VisualBasic.ApplicationServices
|
|
|
|
Imports Telerik.WinControls
|
|
|
|
Namespace My
|
|
' The following events are available for MyApplication:
|
|
' Startup: Raised when the application starts, before the startup form is created.
|
|
' Shutdown: Raised after all application forms are closed. This event is not raised if the application terminates abnormally.
|
|
' UnhandledException: Raised if the application encounters an unhandled exception.
|
|
' StartupNextInstance: Raised when launching a single-instance application and the application is already active.
|
|
' NetworkAvailabilityChanged: Raised when the network connection is connected or disconnected.
|
|
|
|
' **NEW** ApplyApplicationDefaults: Raised when the application queries default values to be set for the application.
|
|
|
|
' Example:
|
|
' Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
|
|
'
|
|
' ' Setting the application-wide default Font:
|
|
' e.Font = New Font(FontFamily.GenericSansSerif, 12, FontStyle.Regular)
|
|
'
|
|
' ' Setting the HighDpiMode for the Application:
|
|
' e.HighDpiMode = HighDpiMode.PerMonitorV2
|
|
'
|
|
' ' If a splash dialog is used, this sets the minimum display time:
|
|
' e.MinimumSplashScreenDisplayTime = 4000
|
|
' End Sub
|
|
|
|
Partial Friend Class MyApplication
|
|
|
|
Private Sub MyApplication_ApplyApplicationDefaults(sender As Object, e As ApplyApplicationDefaultsEventArgs) Handles Me.ApplyApplicationDefaults
|
|
Dim validTheme As Boolean =
|
|
ThemeResolutionService.LoadPackageResource("ModpackUpdater.Office2019DarkBluePurple.tssp")
|
|
|
|
If validTheme Then
|
|
ThemeResolutionService.ApplicationThemeName = "Office2019DarkBluePurple"
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|
|
End Namespace
|