VERSION 5.00 Object = "{2F815EB6-3A15-4C5D-ADB0-464DACCBB1BB}#1.0#0"; "VisiWinStudio.ocx" Object = "{D932DE9C-9BD8-4B1F-9BAE-43326F307149}#1.0#0"; "VWSAlarm.ocx" Object = "{C1B43C67-D439-11D5-8A98-0050BAB20053}#2.3#0"; "VWSFrame.ocx" Object = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Begin VB.Form FAlarmNotes BorderStyle = 0 'Kein ClientHeight = 11520 ClientLeft = 0 ClientTop = 0 ClientWidth = 15360 ClipControls = 0 'False Icon = "FAlarmNotes.frx":0000 ScaleHeight = 11520 ScaleWidth = 15360 StartUpPosition = 2 'Bildschirmmitte Begin VWSFrameLib.VWSFrame fraNote Height = 915 Left = 2040 TabIndex = 3 Top = 6660 Width = 6975 _ExtentX = 12303 _ExtentY = 1614 Caption = "fraNote" BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty IndexGroup = "FAlarmNotes" Begin VB.TextBox txtNote BackColor = &H8000000F& Enabled = 0 'False Height = 375 Left = 180 TabIndex = 4 Top = 360 Width = 5235 End Begin VisiWinStudioLib.VWSKey keyAddNote Height = 375 Left = 5460 TabIndex = 5 Top = 360 Width = 1395 _cx = 2461 _cy = 661 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" PictureMonitorOn= "FAlarmNotes.frx":000C ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = 0 'False BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColor = -2147483633 ForeColor = -2147483630 BorderColor2D = -2147483630 BackStyle = 1 ButtonStyle = 1 Alignment = 7 FocusRect = -1 'True Picture = "FAlarmNotes.frx":0028 PictureDown = "FAlarmNotes.frx":0044 PictureDisabled = "FAlarmNotes.frx":0060 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "Hinzufügen" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End End Begin VWSAlarmDemo.XHeader XHeader1 Height = 1020 Left = 0 TabIndex = 0 Top = 0 Width = 15360 _ExtentX = 27093 _ExtentY = 873 Caption = "idxCaption" IndexGroup = "FAlarmNotes" End Begin VWSAlarmDemo.XFooter XFooter1 Height = 840 Left = 0 TabIndex = 1 Top = 10680 Width = 15360 _ExtentX = 27093 _ExtentY = 4048 End Begin VWSAlarmDemo.XAlarm XAlarm1 Height = 1395 Left = 0 TabIndex = 2 Top = 9240 Width = 15360 _ExtentX = 27093 _ExtentY = 2461 End Begin VWSAlarmLib.VWSAlarmList VWSAlarmList1 Height = 4755 Left = 2040 TabIndex = 6 Top = 1680 Width = 11475 _cx = 20241 _cy = 8387 BackColor = -2147483633 Enabled = -1 'True ScrollBar = 1 ColumnWidth = "130;100;54;50;400" Grid = 1 TextStyle = 1 m_nWidth = 130 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty DisplayFormat = "TG2PX" FormatTime = "@LongTime" FormatDate = "@LongDate" TimeMode = 2 Sort = 3 Blink = 0 KeyAck = 0 KeyDown = 0 KeyUp = 0 StateIcons = -1 'True StateColoring = -1 'True AllowAck = -1 'True PriorityMax = -1 PriorityMin = -1 TextInEvent = -1 'True AlarmGroups = "" AlarmClasses = "" HeaderStyle = 0 AllowHeaderSort = 0 'False States = "0000" BackColorSelected= 12582912 ForeColorSelected= 16777215 FontClass = "" AlarmDisplayMode= 0 AuthorizationMode= 1 Authorization = "" End Begin VWSLanguageLib.VWSIndex idxWhatToDo Height = 495 Left = 0 Top = 1080 Width = 15360 _cx = 27093 _cy = 873 BackStyle = 1 Enabled = -1 'True Alignment = 7 ShadowColor1 = -2147483632 ShadowColor2 = -2147483634 ShadowDepth = 2 ShadowStyle = 0 BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} Name = "MS Sans Serif" Size = 8.25 Charset = 0 Weight = 400 Underline = 0 'False Italic = 0 'False Strikethrough = 0 'False EndProperty BackColorOff = -2147483633 BackColorOn = -2147483643 ForeColorOff = -2147483630 ForeColorOn = -2147483640 TextRotation = 0 AuthorizationMode= 1 Authorization = "" VWItem = "" Blink = 0 IndexGroup = "FAlarmNotes" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "idxWhatToDo" End End Attribute VB_Name = "FAlarmNotes" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub keyAddNote_Click() Dim VWSHistoricalAlarmNotes As New VWCOMMONLib.VWSHistoricalAlarmNotes Dim VWSHistoricalAlarms As New VWCOMMONLib.VWSHistoricalAlarms Dim VWSAlarmFilter As New VWCOMMONLib.VWSAlarmFilter Dim VWSAlarmItem As VWCOMMONLib.VWSAlarmItem Dim VWSAlarmItem2 As VWCOMMONLib.VWSAlarmItem Dim VWSAlarmClass As New VWCOMMONLib.VWSAlarmClass Dim VWSAlarmGroup As New VWCOMMONLib.VWSAlarmGroup Dim sFile As String, l As Long, vHistoricalID As Variant sFile = VWSHistoricalAlarms.GetCurrentFile Set VWSAlarmItem = VWSAlarmList1.GetItemData(-1) VWSAlarmClass.ClassID = VWSAlarmItem.ClassID VWSAlarmFilter.ClassFilter = VWSAlarmClass.ClassName VWSAlarmGroup.GroupID = VWSAlarmItem.GroupID VWSAlarmFilter.GroupFilter = VWSAlarmGroup.GroupName VWSAlarmFilter.Historical = True VWSAlarmFilter.HistoricalFile = sFile VWSAlarmFilter.States = 1 VWSAlarmFilter.MaxPriority = VWSAlarmItem.Priority VWSAlarmFilter.MinPriority = VWSAlarmItem.Priority VWSAlarmFilter.MaxTime = VWSAlarmItem.ActivationTime + 0.000005 VWSAlarmFilter.MinTime = VWSAlarmItem.ActivationTime - 0.000005 VWSHistoricalAlarms.GetHistoricalAlarms VWSAlarmFilter, False For l = 1 To VWSHistoricalAlarms.AlarmsInEnum Set VWSAlarmItem2 = VWSHistoricalAlarms.GetNext(, vHistoricalID) If VWSAlarmItem.AlarmID = VWSAlarmItem2.AlarmID Then VWSHistoricalAlarmNotes.AddAlarmNote sFile, vHistoricalID, Now, txtNote.Text txtNote.Text = "" End If Next l End Sub Private Sub VWSAlarmList1_SelectChange(ByVal ID As Long, ByVal Text As String, ByVal Group As String, ByVal State As Integer, ByVal TimeIn As Date, ByVal TimePLCAck As Date, ByVal TimeUserAck As Date, ByVal Priority As Long, ByVal Param1 As String, ByVal Param2 As Long) txtNote.Enabled = True txtNote.BackColor = vbWindowBackground keyAddNote.EnabledControl = True End Sub Private Sub VWSAlarmList1_SelectQuit() txtNote.Enabled = False txtNote.BackColor = vb3DFace keyAddNote.EnabledControl = False End Sub