1、添加下拉控件combobox
打开画面——点击屏幕右册的控件选项卡,空白处鼠标右键选择 “添加/删除”选项——弹出窗口中找到“Microsoft Froms 2.0 Combobox”
将其添加进去,之后把控件拖到画面中即可;
2、绑定下拉框内容
1)在画面空白处右击——事件——画面对象——其它——打开画面——添加VBS动作
添加如下代码,例如要在combobox01中添加“所有、严重故障、普通故障、警告”四项内容
Sub OnOpen()
Dim combobox1
Set combobox1 = ScreenItems("combobox01")
combobox1.AddItem ("所有")
combobox1.AddItem ("严重故障")
combobox1.AddItem ("普通故障")
combobox1.AddItem ("警告")
combobox1.Text=("所有")
End Sub