dkfr.net
当前位置:首页 >> vB ComBoBox 默认选中 >>

vB ComBoBox 默认选中

这个很简单啊,在控件属性栏改变text值不就行了

1.combobox控件的style属性为2时,只可选择,不可输入 2.默认选中第一项的代码示例 If Combo1.ListCount > 0 Then Combo1.ListIndex = 0 End If

Private Sub Combo1_Click()Select Case Combo1.TextCase "1#" '在这里设置1#温控仪的数据Case "2#" '在这里设置2#温控仪的数据Case "3#" '在这里设置3#温控仪的数据End SelectEnd Sub

在设计阶段,从属性窗口中把combo1的.Style 属性设置为2就可以啦! 注意这个属性不能在程序中设定,也不能在程序运行时改变。

Combo1.Text 或 Combo1.List(Combo1.ListIndex)

comboBox.listIndex=0 选项是从0开始的,如果缺省的默认值是第二项,就设置为1,以此类推。

Combo1.ListIndex

Private Sub ComboBox_Click()Select Case ComboBox.Text Case "List1" '进行…………操作 Case "List2" '进行…………操作 Case "List3" '进行…………操作End SelectEnd Sub

'如果在按钮事件中,则:Private Sub Command1_Click() Combo1.Clear '清除下拉框原来的选项 Combo1.AddItem "语文" Combo1.AddItem "数学" Combo1.AddItem "英语"End Sub'如果在窗体启动时,则:Private Sub Form_Load() Combo1.Clear '清除下...

Dim MyBName As string mybmane= ComboBox1.Text Dim MyName As string myname= ComboBox2.Text Dim mySql As String mysql= "select * from " + MyBName + " where 名 ='" + MyName + "'"

网站首页 | 网站地图
All rights reserved Powered by www.dkfr.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com