24 lines
923 B
Plaintext
24 lines
923 B
Plaintext
' SetLabelText(LabelItemID : Short, View: Long, Var: Long, Value: String)
|
|
' ----------------------------------------------------------------------------
|
|
' Setzt den Text eines Labels im aktuellen Fenster
|
|
'
|
|
' Returns: -
|
|
' ----------------------------------------------------------------------------
|
|
' Copyright (c) 2021 by Digital Data GmbH
|
|
'
|
|
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
|
|
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
|
|
' ----------------------------------------------------------------------------
|
|
' Creation Date / Author: 01.09.2020 / JJ
|
|
' Version Date / Editor: 24.02.2021 / MP
|
|
' Version Number: 3.0.0.0
|
|
|
|
Sub SetLabelText(LabelItemID, View, Var, Value)
|
|
|
|
Set mywin = CWLStart.CurrentModule.Windows.Item(WINDOW_ID)
|
|
Set labelBox = mywin.Controls.Item(LabelItemID)
|
|
|
|
CWLCurrentWindow.ActiveWindow.Vars.Value(View, Var) = Value
|
|
labelBox.Refresh
|
|
|
|
End Sub |