-> Hier kostenlos registrieren
Einen schönen guten Morgen,
ich kämpfe momentan mit dem Aufruf eines Popups aus einer Faceplateinstanz.
Die Faceplateinstanz bildet mir ein Ventil anhand eines Strukturtyps ab. Jetzt möchte ich gerne das zugehörige Faceplate direkt aus der Faceplateinstanz aufrufen, also Projektiert im Faceplatetyp. Dabei gleichzeitig das TagPrefix an das Bildobjekt übergeben.
In den Faceplatetypen ist nur VB erlaubt, meine bestehenden Skripte zum Aufruf von Popups sind auch in VB geschrieben. Diese funktionieren auch, auf allen projektierten Bildern sind die Bildfenster identisch mit Indizes proektiert und das VB Skript öffnet das Popup in einem freien Bildfenster.
Mein Problem an den Faceplatetypen ist nun folgendes, ich komme im Skript nicht auf die Bildebene. Hat das jemand von euch schonmal so umgesetzt?
So schaut mein bisheriges Skript auf dass ich immer verwendet habe. Nun komme ich von der Item-Ebene nicht auf die Grundebene des Bildes.
Vielen Dank
Gruß Chris
ich kämpfe momentan mit dem Aufruf eines Popups aus einer Faceplateinstanz.
Die Faceplateinstanz bildet mir ein Ventil anhand eines Strukturtyps ab. Jetzt möchte ich gerne das zugehörige Faceplate direkt aus der Faceplateinstanz aufrufen, also Projektiert im Faceplatetyp. Dabei gleichzeitig das TagPrefix an das Bildobjekt übergeben.
In den Faceplatetypen ist nur VB erlaubt, meine bestehenden Skripte zum Aufruf von Popups sind auch in VB geschrieben. Diese funktionieren auch, auf allen projektierten Bildern sind die Bildfenster identisch mit Indizes proektiert und das VB Skript öffnet das Popup in einem freien Bildfenster.
Mein Problem an den Faceplatetypen ist nun folgendes, ich komme im Skript nicht auf die Bildebene. Hat das jemand von euch schonmal so umgesetzt?
So schaut mein bisheriges Skript auf dass ich immer verwendet habe. Nun komme ich von der Item-Ebene nicht auf die Grundebene des Bildes.
Code:
Dim Bildfenster_aktiv(8)
Dim X
For X = 1 To 8
Set Bildfenster(X) = Item.Parent.ScreenItems("BF_"&X)
If Bildfenster(X).Visible Then
Bildfenster_aktiv(X) = True
Else
Bildfenster_aktiv(X) = False
End If
Next
For X = 1 To 8
If Not Bildfenster_aktiv(X) Then
Bildfenster(X).Visible = False
Bildfenster(X).ScreenName = " "
Bildfenster(X).CaptionText = " "
Bildfenster(X).Visible = True
End If
Next
End Sub
Vielen Dank
Gruß Chris