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

vB 选中指定 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 Command1_Click() Combo1.Text = "" Combo1.AddItem "台式" Combo1.AddItem "干事" Combo1.AddItem "舍内" Combo1.AddItem "电梯" Combo1.AddItem "其他" End Sub

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

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

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

Private Sub Text1_Change() Dim i As Integer Combo1.Clear For i = 1 To Val(Text1.Text) Combo1.AddItem i Next Combo1.ListIndex = Combo1.ListCount - 1 '把最大值设为当前项 End Sub

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 ...

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

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

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