如何让ComboBox控件只读

[chelijia]

我用的是 vb2005 语言，我的问题是：先让ComboBox控件只读，不能写入或改写，并且控件不能下拉，而且还能正常显示，用了Enabled = False后，控件本身变成了实效状态（颜色不协调）。请高手指点，本人表示衷心的感谢。

[true_guowei]

方法：
设置下拉列表框不能下拉：
设置：DropDownStyle=Simple
size->hight=2

设置只读：
keypress事件中加入代码：
e.KeyChar = Chr(0)

[blues_zhao_yang]

Public Class Form1

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
    End Sub

    Private Sub ComboBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseDown
        ComboBox1.Enabled = False
    End Sub

    Private Sub ComboBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles ComboBox1.MouseUp
        ComboBox1.Enabled = True
    End Sub
End Class

[chelijia]

感谢1楼、2楼的解答，不过2楼的方法在运行时，当鼠标频繁点击时，出现控件失效状态（控件变成灰色），总之感谢大师们的指点，谢谢。要是不出现失效状态更好。

[chelijia]

感谢大家的解答，问题基本解决，结贴