sphm.net
当前位置:首页 >> vB 选中指定 ComBo1 >>

vB 选中指定 ComBo1

Private Sub Combo1_Change() Select Case Combo1.Index 改成: Private Sub Combo1_Click() Select Case Combo1.ListIndex Combo1的Style属性改为:2 - Dropdown List ,可以让Combo1只能选择,不能修改文本

Dim i As Integer For i = 0 To Combo1.ListCount If Text1.Text = Combo1.List(i) Then Combo1.ListIndex = i End If Next

Private Sub Combo1_Change() 改为 Private Sub Combo1_Click() 前者在用键盘修改Combo1的文字时触发; 后者在用鼠标点击Combo1的选项时触发。

Private Sub Command1_Click() Combo1.Text = "" Combo1.AddItem "台式" Combo1.AddItem "干事" Combo1.AddItem "舍内" Combo1.AddItem "电梯" Combo1.AddItem "其他" End Sub

VB下拉框ComboBox 控件需要使用 AddItem 或 RemoveItem 方法。设置 List、ListCount、和 ListIndex 属性,使访问 ComboBox 中的项目成为可能。也可以在设计时使用 List 属性将项目添加到列表中。 ComboBox 控件,ComboBox 控件将 TextBox 控件和...

首先将他设置为其样式设置为 2 - Dropdown List 然后在其list中放入初始值 然后设置text属性 参考代码如下: Private Sub Form_Load() Combo1.AddItem "test" Combo1.Text = Combo1.List(0) End Sub

Private Sub Combo1_Click()Text1.Text = Text1.Text & Combo1.Text & vbCrLfEnd Sub

可以在combo1的单击事件中调用双击事件过程不就可以嘛。 Private Sub Combo1_Click() Command1.Caption = Combo1.Text '只要把按钮标题根据选择项目改一下名就可以了。 Command1.Visible = True Combo1_DblClick End Su

For i=1 to 6 Combo1.AddItem i Next i 这个是添加到Combo1里的,添加后Combo1数据: Combo1.list(0)=1 Combo1.list(1)=2 Combo1.list(2)=3 Combo1.list(3)=4 Combo1.list(4)=5 Combo1.list(5)=6 然后: For i= 1 to 3 Combo1.RemoveItem i Next ...

1 在 combo1 的属性 list 中手工添加 2 me.Combo1.AddItem "可看看" me.Combo1.AddItem "可看看1" me.Combo1.AddItem "可看看2"

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