-> Hier kostenlos registrieren
Morgen,
habe ein Problem mit der Anzeige des Bildnamens in einem Übersichtsbild.
Nutze die Menü und Symbolleiste bei WinCC7 und rufe immer ein Bildfenster mit Menüleiste auf indem ich dann die einzelnen Bilder aufrufe.
Dafür habe ich das Beispielscript von Siemens genutzt.
"Sub OnMTClick_Test(Item)
Dim objGraphicView, MyString, name, picnameleft, areano
name = HMIRuntime.Tags("pic_name").read
HMIRuntime.Tags("pic_name_old").write name
Set objGraphicView= HMIRuntime.Screens("pic_win").ScreenItems("Test")
MyString = Item.UserData
objGraphicView.PictureName = MyString
HMIRuntime.Tags("pic_name_actual").Write MyString
'aktuelle Bereichsnummer des Projektes aus Bildnamen ermitteln (z.B. 2 aus PA2_bld01.pdl)
'determination of actual area number of project (e.g. 2 from PA2_bld01.pdl)
picnameleft = Mid(MyString, 1, 3) 'erste 3 Zeichen des Bilddateinamens (PA2_bld...)
'first 3 characters of picture file name (PA2_bld...)
areano = Right(picnameleft , 1) 'Gibt Bereichsnummer zurück (2 bei PA2)
'returns area no. (2 by PA2)
If areano = "X" Then
areano = 10
End If
HMIRuntime.Tags("areanumber").Write areano"
zwar kann ich über ("pic_name_actual") in einem statischen Text den aktuellen Bildnamen anzeigen lassen, aber will für Benutzer einen anderen Text schreiben.
Müsste also Vergleich von ("pic_name_actual") machen und bei Gleichheit meinen Text anzeigen können.
Wie bekomme ich diese Funktion in das obere Script?
mfg TI 1
habe ein Problem mit der Anzeige des Bildnamens in einem Übersichtsbild.
Nutze die Menü und Symbolleiste bei WinCC7 und rufe immer ein Bildfenster mit Menüleiste auf indem ich dann die einzelnen Bilder aufrufe.
Dafür habe ich das Beispielscript von Siemens genutzt.
"Sub OnMTClick_Test(Item)
Dim objGraphicView, MyString, name, picnameleft, areano
name = HMIRuntime.Tags("pic_name").read
HMIRuntime.Tags("pic_name_old").write name
Set objGraphicView= HMIRuntime.Screens("pic_win").ScreenItems("Test")
MyString = Item.UserData
objGraphicView.PictureName = MyString
HMIRuntime.Tags("pic_name_actual").Write MyString
'aktuelle Bereichsnummer des Projektes aus Bildnamen ermitteln (z.B. 2 aus PA2_bld01.pdl)
'determination of actual area number of project (e.g. 2 from PA2_bld01.pdl)
picnameleft = Mid(MyString, 1, 3) 'erste 3 Zeichen des Bilddateinamens (PA2_bld...)
'first 3 characters of picture file name (PA2_bld...)
areano = Right(picnameleft , 1) 'Gibt Bereichsnummer zurück (2 bei PA2)
'returns area no. (2 by PA2)
If areano = "X" Then
areano = 10
End If
HMIRuntime.Tags("areanumber").Write areano"
zwar kann ich über ("pic_name_actual") in einem statischen Text den aktuellen Bildnamen anzeigen lassen, aber will für Benutzer einen anderen Text schreiben.
Müsste also Vergleich von ("pic_name_actual") machen und bei Gleichheit meinen Text anzeigen können.
Wie bekomme ich diese Funktion in das obere Script?
mfg TI 1
