-
Notifications
You must be signed in to change notification settings - Fork 0
Expand file tree
/
Copy pathApplicationEvents.vb
More file actions
32 lines (25 loc) · 1.4 KB
/
ApplicationEvents.vb
File metadata and controls
32 lines (25 loc) · 1.4 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Imports System.Threading.Tasks
Imports Microsoft.VisualBasic.ApplicationServices
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.
Partial Friend Class MyApplication
Public Shared ReadOnly Property RStudio As RsharpDevMain
Public Shared Sub Register(rstudio As RsharpDevMain)
MyApplication._RStudio = rstudio
' VisualStudio.ConfigRemote()
End Sub
Public Shared Async Function LaunchLanguageServer() As Threading.Tasks.Task
Await Task.Run(Sub() vscode.Launch())
End Function
Private Sub MyApplication_UnhandledException(sender As Object, e As UnhandledExceptionEventArgs) Handles Me.UnhandledException
End Sub
Private Sub MyApplication_Shutdown(sender As Object, e As EventArgs) Handles Me.Shutdown
Call Program.Save()
End Sub
End Class
End Namespace