让combobox中什么东西也输不不进去，但他的style=0

[wangfub]

如何实现，最好举例说明

[ltp4]

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
用鼠标右键粘贴的话,还是可以输入数据的.

[wangfub]

能不能粘贴也不行？

[online]

locked=true

[熊孩子开学喽]

同意楼上的，把LOCKED属性设为TRUE

[haohaohappy]

能问搂住为什么这么用combobox么?
Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
和
style=0
不行么?

[wangfub]

但要是locked=true
我如何可以原则列表中的其他内容？？

[wangfub]

行是行但程序控制上就不严密了

[射天狼]

Private Sub Combo1_Change()
Combo1.Text = Combo1.Tag
End Sub

Private Sub Combo1_Click()
Combo1.Tag = Combo1.Text
End Sub

Private Sub Combo1_GotFocus()
Combo1.Tag = Combo1.Text
End Sub