VERSION 5.00 Object = "{77D82F10-C844-11CF-9663-006008104BEC}#1.0#0"; "VW4start.ocx" Begin VB.Form FStart BorderStyle = 0 'Kein ClientHeight = 4740 ClientLeft = 1875 ClientTop = 2145 ClientWidth = 7800 ControlBox = 0 'False LinkTopic = "Form1" MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 4740 ScaleWidth = 7800 ShowInTaskbar = 0 'False StartUpPosition = 2 'Bildschirmmitte Begin VW4StartLib.VWStart VWStart1 Height = 4740 Left = -15 Top = -15 Width = 7800 _Version = 65536 _ExtentX = 13758 _ExtentY = 8361 _StockProps = 33 ProjectName = "DistillationDevice" End End Attribute VB_Name = "FStart" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub VWStart1_InitReady() 'Dieses Ereignis tritt auf, wenn die Prozessdatenbank vollständig 'initialisiert ist und alle Daten gültig sind. ' FAlarms.Show ' FAlarms.Hide ' FTrends.Show ' FTrends.Hide frmBack.Show FCentral.Show 'Das Hauptformular der Visualisierung wird angezeigt. Me.Hide 'Dieses Formular wird nur versteckt, es darf nicht entladen werden!!! End Sub Private Sub VWStart1_FinalizeAppShutdown() 'Die Prozessdatenbank (VWEManager, VWEKernel, Treiber, OPC-Server, ...) 'wurde ordentlich geschlossen: Jetzt kann auch das Visual Basic Programm beendet werden. End End Sub