Sub | Pane_Show(ByVal strFormName As String) |
---|---|
strFormName: Fenstername (siehe oben) Public Sub Pane_Show(ByVal strFormName As String) Dim oPane As Object Select Case m_oApplication.FlowFact_InitType Case INITTYPE_APPLICATION Set oPane = m_oApplication.FlowFact_Application.Panes(strFormName) If (oPane Is Nothing) = False Then oPane.Show End If Case INITTYPE_CONNECTOR 'do nothing Case Else RaiseError_NotInit End Select End Sub |