VERSION 5.00 Object = "{F4B4BFE0-25E1-11D0-B26A-006008104BEC}#1.0#0"; "VW4Key.ocx" Object = "{F0EB2110-3CC3-11D0-8E54-006008104BEC}#1.0#0"; "VW4Index.ocx" Begin VB.Form FVWDialogs BackColor = &H00C0C0C0& BorderStyle = 0 'Kein Caption = "VisiWinStudio - VW4Language: Steuerelement VWIndex" ClientHeight = 9000 ClientLeft = 285 ClientTop = 225 ClientWidth = 12000 ControlBox = 0 'False Icon = "FVWDialogs.frx":0000 LinkTopic = "Form1" LockControls = -1 'True MaxButton = 0 'False MinButton = 0 'False PaletteMode = 1 'ZReihenfolge ScaleHeight = 9000 ScaleWidth = 12000 StartUpPosition = 2 'Bildschirmmitte Begin VB.Frame fraVWUserManagement BackColor = &H00C0C0C0& Height = 5235 Left = 7860 TabIndex = 11 Top = 1560 Width = 3315 Begin VW4KeyLib.VWKey keyLogIn Height = 435 Left = 120 TabIndex = 12 Top = 1440 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4IndexLib.VWIndex idxLabel Height = 555 Index = 3 Left = 120 Top = 240 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 979 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "VWUserManagement" BackColorOff = 12632256 ForeColorOff = 0 End Begin VW4IndexLib.VWIndex idxVWUserManagement Height = 315 Index = 0 Left = 120 Top = 900 Width = 3015 _Version = 65536 _ExtentX = 5318 _ExtentY = 556 _StockProps = 96 FontClass = "Arial8" TextOff = "idxDescription" IndexGroup = "FVWDialogs.VWUserManagement" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 End Begin VW4KeyLib.VWKey keyLogOut Height = 435 Left = 120 TabIndex = 13 Top = 1920 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4KeyLib.VWKey keyUsers Height = 435 Left = 120 TabIndex = 14 Top = 2400 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4KeyLib.VWKey keyAddUser Height = 435 Left = 120 TabIndex = 15 Top = 2880 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4KeyLib.VWKey keyWhoAmI Height = 435 Left = 120 TabIndex = 16 Top = 3360 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4KeyLib.VWKey keyChangePW Height = 435 Left = 120 TabIndex = 17 Top = 3840 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWUserManagement" End Begin VW4IndexLib.VWIndex idxVWUserManagement Height = 315 Index = 1 Left = 120 Top = 4380 Width = 3015 _Version = 65536 _ExtentX = 5318 _ExtentY = 556 _StockProps = 96 FontClass = "Arial8" TextOff = "idxLoggedInUser" IndexGroup = "FVWDialogs.VWUserManagement" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 Alignment = 8 End Begin VW4IndexLib.VWIndex idxUserName Height = 345 Left = 120 Top = 4740 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 609 _StockProps = 96 FontClass = "Arial10" TextOff = "-----" BackColorOff = 12632256 ForeColorOff = 0 End End Begin VB.Frame fraVWMsgBoxEx BackColor = &H00C0C0C0& Height = 2955 Left = 4320 TabIndex = 8 Top = 1560 Width = 3315 Begin VW4KeyLib.VWKey keyMessageA Height = 435 Left = 120 TabIndex = 9 Top = 1920 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 9 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBoxEx" End Begin VW4IndexLib.VWIndex idxLabel Height = 555 Index = 2 Left = 120 Top = 240 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 979 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "VWMsgBoxEx" BackColorOff = 12632256 ForeColorOff = 0 End Begin VW4IndexLib.VWIndex idxVWMsgBoxEx Height = 675 Index = 3 Left = 120 Top = 900 Width = 3015 _Version = 65536 _ExtentX = 5318 _ExtentY = 1191 _StockProps = 96 FontClass = "Arial8" TextOff = "idxDescription" IndexGroup = "FVWDialogs.VWMsgBoxEx" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 End Begin VW4KeyLib.VWKey keyMessageB Height = 435 Left = 120 TabIndex = 10 Top = 2400 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 9 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBoxEx" End End Begin VB.Frame fraVWMsgBox BackColor = &H00C0C0C0& Height = 4875 Left = 780 TabIndex = 1 Top = 1560 Width = 3315 Begin VW4KeyLib.VWKey keyOK Height = 435 Left = 120 TabIndex = 2 Top = 1920 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End Begin VW4IndexLib.VWIndex idxLabel Height = 555 Index = 0 Left = 120 Top = 240 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 979 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "VWMsgBox" BackColorOff = 12632256 ForeColorOff = 0 End Begin VW4IndexLib.VWIndex idxVWMsgBox Height = 675 Index = 1 Left = 120 Top = 900 Width = 3015 _Version = 65536 _ExtentX = 5318 _ExtentY = 1191 _StockProps = 96 FontClass = "Arial8" TextOff = "idxDescription" IndexGroup = "FVWDialogs.VWMsgBox" BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 0 End Begin VW4KeyLib.VWKey keyOKCancel Height = 435 Left = 120 TabIndex = 3 Top = 2400 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End Begin VW4KeyLib.VWKey keyYesNo Height = 435 Left = 120 TabIndex = 4 Top = 2880 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End Begin VW4KeyLib.VWKey keyYesNoCancel Height = 435 Left = 120 TabIndex = 5 Top = 3360 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End Begin VW4KeyLib.VWKey keyRetryCancel Height = 435 Left = 120 TabIndex = 6 Top = 3840 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End Begin VW4KeyLib.VWKey keyAbortRetryIgnore Height = 435 Left = 120 TabIndex = 7 Top = 4320 Width = 3075 _Version = 65536 _ExtentX = 5424 _ExtentY = 767 _StockProps = 72 ForeColor = 0 FontClass = "Arial8Bold" BackColor = 12632256 IndexGroup = "FVWDialogs.VWMsgBox" End End Begin VW4Language.XFooter XFooter1 Height = 2040 Left = 0 TabIndex = 0 Top = 6960 Width = 12000 _ExtentX = 21167 _ExtentY = 3598 End Begin VW4IndexLib.VWIndex idxUeberschrift Height = 495 Index = 1 Left = 6000 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "@FVWDialogs.idxCaption" UseTextProps = -1 'True BackColorOff = 12632256 ForeColorOff = 0 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4IndexLib.VWIndex idxUeberschrift Height = 495 Index = 0 Left = 0 Top = 0 Width = 6000 _Version = 65536 _ExtentX = 10583 _ExtentY = 873 _StockProps = 96 BorderStyle = 1 FontClass = "Arial12Bold" TextOff = "@Global.ProgramName" UseTextProps = -1 'True BackColorOff = 16711680 ForeColorOff = 16777215 ShadowStyle = 1 ShadowDepth = 3 ShadowColor2 = 14737632 Range = 32767 End Begin VW4IndexLib.VWIndex idxLabel Height = 555 Index = 1 Left = 165 Top = 720 Width = 11655 _Version = 65536 _ExtentX = 20558 _ExtentY = 979 _StockProps = 96 FontClass = "Arial12Bold" TextOff = "idxLabel0" IndexGroup = "FVWDialogs" BackColorOff = 12632256 ForeColorOff = 0 End End Attribute VB_Name = "FVWDialogs" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private WithEvents VWSUserLogin As VWCOMMONLib.VWSUserLogin Attribute VWSUserLogin.VB_VarHelpID = -1 Private Sub Form_Load() Set VWSUserLogin = New VWCOMMONLib.VWSUserLogin End Sub Private Sub keyAddUser_Click() VW4Dialogs.VWAddUser End Sub Private Sub keyChangePW_Click() VW4Dialogs.VWChangePassword End Sub Private Sub keyLogIn_Click() VW4Dialogs.VWUserLogin End Sub Private Sub keyLogOut_Click() FStart.VWStart1.LogOffCurrentUser End Sub Private Sub keyOK_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbOKOnly + vbInformation 'oder 'VW4Dialogs.VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbOKOnly + vbInformation End Sub Private Sub keyOKCancel_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbOKCancel + vbExclamation End Sub Private Sub keyUsers_Click() VW4Dialogs.VWUser End Sub Private Sub keyWhoAmI_Click() VW4Dialogs.VWWhoAmI End Sub Private Sub keyYesNo_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbYesNo + vbQuestion End Sub Private Sub keyYesNoCancel_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbYesNoCancel + vbQuestion End Sub Private Sub keyRetryCancel_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbRetryCancel + vbCritical End Sub Private Sub keyAbortRetryIgnore_Click() VWMsgBox "@FVWDialogs.VWMsgBox.msg", vbAbortRetryIgnore + vbCritical End Sub Private Sub keyMessageA_Click() Select Case VWMsgBoxEx("@FVWDialogs.VWMsgBoxEx.msgA", vbQuestion, , , , "@FVWDialogs.VWMsgBoxEx.keyA1", "@FVWDialogs.VWMsgBoxEx.keyA2") Case vwButton1 VWMsgBoxEx "@FVWDialogs.VWMsgBoxEx.msgA1", vbCritical, , , , "@FVWDialogs.VWMsgBoxEx.keyA3" Case vwButton2 VWMsgBoxEx "@FVWDialogs.VWMsgBoxEx.msgA2", vbCritical, , , , "@FVWDialogs.VWMsgBoxEx.keyA3" End Select End Sub Private Sub keyMessageB_Click() Select Case VWMsgBoxEx("@FVWDialogs.VWMsgBoxEx.msgB", vbQuestion + vbDefaultButton2, , , , "@FVWDialogs.VWMsgBoxEx.keyB1", "@FVWDialogs.VWMsgBoxEx.keyB2", "@FVWDialogs.VWMsgBoxEx.keyB3") Case vwButton1 VWMsgBoxEx "@FVWDialogs.VWMsgBoxEx.msgB1", vbInformation, , , , "@FVWDialogs.VWMsgBoxEx.keyB1a" Case vwButton2 VWMsgBoxEx "@FVWDialogs.VWMsgBoxEx.msgB2", vbInformation, , , , "@FVWDialogs.VWMsgBoxEx.keyB2a" Case vwButton3 VWMsgBoxEx "@FVWDialogs.VWMsgBoxEx.msgB3", vbInformation, , , , "@FVWDialogs.VWMsgBoxEx.keyB3a" ShutDownWindows End Select End Sub 'Diese Ereignisse kommen zur Zeit nicht im RunMode in VB, in der EXE-Datei werden sie korrekt ausgelöst. Private Sub VWSUserLogin_AutoLogOff(ByVal User As String, ByVal Comment As String, ByVal Pwd As String, ByVal Authorization As Long, ByVal AutoLogOff As Integer, QueryLogOff As Boolean) idxUserName.TextOff = "-----" End Sub Private Sub VWSUserLogin_UserLogIn(ByVal User As String, ByVal Comment As String, ByVal Pwd As String, ByVal Authorization As Long, ByVal AutoLogOff As Integer) idxUserName.TextOff = User End Sub Private Sub VWSUserLogin_UserLogOff(ByVal User As String, ByVal Comment As String, ByVal Pwd As String, ByVal Authorization As Long, ByVal AutoLogOff As Integer) idxUserName.TextOff = "-----" End Sub