BECKHOFF/四车间/M779-10号车（已改）/BACK-C/VisiWin/VisiWinStudio/Samples/VW4DateTime/XFooter.ctl

VERSION 5.00
Object = "{F4B4BFE0-25E1-11D0-B26A-006008104BEC}#1.0#0"; "VW4Key.ocx"
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
Begin VB.UserControl XFooter 
   ClientHeight    =   840
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   12000
   LockControls    =   -1  'True
   ScaleHeight     =   840
   ScaleWidth      =   12000
   Begin VW4LanguageLib.VWLanguage VWLanguage1 
      Left            =   900
      Top             =   420
      _Version        =   65536
      _ExtentX        =   794
      _ExtentY        =   794
      _StockProps     =   0
   End
   Begin VW4KeyLib.VWKey keyF10 
      Height          =   840
      Left            =   10800
      TabIndex        =   0
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   -2147483640
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   121
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF9 
      Height          =   840
      Left            =   9600
      TabIndex        =   1
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   -2147483640
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   120
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF8 
      Height          =   840
      Left            =   8400
      TabIndex        =   2
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   -2147483640
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   119
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF7 
      Height          =   840
      Left            =   7200
      TabIndex        =   3
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   -2147483640
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   118
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF6 
      Height          =   840
      Left            =   6000
      TabIndex        =   4
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   117
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF5 
      Height          =   840
      Left            =   4800
      TabIndex        =   5
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   116
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF4 
      Height          =   840
      Left            =   3600
      TabIndex        =   6
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   115
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF3 
      Height          =   840
      Left            =   2400
      TabIndex        =   7
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   114
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF2 
      Height          =   840
      Left            =   1200
      TabIndex        =   8
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   113
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
   Begin VW4KeyLib.VWKey keyF1 
      Height          =   840
      Left            =   0
      TabIndex        =   9
      Top             =   0
      Width           =   1200
      _Version        =   65536
      _ExtentX        =   2117
      _ExtentY        =   1482
      _StockProps     =   72
      ForeColor       =   0
      FontClass       =   "Arial8Bold"
      Alignment       =   0
      Key             =   112
      IndexGroup      =   "Global"
      FocusOnClick    =   0   'False
   End
End
Attribute VB_Name = "XFooter"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private Sub keyF1_Click()
    ChangeForm 1
End Sub

Private Sub keyF2_Click()
    ChangeForm 2
End Sub

Private Sub keyF3_Click()
    ChangeForm 3
End Sub

Private Sub keyF4_Click()
    ChangeForm 4
End Sub

Private Sub keyF5_Click()
    ChangeForm 5
End Sub

Private Sub keyF6_Click()
    ChangeForm 6
End Sub

Private Sub keyF7_Click()
    ChangeForm 7
End Sub

Private Sub keyF8_Click()
    ChangeForm 8
End Sub

Private Sub keyF9_Click()
    ChangeForm 9
End Sub

Private Sub keyF10_Click()
    ChangeForm 10
End Sub



Private Sub ChangeForm(ByVal KeyNumber As Integer)
    'Diese Funktion wird von allen Funktionstasten in allen
    'Formularen aufgerufen, die die gleiche Funktion ausl<73>sen.
    'Eingabe:
    '  KeyNumber: Nummer der Funktionstaste
    
    'Lokale Variablen f<>r Formular-Objekte
    Dim frmActive As Form, frmNew As Form
    
    'aktuelles Formular bestimmen
    Set frmActive = Screen.ActiveForm
    If frmActive Is Nothing Then
        Exit Sub
    End If
    
    'anhand der Funktionstastennummer das neue Formular bestimmen
    Select Case KeyNumber
    Case 1
        VWLanguage1.Language = 1031
        Exit Sub
    Case 2
        VWLanguage1.Language = 1033
        Exit Sub
    Case 3
    Case 4
        Set frmNew = FCentral
    Case 5
        Set frmNew = FVWTime
    Case 6
        Set frmNew = FVWAlarmLine
    Case 7
        Set frmNew = FVWAlarmList
    Case 8
        Set frmNew = FVBok
    Case 9
        Set frmNew = FVBwrong
    Case 10
        EndProgram
        Exit Sub
    End Select
    
    'Mauszeiger auf Warten/Sanduhr schalten
    Screen.MousePointer = vbHourglass
    
    If frmActive Is frmNew Or frmNew Is Nothing Then
        'altes = neues Formular -> mache nix
    Else
        'neues Formular anzeigen
        frmNew.Show
        'und was ist mit dem aktuellen/alten Formular?
        frmActive.Hide 'nur verstecken =>
        '++ kann schneller wieder angezeigt werden
        '-- Speicher wird nicht wieder freigegeben
        'oder
        'Unload frmActive 'komplett entladen =>
        '-- wieder angezeigen dauert l<>nger
        '++ Speicher wird freigegeben
    End If
    
    'Mauszeiger zur<75>ck auf Normal/Pfeil schalten
    Screen.MousePointer = vbDefault
End Sub