![]() |
FlowFact - Entwicklungstools |
![]() |
Sub | FlowFact_SetApplication(ByVal oFF) |
oFF: Zugriffsvariable auf das FlowFact-Objektmodell vom Typ GetObject("", "FlowFact.Application") Public Sub FlowFact_SetApplication(ByVal oFF) Dim blnLogin As Boolean If (oFF Is Nothing) = True Then MsgBox "FlowFact.Application-Objekt ist nicht vorhanden." Exit Sub End If On Error Resume Next blnLogin = oFF.IsLoggedIn() If Err <> 0 Then MsgBox "FlowFact_SetApplication wurde mit einem ungültigen FlowFact-Objekt aufgerufen." Exit Sub End If On Error GoTo 0 If blnLogin = False Then MsgBox "Sie müssen in FlowFact angemeldet sein." Exit Sub End If FlowFact_Done Set m_oFF = oFF Set m_oUtil = m_oFF.Util On Error Resume Next Set m_oBlob = m_oFF.Blob Set m_oDbIni = m_oFF.DbIni On Error GoTo 0 m_oFlowFactFolder = m_oFF.Folder m_oTools.Init Me m_oBase.Init Me, m_oTools m_oFileSystem.Init m_InitType = INITTYPE_APPLICATION End Sub |