|
|
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"
|
|
|
Object = "{2A559721-5321-11D0-95E6-006008104BEC}#1.0#0"; "VW4Language.ocx"
|
|
|
Object = "{C6652563-BD5B-11D0-B26C-006008104BEC}#1.0#0"; "VW4Trend.ocx"
|
|
|
Object = "{498C4702-2E69-11D5-89F4-0050BAB20053}#1.1#0"; "VW4TrendHelper.ocx"
|
|
|
Object = "{73B49944-40AB-11D5-8A0C-0050BAB20053}#2.0#0"; "VWSDateTime.ocx"
|
|
|
Begin VB.Form FTrendZoom
|
|
|
BorderStyle = 0 'Kein
|
|
|
Caption = "VW4Trend"
|
|
|
ClientHeight = 9000
|
|
|
ClientLeft = 0
|
|
|
ClientTop = 0
|
|
|
ClientWidth = 12000
|
|
|
Icon = "FTrendZoom.frx":0000
|
|
|
LinkTopic = "Form1"
|
|
|
ScaleHeight = 9000
|
|
|
ScaleWidth = 12000
|
|
|
StartUpPosition = 2 'Bildschirmmitte
|
|
|
Begin VWSDateTime.VWSDateTimeInput VWSDateTimeInput1
|
|
|
Height = 495
|
|
|
Left = 4320
|
|
|
TabIndex = 14
|
|
|
Top = 6480
|
|
|
Width = 3075
|
|
|
_ExtentX = 5424
|
|
|
_ExtentY = 873
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "MS Sans Serif"
|
|
|
Size = 9.75
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
ShowReturn = -1 'True
|
|
|
End
|
|
|
Begin VW4KeyLib.VWKey keyF4
|
|
|
Height = 840
|
|
|
Left = 3600
|
|
|
TabIndex = 13
|
|
|
Top = 8160
|
|
|
Width = 1200
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2117
|
|
|
_ExtentY = 1482
|
|
|
_StockProps = 72
|
|
|
ForeColor = 0
|
|
|
FontClass = "Arial8Bold"
|
|
|
Alignment = 0
|
|
|
Key = 115
|
|
|
FocusRect = 0 'False
|
|
|
IndexGroup = "FTrendMarker"
|
|
|
FocusOnClick = 0 'False
|
|
|
End
|
|
|
Begin VW4Trend.XFooter XFooter1
|
|
|
Height = 855
|
|
|
Left = 0
|
|
|
TabIndex = 12
|
|
|
Top = 8160
|
|
|
Width = 12000
|
|
|
_ExtentX = 21167
|
|
|
_ExtentY = 1508
|
|
|
End
|
|
|
Begin VW4TrendHelper.VWTrendLegend VWTrendLegend1
|
|
|
Height = 3135
|
|
|
Left = 9180
|
|
|
TabIndex = 11
|
|
|
Top = 960
|
|
|
Width = 2775
|
|
|
_ExtentX = 4895
|
|
|
_ExtentY = 5530
|
|
|
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
|
|
|
Name = "Arial"
|
|
|
Size = 8.25
|
|
|
Charset = 0
|
|
|
Weight = 400
|
|
|
Underline = 0 'False
|
|
|
Italic = 0 'False
|
|
|
Strikethrough = 0 'False
|
|
|
EndProperty
|
|
|
FontClass = "Arial8"
|
|
|
Orientation = 1
|
|
|
Pitch = 80
|
|
|
TrendControl = "VWTrend1"
|
|
|
End
|
|
|
Begin VW4TrendHelper.VWTrendTime VWTrendTime1
|
|
|
Height = 495
|
|
|
Left = 4320
|
|
|
TabIndex = 10
|
|
|
Top = 5940
|
|
|
Width = 3075
|
|
|
_ExtentX = 5424
|
|
|
_ExtentY = 873
|
|
|
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
|
|
|
TrendControl = "VWTrend1"
|
|
|
End
|
|
|
Begin VB.Frame Frame2
|
|
|
Caption = "Einstellungen"
|
|
|
Height = 1575
|
|
|
Left = 7620
|
|
|
TabIndex = 5
|
|
|
Top = 5460
|
|
|
Width = 4095
|
|
|
Begin VB.TextBox txtScroll
|
|
|
Height = 315
|
|
|
Index = 1
|
|
|
Left = 1740
|
|
|
TabIndex = 9
|
|
|
Text = "5"
|
|
|
Top = 1140
|
|
|
Width = 375
|
|
|
End
|
|
|
Begin VB.ComboBox cmbScroll
|
|
|
Height = 315
|
|
|
Index = 1
|
|
|
Left = 2220
|
|
|
Style = 2 'Dropdown-Liste
|
|
|
TabIndex = 8
|
|
|
Top = 1140
|
|
|
Width = 1815
|
|
|
End
|
|
|
Begin VB.TextBox txtScroll
|
|
|
Height = 315
|
|
|
Index = 0
|
|
|
Left = 1740
|
|
|
TabIndex = 7
|
|
|
Text = "5"
|
|
|
Top = 480
|
|
|
Width = 375
|
|
|
End
|
|
|
Begin VB.ComboBox cmbScroll
|
|
|
Height = 315
|
|
|
Index = 0
|
|
|
Left = 2220
|
|
|
Style = 2 'Dropdown-Liste
|
|
|
TabIndex = 6
|
|
|
Top = 480
|
|
|
Width = 1815
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex vwiText
|
|
|
Height = 315
|
|
|
Index = 2
|
|
|
Left = 60
|
|
|
Top = 480
|
|
|
Width = 1635
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2884
|
|
|
_ExtentY = 556
|
|
|
_StockProps = 96
|
|
|
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
|
|
|
TextOff = "Trendeinstellungen4"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
BackColorOff = -2147483633
|
|
|
ShadowStyle = 0
|
|
|
Alignment = 1
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex vwiText
|
|
|
Height = 315
|
|
|
Index = 3
|
|
|
Left = 60
|
|
|
Top = 1080
|
|
|
Width = 1635
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2884
|
|
|
_ExtentY = 556
|
|
|
_StockProps = 96
|
|
|
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
|
|
|
TextOff = "Trendeinstellungen5"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
BackColorOff = -2147483633
|
|
|
ShadowStyle = 0
|
|
|
Alignment = 1
|
|
|
End
|
|
|
End
|
|
|
Begin VW4LanguageLib.VWLanguage VWLanguage1
|
|
|
Left = 60
|
|
|
Top = 7680
|
|
|
_Version = 65536
|
|
|
_ExtentX = 794
|
|
|
_ExtentY = 794
|
|
|
_StockProps = 0
|
|
|
End
|
|
|
Begin VW4TrendLib.VWTrend VWTrend1
|
|
|
Height = 4575
|
|
|
Left = 120
|
|
|
Top = 660
|
|
|
Width = 9015
|
|
|
_Version = 65536
|
|
|
_ExtentX = 15901
|
|
|
_ExtentY = 8070
|
|
|
_StockProps = 37
|
|
|
Trend1 = "Trd23"
|
|
|
Archive1 = "Gl<47>ttung"
|
|
|
MinValue1 = -300
|
|
|
MaxValue1 = 300
|
|
|
Trend2 = "Trd22"
|
|
|
Archive2 = "Gl<47>ttung"
|
|
|
MinValue2 = -300
|
|
|
MaxValue2 = 300
|
|
|
Trend3 = "Trd25"
|
|
|
Archive3 = "Gl<47>ttung"
|
|
|
MinValue3 = -300
|
|
|
MaxValue3 = 300
|
|
|
Archive4 = "Gl<47>ttung"
|
|
|
MinValue4 = -300
|
|
|
MaxValue4 = 300
|
|
|
Archive5 = "Gl<47>ttung"
|
|
|
MinValue5 = -300
|
|
|
MaxValue5 = 300
|
|
|
MinValue6 = -300
|
|
|
MaxValue6 = 300
|
|
|
MinValue7 = -300
|
|
|
MaxValue7 = 300
|
|
|
MinValue8 = -300
|
|
|
MaxValue8 = 300
|
|
|
ColorTrend1 = 0
|
|
|
ColorTrend2 = 255
|
|
|
End
|
|
|
Begin VB.Frame Frame1
|
|
|
Caption = "Einstellungen"
|
|
|
Height = 1575
|
|
|
Left = 60
|
|
|
TabIndex = 0
|
|
|
Top = 5400
|
|
|
Width = 4095
|
|
|
Begin VB.ComboBox cmbZeitraum
|
|
|
Height = 315
|
|
|
Left = 2280
|
|
|
Style = 2 'Dropdown-Liste
|
|
|
TabIndex = 4
|
|
|
Top = 1020
|
|
|
Width = 1755
|
|
|
End
|
|
|
Begin VB.TextBox txtEingabe
|
|
|
Height = 315
|
|
|
Left = 1860
|
|
|
TabIndex = 3
|
|
|
Text = "5"
|
|
|
Top = 1020
|
|
|
Width = 375
|
|
|
End
|
|
|
Begin VB.TextBox txtMaxMinEingabe
|
|
|
Height = 285
|
|
|
Index = 0
|
|
|
Left = 2280
|
|
|
TabIndex = 2
|
|
|
Text = "Text1"
|
|
|
Top = 240
|
|
|
Width = 1755
|
|
|
End
|
|
|
Begin VB.TextBox txtMaxMinEingabe
|
|
|
Height = 285
|
|
|
Index = 1
|
|
|
Left = 2280
|
|
|
TabIndex = 1
|
|
|
Text = "Text1"
|
|
|
Top = 600
|
|
|
Width = 1755
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex vwiText
|
|
|
Height = 315
|
|
|
Index = 8
|
|
|
Left = 240
|
|
|
Top = 240
|
|
|
Width = 1635
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2884
|
|
|
_ExtentY = 556
|
|
|
_StockProps = 96
|
|
|
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
|
|
|
TextOff = "Trendeinstellungen1"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
BackColorOff = -2147483633
|
|
|
ShadowStyle = 0
|
|
|
Alignment = 1
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex vwiText
|
|
|
Height = 315
|
|
|
Index = 0
|
|
|
Left = 240
|
|
|
Top = 540
|
|
|
Width = 1635
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2884
|
|
|
_ExtentY = 556
|
|
|
_StockProps = 96
|
|
|
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
|
|
|
TextOff = "Trendeinstellungen2"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
BackColorOff = -2147483633
|
|
|
ShadowStyle = 0
|
|
|
Alignment = 1
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex vwiText
|
|
|
Height = 315
|
|
|
Index = 1
|
|
|
Left = 240
|
|
|
Top = 1020
|
|
|
Width = 1635
|
|
|
_Version = 65536
|
|
|
_ExtentX = 2884
|
|
|
_ExtentY = 556
|
|
|
_StockProps = 96
|
|
|
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
|
|
|
TextOff = "Trendeinstellungen3"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
BackColorOff = -2147483633
|
|
|
ShadowStyle = 0
|
|
|
Alignment = 1
|
|
|
End
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex idxCaption
|
|
|
Height = 495
|
|
|
Index = 1
|
|
|
Left = 6000
|
|
|
Top = 0
|
|
|
Width = 6000
|
|
|
_Version = 65536
|
|
|
_ExtentX = 10583
|
|
|
_ExtentY = 873
|
|
|
_StockProps = 96
|
|
|
BorderStyle = 1
|
|
|
FontClass = "Arial12Bold"
|
|
|
TextOff = "idxCaption"
|
|
|
IndexGroup = "FTrendZoom"
|
|
|
UseTextProps = -1 'True
|
|
|
BackColorOff = 12632256
|
|
|
ShadowStyle = 1
|
|
|
ShadowDepth = 3
|
|
|
ShadowColor2 = 14737632
|
|
|
Range = 32767
|
|
|
End
|
|
|
Begin VW4IndexLib.VWIndex idxCaption
|
|
|
Height = 495
|
|
|
Index = 0
|
|
|
Left = 0
|
|
|
Top = 0
|
|
|
Width = 6000
|
|
|
_Version = 65536
|
|
|
_ExtentX = 10583
|
|
|
_ExtentY = 873
|
|
|
_StockProps = 96
|
|
|
BorderStyle = 1
|
|
|
FontClass = "Arial12Bold"
|
|
|
TextOff = "ProgramName"
|
|
|
IndexGroup = "Global"
|
|
|
UseTextProps = -1 'True
|
|
|
BackColorOff = 16711680
|
|
|
ForeColorOff = 16777215
|
|
|
ShadowStyle = 1
|
|
|
ShadowDepth = 3
|
|
|
ShadowColor2 = 14737632
|
|
|
Range = 32767
|
|
|
End
|
|
|
End
|
|
|
Attribute VB_Name = "FTrendZoom"
|
|
|
Attribute VB_GlobalNameSpace = False
|
|
|
Attribute VB_Creatable = False
|
|
|
Attribute VB_PredeclaredId = True
|
|
|
Attribute VB_Exposed = False
|
|
|
Option Explicit
|
|
|
|
|
|
Private msSettingsFileName As String 'Pfad+Dateiname zum Speichern der Trendeinstellungen
|
|
|
|
|
|
Private Sub cmbScroll_Click(Index As Integer)
|
|
|
If Index = 0 Then
|
|
|
VWTrendTime1.MaxInterval = cmbScroll(0).ListIndex
|
|
|
Else
|
|
|
VWTrendTime1.MinInterval = cmbScroll(1).ListIndex
|
|
|
End If
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Activate()
|
|
|
' Vorbesetzen der Steuerelemente
|
|
|
cmbScroll(1).ListIndex = VWTrendTime1.MinInterval
|
|
|
cmbScroll(0).ListIndex = VWTrendTime1.MaxInterval
|
|
|
txtScroll(0).Text = VWTrendTime1.MaxChange
|
|
|
txtScroll(1).Text = VWTrendTime1.MinChange
|
|
|
txtMaxMinEingabe(0).Text = VWTrend1.MaxValue1
|
|
|
txtMaxMinEingabe(1).Text = VWTrend1.MinValue1
|
|
|
cmbZeitraum.ListIndex = 1 ' Minute
|
|
|
txtEingabe.Text = VWTrend1.SectionsMajorX
|
|
|
VWTrendTime1.ApplyChanges
|
|
|
End Sub
|
|
|
|
|
|
Private Sub Form_Load()
|
|
|
msSettingsFileName = App.Path & "\" & App.Title & ".ini"
|
|
|
'vorige Trendeinstellungen laden
|
|
|
VW4Trendhelper.ReadTrendSettings VWTrend1, msSettingsFileName
|
|
|
End Sub
|
|
|
|
|
|
Private Sub keyF4_Click()
|
|
|
VW4Trendhelper.TrendSelect VWTrend1, , msSettingsFileName
|
|
|
VWTrendLegend1.ApplyChanges 'Legende auffrischen
|
|
|
End Sub
|
|
|
|
|
|
Private Sub txtEingabe_KeyPress(KeyAscii As Integer)
|
|
|
Select Case KeyAscii
|
|
|
Case vbKey0 To vbKey9, vbKeyBack
|
|
|
' Tasten zulassen
|
|
|
Case vbKeyReturn
|
|
|
If IsNumeric(txtEingabe.Text) Then
|
|
|
XAchsenEinteilung
|
|
|
VWTrend1.ApplyChanges
|
|
|
End If
|
|
|
Case Else
|
|
|
' Alle anderen Tasten sperren
|
|
|
KeyAscii = 0
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
Private Sub cmbZeitraum_Click()
|
|
|
XAchsenEinteilung
|
|
|
End Sub
|
|
|
|
|
|
Private Sub XAchsenEinteilung()
|
|
|
Select Case cmbZeitraum.ListIndex
|
|
|
Case 0 ' Sekunde
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 1) / VWTrend1.SectionsMajorX
|
|
|
Case 1 ' Minute
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60) / VWTrend1.SectionsMajorX
|
|
|
Case 2 ' Stunde
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60) / VWTrend1.SectionsMajorX
|
|
|
Case 3 ' Tag
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24) / VWTrend1.SectionsMajorX
|
|
|
Case 4 ' Monat
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24 * 30) / VWTrend1.SectionsMajorX
|
|
|
Case 5 ' Jahr
|
|
|
VWTrend1.SecondsPerMajor = (txtEingabe.Text * 60 * 60 * 24 * 365) / VWTrend1.SectionsMajorX
|
|
|
End Select
|
|
|
VWTrend1.ApplyChanges
|
|
|
End Sub
|
|
|
|
|
|
Private Sub txtMaxMinEingabe_GotFocus(Index As Integer)
|
|
|
'Inhalt des Textsteuerelementes markieren
|
|
|
txtMaxMinEingabe(Index).SelStart = 0
|
|
|
txtMaxMinEingabe(Index).SelLength = Len(txtMaxMinEingabe(Index))
|
|
|
End Sub
|
|
|
|
|
|
Private Sub txtMaxMinEingabe_KeyPress(Index As Integer, KeyAscii As Integer)
|
|
|
Select Case KeyAscii
|
|
|
Case vbKey0 To vbKey9, vbKeySubtract, 45, vbKeyBack
|
|
|
' Tasten zulassen
|
|
|
Case vbKeyReturn
|
|
|
If IsNumeric(txtMaxMinEingabe(Index).Text) Then
|
|
|
Select Case Index
|
|
|
Case 0
|
|
|
VWTrend1.MaxValue1 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue2 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue3 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue4 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue5 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue6 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue7 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MaxValue8 = txtMaxMinEingabe(Index).Text
|
|
|
Case 1
|
|
|
VWTrend1.MinValue1 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue2 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue3 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue4 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue5 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue6 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue7 = txtMaxMinEingabe(Index).Text
|
|
|
VWTrend1.MinValue8 = txtMaxMinEingabe(Index).Text
|
|
|
End Select
|
|
|
End If
|
|
|
VWTrend1.ApplyChanges
|
|
|
Case Else
|
|
|
KeyAscii = 0
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
Private Sub txtScroll_KeyPress(Index As Integer, KeyAscii As Integer)
|
|
|
Select Case KeyAscii
|
|
|
Case vbKey0 To vbKey9, vbKeyBack
|
|
|
' Tasten zulassen
|
|
|
Case vbKeyReturn
|
|
|
If IsNumeric(txtScroll(Index).Text) Then
|
|
|
If Index = 0 Then
|
|
|
VWTrendTime1.MaxChange = txtScroll(Index).Text
|
|
|
Else
|
|
|
VWTrendTime1.MinChange = txtScroll(Index).Text
|
|
|
End If
|
|
|
End If
|
|
|
Case Else
|
|
|
KeyAscii = 0
|
|
|
End Select
|
|
|
End Sub
|
|
|
|
|
|
Private Sub VWLanguage1_LanguageChange(ByVal Language As Long)
|
|
|
Dim intIndex As Integer
|
|
|
|
|
|
'Texte in nicht VisWin Steuerelemente laden
|
|
|
Frame1.Caption = VWLanguage1.GetText("FTrendZoom.Trendeinstellungen0")
|
|
|
Frame2.Caption = VWLanguage1.GetText("FTrendZoom.Trendeinstellungen6")
|
|
|
|
|
|
For intIndex = 0 To 5
|
|
|
cmbZeitraum.AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
|
|
|
cmbScroll(0).AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
|
|
|
cmbScroll(1).AddItem VWLanguage1.GetText("FTrendZoom.Zeiteinteilung" & intIndex)
|
|
|
Next
|
|
|
End Sub
|
|
|
|
|
|
Private Sub VWSDateTimeInput1_AfterWriteValue(ByVal PreviousValue As Date, ByVal NewValue As Date)
|
|
|
VWTrend1.Online = False
|
|
|
VWTrend1.ScrollTime = NewValue
|
|
|
VWTrendTime1.ApplyChanges
|
|
|
End Sub
|