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 = "{08A903C4-400D-4A2C-9D1A-5E7018B95609}#1.0#0"; "VWSLanguage.ocx" Object = "{EAB22AC0-30C1-11CF-A7EB-0000C05BAE0B}#1.1#0"; "shdocvw.dll" Begin VB.Form FAlarmHelp BorderStyle = 0 'Kein ClientHeight = 11520 ClientLeft = 0 ClientTop = 0 ClientWidth = 15360 ClipControls = 0 'False Icon = "FAlarmHelp.frx":0000 ScaleHeight = 11520 ScaleWidth = 15360 StartUpPosition = 2 'Bildschirmmitte Begin SHDocVwCtl.WebBrowser WebBrowser1 Height = 4035 Left = 1980 TabIndex = 4 Top = 5100 Width = 11475 ExtentX = 20241 ExtentY = 7117 ViewMode = 0 Offline = 0 Silent = 0 RegisterAsBrowser= 0 RegisterAsDropTarget= 0 AutoArrange = 0 'False NoClientEdge = 0 'False AlignLeft = 0 'False NoWebView = 0 'False HideFileNames = 0 'False SingleClick = 0 'False SingleSelection = 0 'False NoFolders = 0 'False Transparent = 0 'False ViewID = "{0057D0E0-3573-11CF-AE69-08002B2E1262}" Location = "" End Begin VWSAlarmDemo.XHeader XHeader1 Height = 1020 Left = 0 TabIndex = 0 Top = 0 Width = 15360 _ExtentX = 27093 _ExtentY = 873 Caption = "idxCaption" IndexGroup = "FAlarmHelp" 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 = 3315 Left = 1980 TabIndex = 3 Top = 1680 Width = 11475 _cx = 20241 _cy = 5847 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 = "FAlarmHelp" IndexPrefix = "" BitNumber = 0 Mode = -1 Offset = 0 Range = 1 FontClass = "" OffsetText = 0 TextOn = "" TextOff = "idxWhatToDo" End Begin VWSLanguageLib.VWSLangSelect VWSLangSelect1 Left = 1380 Top = 7860 _cx = 794 _cy = 794 End Begin VisiWinStudioLib.VWSKey keyHome Height = 750 Left = 13620 TabIndex = 7 Top = 4860 Width = 915 _cx = 1614 _cy = 1323 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" PictureMonitorOn= "FAlarmHelp.frx":000C ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "FAlarmHelp" AuthorizationMode= 0 Authorization = "" FontClass = "" RecipeMember = 0 'False SetMode = 0 BitNumber = 0 Enabled = -1 'True 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 = "FAlarmHelp.frx":0028 PictureDown = "FAlarmHelp.frx":013C PictureDisabled = "FAlarmHelp.frx":0158 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "keyHome" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyForward Height = 750 Left = 13620 TabIndex = 6 Top = 6540 Width = 915 _cx = 1614 _cy = 1323 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" PictureMonitorOn= "FAlarmHelp.frx":0174 ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "FAlarmHelp" 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 = "FAlarmHelp.frx":0190 PictureDown = "FAlarmHelp.frx":02A4 PictureDisabled = "FAlarmHelp.frx":02C0 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "keyForward" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End Begin VisiWinStudioLib.VWSKey keyBack Height = 750 Left = 13620 TabIndex = 5 Top = 5700 Width = 915 _cx = 1614 _cy = 1323 VWItem = "" VWItemMonitor = "" Blink = 0 BitMonitor = 0 CaptionMonitorOn= "" PictureMonitorOn= "FAlarmHelp.frx":02DC ForeColorMonitorOn= -2147483630 BackColorMonitorOn= -2147483633 IndexGroup = "FAlarmHelp" 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 = "FAlarmHelp.frx":02F8 PictureDown = "FAlarmHelp.frx":040C PictureDisabled = "FAlarmHelp.frx":0428 PictureAlign = 7 AutoSize = -1 'True EatsCursorKeys = 0 'False GlobalHotKey = 0 'False FocusOnClick = -1 'True EventOnKeyRepeat= 0 'False Caption = "keyBack" UseMnemonic = 0 'False Key = 0 DownWhenDisabled= 0 'False End End Attribute VB_Name = "FAlarmHelp" Attribute VB_GlobalNameSpace = False Attribute VB_Creatable = False Attribute VB_PredeclaredId = True Attribute VB_Exposed = False Option Explicit Private Sub keyBack_Click() WebBrowser1.GoBack End Sub Private Sub keyForward_Click() WebBrowser1.GoForward End Sub Private Sub keyHome_Click() ShowHelp 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) WebBrowser1.Tag = Param1 ShowHelp End Sub Private Sub VWSAlarmList1_SelectQuit() WebBrowser1.Tag = "" ShowHelp End Sub Private Sub VWSLangSelect1_LanguageChange(ByVal Language As Long) ShowHelp End Sub Private Sub WebBrowser1_CommandStateChange(ByVal Command As Long, ByVal Enable As Boolean) Select Case Command Case CSC_NAVIGATEBACK keyBack.Enabled = Enable Case CSC_NAVIGATEFORWARD keyForward.Enabled = Enable End Select End Sub Private Sub ShowHelp() If Len(WebBrowser1.Tag) Then WebBrowser1.Navigate "mk:@MSITStore:" & App.Path & "\Test.chm::/" & WebBrowser1.Tag Else WebBrowser1.Navigate "about:blank" End If End Sub