AppStd/Skriptentwickung
8
0
Fork 0
Code Activity

Module: Reorg / Cleanup

Browse Source
This commit is contained in:
KammM
2024-11-08 15:39:19 +01:00
parent 36ef16eb34
commit 294debc67c
226 changed files with 436 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
archive/Modules/Sicherungen/Modules_20230623/SetLabelText.vbm Normal file
View File

@@ -0,0 +1,24 @@
' 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