Kako da ComboBox-u dodelim ReadOnly=True. Koliko sam ja video to svojstvo nije poznato ComboBox-u. Postoji li neki drugi način?
ComboBox readOnly
Zaključano
Zakačeno
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
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
To je!
Hvala .
Hvala .
Ja bih ti preporucio da napravis svoj read only combobox, nasledis od onog iz frameworka, mozes ukombinovati ovaj kod.
Potpis
RTFM
Hoću, čim završim ovaj projekat. U velikom sam vremenskom škripcu...