Read-Only ComboBox any ideas?

[stevebausch]

It's possible in VB, but not VBA, least not in terms of properties.

Any ideas? I have searched for and found remedies, but most involve pages of API calls, etc.

Is it possible to simulate Read-Only in only a few lines?

 

[parry]

Hi Im sorry I dont have an answer - this is way above my head

What I would like to know is why you would have a combo box as read only compared to justing locking the combo box? Whats the pros and cons in other words.

cheers
Parry

 

[Legacy 98055]

Hi.
Will you be using the click event for an item in the list?
For now. This pretty much simulates read only.<pre>
Private Sub ComboBox1_Change()
ComboBox1.Text = "Please Select"
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.Text = "Please Select"
.AddItem "Item One"
.AddItem "Item Two"
.AddItem "Item Three"
End With
End Sub

Easy way to capture a selection..

Option Explicit
Dim SkipEvent As Boolean

Private Sub ComboBox1_Change()
If SkipEvent Then Exit Sub
SkipEvent = True
'capture selection here
ComboBox1.Text = "Please Select"
SkipEvent = False
End Sub

Private Sub UserForm_Initialize()
With ComboBox1
.Text = "Please Select"
.AddItem "Item One"
.AddItem "Item Two"
.AddItem "Item Three"
End With
End Sub</pre>
Tom
This message was edited by TsTom on 2002-08-22 20:44

 

[Juan Pablo González]

In one line:

ComboBox1.Locked = True

 

[parry]

Yeah thats what I thought of originally Juan which is why I asked whats the diff between locked and read only?

cheers
Parry

 

[Juan Pablo González]

Oh, sorry, I just read your subject and first post, and assumed that was the question, how to make it read only.

 

[brettvba]

Would I be correct in thinking that readonly means no input into the combo box just selection with the down arrow, hence locking the box means you cant use the down arrow!

Brett

 

[brettvba]

Try the following if I understanded ur question, will only let the user select from the list , they can still type but it will pop up an invalid value box!


Private Sub UserForm_Initialize()
With ComboBox1
.AddItem "Item One"
.AddItem "Item Two"
.AddItem "Item Three"
.MatchEntry = fmMatchEntryNone
.MatchRequired = True

End With
End Sub

Brett
This message was edited by brettvba on 2002-08-22 21:33

 

[stevebausch]

Guys, I appreciate the input. Thank You All!

Steve