Postoji!
Code:
Private Sub MakeCboReadOnly()
ComboBox1.BackColor = SystemColors.Control
ComboBox1.DropDownStyle = ComboBoxStyle.Simple
ComboBox1.TabStop = False
End Sub
Private Sub ComboBox1_KeyDown(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ComboBox1.KeyDown
If ComboBox1.DropDownStyle = ComboBoxStyle.Simple AndAlso _
(e.KeyCode = Keys.Up OrElse _
e.KeyCode = Keys.Down OrElse _
e.KeyCode = Keys.Delete) Then
e.Handled = True
End If
End Sub
Private Sub ComboBox1_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If ComboBox1.DropDownStyle = ComboBoxStyle.Simple Then
e.Handled = True
End If
End Sub