FlowFact - Entwicklungstools

zurück

Sub - FlowFact_InitApplication

^ Seitenanfang

Schnittstelle über FlowFact-Objektmodell initialisieren


Voraussetzung: FlowFact muß gestartet sein und ein Benutzer ist angemeldet.
  Sub FlowFact_InitApplication()  
 




Public Sub FlowFact_InitApplication()
    Dim oFF As Object

    On Error Resume Next
    Set oFF = GetObject("", "FlowFact.Application")
    If Err <> 0 Or (oFF Is Nothing) = True Then
        MsgBox "FlowFact.Application-Objekt konnte nicht erstellt werden."
        Exit Sub
    End If
    On Error GoTo 0


    FlowFact_SetApplication oFF
End Sub