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