|
|
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<65>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
|