Factory Talk View Studio VBA for Private Sub ComboBox_DropButtonClick()

[prakasha]

Hi I hope all are doing good

I have some doubt on FTV VBA coding for Drop down list. I wanted to know how to build a VBA code for Drop down list selection in SCADA. Pleaselet me know if anybody online.

 

[prakasha]

Private Sub ComboBox2_DropButtonClick()
ComboBox3.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
ComboBox4.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
ComboBox5.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
ComboBox6.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
ComboBox7.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
ComboBox8.List = Array("Renukaiah", "Savithramma", "Kotresh", "Dharani", "Sanvi", "Prakash", "Ramya", "yashas")
End Sub

These are the sample code I have written in VBA but I am not getting how to implement in FTV

 

[glennz]

I'm not a VBA guy, but I was able to go back to a project that used the ComboBox as created by our VBA expert. The key for you might be:

Application.ExecuteCommand (<however you pass the ComboBox click to this command>)

In my project it was Application.ExecuteCommand ("Display /DS::" & file), where 'file' was a variable holding the name of the .gfx file. There was automation that looked for patterns in .gfx file names within Area "DS" and got that data into "file"...so way more complicated than it seems you are doing. FWIW...

 

[Operaghost]

I really don't use VBA very often, but I used a drop down box to allow an operator to select a display. This is the short version of the code we used

The top part lists the actions to be taken and the bottom section defines the text that appears in the combo box.

Private Sub ComboBox1_Change()

If ComboBox1.Text = "Main Menu" Then Application.ShowDisplay "Main Menu"

If ComboBox1.Text = "Maintenance" Then Application.ShowDisplay "Maintenace"
    
If ComboBox1.Text = "Login" Then Application.ShowDisplay "Login"

End Sub

Private Sub Display_AnimationStart()

ComboBox1.Clear
ComboBox1.AddItem "Main Menu"
ComboBox1.AddItem "Maintenance"
ComboBox1.AddItem "Login"

End Sub

OG