[RESOLVED] dont want any typing on combo box

[mic_k86]

hi all,

how to set the combo box so that can't simply type anything inside it to avoid error occur when vb program is executing?

[Pradeep1210]

Set the Style property to 2-DropdownList

[jp26198926]

Style = 2-Dropdown List on combo1 property

[mic_k86]

when i set to style property to 2-dropdown list, the text in the combobox is combo1 and can't change anymore. i want change the text in combobox to 0. how?

[Pradeep1210]

when i set to style property to 2-dropdown list, the text in the combobox is combo1 and can't change anymore. i want change the text in combobox to 0. how?

At runtime it won't be combo1, but only one from the dropdown list or empty.

If you don't want to permit blank also, just set the Combo1.ListIndex = 0 in your form_load, which will cause the first item in your dropdown list to be selected by default.

[jp26198926]

when i set to style property to 2-dropdown list, the text in the combobox is combo1 and can't change anymore. i want change the text in combobox to 0. how?

this is an example:

Private Sub Form_Load()
Dim i As Integer

For i = 0 To 9
    Combo1.AddItem i
Next i

Combo1.ListIndex = 0

End Sub

[Hack]

i want change the text in combobox

When you do this

Set the Style property to 2-DropdownList

you lose the ability to access the text property.

If you need to access the text property, but not allow any one to physically type something in the text portion of the combo, then set the style back to its default of 0 - Dropdown Combo, and do this

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

[mic_k86]

thanks everyone. my problem solved.

one question:

For i = 0 To 9

if i want use 0, 10, 20, 30 in my combo box, how should i change it?

[Hack]

Well,

For i = 0 To 0

makes no sense, so we can completely discount that.

For the others, just set a variable, and use it

Dim x As Integer
Dim i As Integer

x = 10

For i = 0 to x

[mic_k86]

hack, wat i mean is that i just have 4 variable 0, 10, 20, 30. how to do that? however, ur reply also give me more knowledge on this case.

[Pradeep1210]

When you do this
you lose the ability to access the text property.

If you need to access the text property, but not allow any one to physically type something in the text portion of the combo, then set the style back to its default of 0 - Dropdown Combo, and do this

Private Sub Combo1_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub

Won't the user be able to right click and paste something there defeating the purpose of this code?

[jp26198926]

thanks everyone. my problem solved.

one question:


if i want use 0, 10, 20, 30 in my combo box, how should i change it?

u mean like this?

For i = 0 To 30 Step 10
    Combo1.AddItem i
Next i

[mic_k86]

ya. jp. is like that. one more deep question, the coding is true only for variable which hv order, if o hv few variable like 1, 5, 8, 20, 60. how to change it?

[Pradeep1210]

ya. jp. is like that. one more deep question, the coding is true only for variable which hv order, if o hv few variable like 1, 5, 8, 20, 60. how to change it?

I think if you don't hve any consistancy between them, you can't just loop and add them. You will need to add them individually.

Combo1.AddItem 1
Combo1.AddItem 5
Combo1.AddItem 8
Combo1.AddItem 20
Combo1.AddItem 60

[Hack]

Won't the user be able to right click and paste something there defeating the purpose of this code?

Nope...setting KeyAscii = 0 also applies to CTRL+V

[jp26198926]

I think if you don't hve any consistancy between them, you can't just loop and add them. You will need to add them individually.

Combo1.AddItem 1
Combo1.AddItem 5
Combo1.AddItem 8
Combo1.AddItem 20
Combo1.AddItem 60

i agree.. hehehe

[Pradeep1210]

Nope...setting KeyAscii = 0 also applies to CTRL+V

Errr... I meant clicking with the right mouse button and clicking Paste from the popup menu.

[mic_k86]

ic. thank everyone.

[wiz....]

I have a very simple suggestion!!!!!!!!!!!!!!!! just set the LOCKED property of the combo box to TRUE !!!!! dat will do the trick.......but i guess dat wont allow u 2 select any other option.