7/8/2015 6:54 AM | |
Joined: 10/3/2010 Last visit: 9/20/2024 Posts: 1562 Rating: (191) |
Hi k-rhym,
add here your VBS-Action, an example: Normal 0 21 false false false NL-BE X-NONE X-NONE MicrosoftInternetExplorer4
Sub SelIndex_OnPropertyChanged(ByVal Item, ByVal value) Dim iSelection iSelection = value
Select Case iSelection Case 1 HMIRuntime.Tags("tag1").write 1 HMIRuntime.Tags("tag2").write 0 HMIRuntime.Tags("tag3").write 0 HMIRuntime.Tags("tag4").write 0 Case 2 HMIRuntime.Tags("tag1").write 0 HMIRuntime.Tags("tag2").write 1 HMIRuntime.Tags("tag3").write 0 HMIRuntime.Tags("tag4").write 0 Case 3 HMIRuntime.Tags("tag1").write 0 HMIRuntime.Tags("tag2").write 0 HMIRuntime.Tags("tag3").write 1 HMIRuntime.Tags("tag4").write 0 Case 4 HMIRuntime.Tags("tag1").write 0 HMIRuntime.Tags("tag2").write 0 HMIRuntime.Tags("tag3").write 0 HMIRuntime.Tags("tag4").write 1 Case Else End Select End Sub |
B r g d s , |
|
7/8/2015 9:09 PM | |
Posts: 34 Rating: (0) |
Hi SteBo THank you so much that's exactly what i need and the code works perfectly |
This contribution was helpful to1 thankful Users |
7/9/2015 7:18 AM | |
Joined: 10/3/2010 Last visit: 9/20/2024 Posts: 1562 Rating: (191) |
You're welcome, thank you for the feedback.
|
B r g d s , |
|
7/10/2015 8:35 AM | |
Joined: 10/3/2010 Last visit: 9/20/2024 Posts: 1562 Rating: (191) |
Hi k-rhym, try this instead Normal 0 21 false false false NL-BE X-NONE X-NONE MicrosoftInternetExplorer4
Dim objScrWindow |
B r g d s , |
|
Follow us on