VERSION 5.00 Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx" Begin VB.MDIForm frmMDI BackColor = &H8000000C& Caption = "VisiWin ActiveX-Controls" ClientHeight = 10950 ClientLeft = 165 ClientTop = 450 ClientWidth = 15240 Icon = "frmMDI.frx":0000 LinkTopic = "MDIForm1" StartUpPosition = 2 'Bildschirmmitte WhatsThisHelp = -1 'True Begin VB.Timer Timer1 Enabled = 0 'False Interval = 100 Left = 2895 Top = 2460 End Begin VW4LanguageLib.VWLanguage lanSprache Left = 3495 Top = 2445 _Version = 65536 _ExtentX = 794 _ExtentY = 794 _StockProps = 0 End Begin MSComctlLib.ImageList ImageList1 Left = 4140 Top = 2355 _ExtentX = 1005 _ExtentY = 1005 BackColor = -2147483643 ImageWidth = 26 ImageHeight = 26 MaskColor = 12632256 _Version = 393216 BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628} NumListImages = 11 BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":08CA Key = "" EndProperty BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":0AFC Key = "" EndProperty BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":0D2E Key = "" EndProperty BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":0F60 Key = "" EndProperty BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":1192 Key = "" EndProperty BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":13C4 Key = "" EndProperty BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":15F6 Key = "" EndProperty BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":1828 Key = "" EndProperty BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":1A5A Key = "" EndProperty BeginProperty ListImage10 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":1C8C Key = "" EndProperty BeginProperty ListImage11 {2C247F27-8591-11D1-B16A-00C0F0283628} Picture = "frmMDI.frx":1EBE Key = "" EndProperty EndProperty End Begin MSComctlLib.Toolbar Toolbar1 Align = 1 'Oben ausrichten Height = 780 Left = 0 TabIndex = 1 Top = 0 Width = 15240 _ExtentX = 26882 _ExtentY = 1376 ButtonWidth = 2011 ButtonHeight = 1217 Appearance = 1 ImageList = "ImageList1" _Version = 393216 BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} NumButtons = 11 BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSVarOut" ImageIndex = 1 EndProperty BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSVarIn" ImageIndex = 2 EndProperty BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSBar" ImageIndex = 3 EndProperty BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSKey" ImageIndex = 4 EndProperty BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSShape" ImageIndex = 5 EndProperty BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSFill" ImageIndex = 6 EndProperty BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSPicBox" ImageIndex = 7 EndProperty BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSLevel" ImageIndex = 8 EndProperty BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSGauge" ImageIndex = 9 EndProperty BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSSymbol" ImageIndex = 10 EndProperty BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} Caption = "VWSLanguage" ImageIndex = 11 EndProperty EndProperty End Begin VB.PictureBox Picture2 Align = 2 'Unten ausrichten Height = 315 Left = 0 ScaleHeight = 255 ScaleWidth = 15180 TabIndex = 0 Top = 10635 Width = 15240 Begin VWSLanguageLib.VWSIndex VWSIndex1 Height = 255 Left = 0 Top = 0 Width = 15420 _cx = 27199 _cy = 450 BackStyle = 0 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 4 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "Tahoma" Size = 9.75 Charset = 0 Weight = 700 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = 14935011 BackColorOn = -2147483643 ForeColorOff = 14583808 ForeColorOn = -2147483640 VWItem = "" Blink = 0 IndexGroup = "General" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "VWSIndex1" End End Begin VB.Menu Menü Caption = "Datei" Index = 0 Begin VB.Menu MenüDatei Caption = "Beenden" Index = 0 End End End Attribute VB_Name = "frmMDI" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub MDIForm_Load() frmLevel.Show Set OpenedForm = frmLevel VWSIndex1.TextOff = "Level" If lanSprache.Language = 1031 Then lanSprache.Language = 1033 Me.Menü(0).Caption = "File" Me.MenüDatei(0).Caption = "Exit" Else lanSprache.Language = 1031 Me.Menü(0).Caption = "Datei" Me.MenüDatei(0).Caption = "Beenden" End If End Sub Private Sub MDIForm_Unload(Cancel As Integer) EndProgram End Sub Private Sub MenüDatei_Click(Index As Integer) Select Case Index Case 0 EndProgram End Select End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Caption Case "VWSLevel" If OpenedForm.Name = "frmLevel" Then Exit Sub Unload OpenedForm frmLevel.Show Set OpenedForm = frmLevel VWSIndex1.TextOff = "Level" Case "VWSVarOut" If OpenedForm.Name = "frmVarOut" Then Exit Sub Unload OpenedForm frmVarOut.Show Set OpenedForm = frmVarOut VWSIndex1.TextOff = "VarOut" Case "VWSVarIn" If OpenedForm.Name = "frmVarIn" Then Exit Sub Unload OpenedForm frmVarIn.Show Set OpenedForm = frmVarIn VWSIndex1.TextOff = "VarIn" Case "VWSBar" If OpenedForm.Name = "frmBar" Then Exit Sub Unload OpenedForm frmBar.Show Set OpenedForm = frmBar VWSIndex1.TextOff = "Bar" Case "VWSKey" If OpenedForm.Name = "frmKey" Then Exit Sub Unload OpenedForm frmKey.Show Set OpenedForm = frmKey VWSIndex1.TextOff = "Key" Case "VWSShape" If OpenedForm.Name = "frmShape" Then Exit Sub Unload OpenedForm frmShape.Show Set OpenedForm = frmShape VWSIndex1.TextOff = "Shape" Case "VWSFill" If OpenedForm.Name = "frmFill" Then Exit Sub Unload OpenedForm frmFill.Show Set OpenedForm = frmFill VWSIndex1.TextOff = "Fill" Case "VWSPicBox" If OpenedForm.Name = "frmPicBox" Then Exit Sub Unload OpenedForm frmPicBox.Show Set OpenedForm = frmPicBox VWSIndex1.TextOff = "PicBox" Case "VWSGauge" If OpenedForm.Name = "frmGauge" Then Exit Sub Unload OpenedForm frmGauge.Show Set OpenedForm = frmGauge VWSIndex1.TextOff = "Gauge" Case "VWSSymbol" If OpenedForm.Name = "frmSymbol" Then Exit Sub Unload OpenedForm frmSymbol.Show Set OpenedForm = frmSymbol VWSIndex1.TextOff = "Symbol" Case "VWSLanguage" If lanSprache.Language = 1031 Then lanSprache.Language = 1033 Me.Menü(0).Caption = "File" Me.MenüDatei(0).Caption = "Exit" Else lanSprache.Language = 1031 Me.Menü(0).Caption = "Datei" Me.MenüDatei(0).Caption = "Beenden" End If End Select End Sub