Question

combobox click（）事件禁用

combobox click（）事件总是在不经意间被触发，触发后总是引起一些问题，所以想禁用掉，有可能么，请大师和师太们指点一下！

Answer 1

Private Sub DataCombo1_Click(Area As Integer)
If Area = 0 Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
Adodc1.RecordSource = "select Nm from SNm "
Adodc1.Refresh
If Not Adodc1.Recordset.EOF = True Then
Set Me.DataCombo1.RowSource = Adodc1
Me.DataCombo1.ListField = Adodc1.Recordset.Fields("Nm").Name
End If
End If
If Area = 2 Then
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=2752;Persist Security Info=True;User ID=sa;Initial Catalog=sample;Data Source=JAMLEEPC"
Adodc1.RecordSource = "select * from SNm where Nm='" & Trim(DataCombo1.Text) & "'"
Adodc1.Refresh
If Adodc1.Recordset.RecordCount > 0 Then
For j = 0 To 4
Text1(j).Text = Adodc1.Recordset.Fields(j + 1)
Next j
Combo1.Text = Adodc1.Recordset.Fields(6)
End If
你试试看吧，代码和你需要的类似改改就可以用了

Answer 2

加个锁
定义一个全局 变量
public lockcbo as Boolean

Private Sub Form_Load()
lockcbo =true
End Sub
private sub combobox click（）
if not lockcbo then
...
...
...
end if
end sub

控制lockcbo = True/False 来控制 combobox click 事件

Answer 3

可以去网上查啊