Skip to content
This repository was archived by the owner on Nov 3, 2023. It is now read-only.

Implement some events on WindowsFormsApplicationBase #69

Open
wants to merge 4 commits into
base: main
Choose a base branch
from
Open

Implement some events on WindowsFormsApplicationBase #69

Changes from all commits
Commits
Show all changes
4 commits
Select commit Hold shift + click to select a range
31d35df
WindowsFormsApplicationBase's OnCreateMainForm does nothing.
Jun 15, 2019
0746fe0
Implement WindowsFormsApplicationBase.OnInitialize.
Jun 15, 2019
7b840b2
Implement WindowsFormsApplicationBase.OnStartup.
Jun 15, 2019
faacb04
Implement WindowsFormsApplicationBase.OnShutdown.
Jun 15, 2019
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
24 changes: 20 additions & 4 deletions ...soft.VisualBasic/Microsoft.VisualBasic.ApplicationServices/WindowsFormsApplicationBase.vb
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -74,9 +74,25 @@ Namespace Microsoft.VisualBasic.ApplicationServices

Public Sub Run(ByVal commandLine() As String)
#If TARGET_JVM = False Then 'Not Supported by Grasshopper
Dim args As ReadOnlyCollection(Of String)

args = new ReadOnlyCollection(Of String)(commandLine)

OnInitialize(args)

Dim startup as StartupEventArgs

startup = New StartupEventArgs(args)

If Not OnStartup(startup) Then
Exit Sub
End If

OnRun()
'Throw New Exception("Visual Basic 2005 applications are not currently supported (try disabling 'Enable Application Framework')")
'Application.Run()

OnShutdown()
#Else
Throw New NotImplementedException
#End If
Expand Down Expand Up @@ -170,7 +186,6 @@ Namespace Microsoft.VisualBasic.ApplicationServices

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Protected Overridable Sub OnCreateMainForm()
Throw New NotImplementedException
End Sub

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Expand All @@ -180,7 +195,7 @@ Namespace Microsoft.VisualBasic.ApplicationServices

<EditorBrowsable(EditorBrowsableState.Advanced), STAThread()> _
Protected Overridable Function OnInitialize(ByVal commandLineArgs As ReadOnlyCollection(Of String)) As Boolean
Throw New NotImplementedException
'FIXME: call OnCreateSplashScreen
End Function

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Expand All @@ -198,12 +213,13 @@ Namespace Microsoft.VisualBasic.ApplicationServices

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Protected Overridable Sub OnShutdown()
Throw New NotImplementedException
RaiseEvent Shutdown(new EventArgs())
End Sub

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Protected Overridable Function OnStartup(ByVal eventArgs As StartupEventArgs) As Boolean
Throw New NotImplementedException
RaiseEvent Startup(eventArgs)
OnStartup = Not eventArgs.Cancel
End Function

<EditorBrowsable(EditorBrowsableState.Advanced)> _
Expand Down