combobox使用问题

发布网友发布时间：2022-06-28 06:49

共4个回答

热心网友时间：2023-10-08 19:39

1、如果选定，就是只有一次机会，那么可以：
Private Sub Combo1_Click()
Combo1.Enabled = False
End Sub
combo就不可以使用了

2、当combo变化时，改变text1的内容很简单：
Private Sub Combo1_Click()
Combo1.Enabled = False
text1 = Combo1 & "," & combo2 & "," & combo3
End Sub

其他两个combo一样处理

答案补充：
按照你的补充要求可以如下：
Private Sub Check1_Click()
If Check1 Then
Combo1.Enabled = False
Else
Combo1.Enabled = True
End If
End Sub

Private Sub Combo1_Change()
Text1 = Combo1 & "," & combo2 & "," & combo3
End Sub
对其他两个也这样处理，就成了。

热心网友时间：2023-10-08 19:39

在每个 combobox 的 onchange 事件里，把 combobox 选中的值，付给textbox

热心网友时间：2023-10-08 19:40

3个combobox都加上SelectedIndexChanged事件
在事件中把3个combobox选的值赋给text 很简单的

热心网友时间：2023-10-08 19:40

用控件组更简单

'锁定
Private Sub Check1_Click(Index As Integer)
Combo1(Index).Enabled = Check1(Index).Value - 1
End Sub

'选择
Private Sub Combo1_Click(Index As Integer)
Text1.Text = ""
For i = 0 To Combo1.Count - 1
Text1.Text = Text1.Text & Combo1(i).Text & ","
Next
End Sub