You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
383 lines
12 KiB
Plaintext
383 lines
12 KiB
Plaintext
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
|