Beschriftung eines Labels auf Intrumentpanel per VBS ändern

Comprehensive CAN monitor for Windows® and its add-ins: Plotter, CANdb Import, Instruments Panel, and J1939
Post Reply
User avatar
Michael65589
Posts: 4
Joined: Fri 12. Oct 2012, 08:30

Beschriftung eines Labels auf Intrumentpanel per VBS ändern

Post by Michael65589 » Mon 8. Sep 2014, 11:28

Ist es möglich per VBS-Makro die Beschriftung eines Labels auf einem Intruments-Panel zu ändern?

Gruß
Michael

User avatar
Michael65589
Posts: 4
Joined: Fri 12. Oct 2012, 08:30

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by Michael65589 » Mon 8. Sep 2014, 11:59

Hab gelöst.

In der Symboldatei eine Virtuelle Variable, sowie ein Enum erstellt

Code: Select all

{ENUMS}
enum Kunde (0="Hans", 1="Erwin")

{VIRTUALVARS}
Var=Customer Kunde
Dann im VBS-Script mit Siganls auf die Virtuelle Variable bezogen.

Code: Select all

Dim Customer
Set Customer = Signals("Customer")
Customer.value = 1
Gruß
Michael

User avatar
PEAK-Support
Sales & Support
Sales & Support
Posts: 1646
Joined: Fri 10. Sep 2010, 19:34

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by PEAK-Support » Mon 8. Sep 2014, 15:00

auch ein guter Ansatz! - sollte aber auch in VBS über die "Caption" Eigenschaft des Labes veränderbar sein.

Code: Select all

Sub LabelCaptionChangeExample()
  Dim doc, scene, label
  Set doc = Documents.Add(peDocumentKindInstrumentsPanel)
  Set scene = doc.ActiveWindow.Object.ActiveScene
  Set label = scene.Controls.Add(peControlTypeLabel)
  label.Caption = "My New Label Text"
End Sub
--------------------------------
PEAK-System Technik
Technical Support Team
support[at]peak-system.com
-------------------------------

T.Lenz
Posts: 7
Joined: Thu 2. Oct 2014, 11:09

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by T.Lenz » Thu 2. Oct 2014, 11:11

U.Wilhelm wrote:auch ein guter Ansatz! - sollte aber auch in VBS über die "Caption" Eigenschaft des Labes veränderbar sein.

Code: Select all

Sub LabelCaptionChangeExample()
  Dim doc, scene, label
  Set doc = Documents.Add(peDocumentKindInstrumentsPanel)
  Set scene = doc.ActiveWindow.Object.ActiveScene
  Set label = scene.Controls.Add(peControlTypeLabel)
  label.Caption = "My New Label Text"
End Sub
Ab welcher PCAN Version ist dies Möglich?

User avatar
PEAK-Support
Sales & Support
Sales & Support
Posts: 1646
Joined: Fri 10. Sep 2010, 19:34

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by PEAK-Support » Thu 2. Oct 2014, 11:17

sollte generell in der 5er Version funktionieren.
--------------------------------
PEAK-System Technik
Technical Support Team
support[at]peak-system.com
-------------------------------

T.Lenz
Posts: 7
Joined: Thu 2. Oct 2014, 11:09

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by T.Lenz » Thu 2. Oct 2014, 11:51

U.Wilhelm wrote:sollte generell in der 5er Version funktionieren.
Gibt es auch eine Möglichkeit ein Label in der PCAN Version 4 zu ändern?

User avatar
PEAK-Support
Sales & Support
Sales & Support
Posts: 1646
Joined: Fri 10. Sep 2010, 19:34

Re: Beschriftung eines Labels auf Intrumentpanel per VBS änd

Post by PEAK-Support » Thu 2. Oct 2014, 12:54

T.Lenz wrote:Gibt es auch eine Möglichkeit ein Label in der PCAN Version 4 zu ändern?
Nein, das ist in der 4er Version leider noch nicht möglich, da hier kein Zugriff auf die Eigenschaften des AddIns über Macros vorhanden sind.
--------------------------------
PEAK-System Technik
Technical Support Team
support[at]peak-system.com
-------------------------------

Post Reply