JJ_17_11_try_catch_openconstructor_Demo

This commit is contained in:
JenneJ
2015-11-17 13:33:27 +01:00
parent 2ccba19ad9
commit d2a6070b54

View File

@@ -210,11 +210,16 @@
' TODO: NUR FÜR WINDREAM CON!!! ' TODO: NUR FÜR WINDREAM CON!!!
Public Sub OpenFormConstructorDemo(id As Integer) Public Sub OpenFormConstructorDemo(id As Integer)
CURRENT_CONSTRUCTOR_ID = id Try
Dim frm As New frmForm_Constructor_Main CURRENT_CONSTRUCTOR_ID = id
' frm = frmForm_Constructor.Instance() Dim frm As New frmForm_Constructor_Main
frm.MdiParent = frmMain ' frm = frmForm_Constructor.Instance()
frm.Show() frm.MdiParent = frmMain
frm.Show()
Catch ex As Exception
ClassLogger.Add(ex)
MsgBox("Fehler beim Laden des Formulars, bitte erneut versuchen")
End Try
End Sub End Sub
' TODO: NUR FÜR WINDREAM CON!!! ' TODO: NUR FÜR WINDREAM CON!!!