473,324 Members | 2,501 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,324 software developers and data experts.

Summary of my experience with combo box, any further suggestions ?

Hello All,

I have been playing with a combo box for the last day or so, attempting to
get my head around the best or the recommended way to update them.

I had problems setting the .Text and also the .SelectedValue and also the
..SelectedText. Following comments and suggestions on the newsgroups I
settled on using the .SelectedIndex.

Below is a snippit of my code. What I do not like about it is the loop
through the entire contents of the combo box. This seems ridiculously
labour intensive. Is there are more direct way to find the index of a value
in the combo list of items?

Thanks All

Mark in Ireland


Private Function F_intGetIndexForCombo(ByVal cbo As ComboBox, ByVal
intUniqueId As Integer) As Integer
Dim intIndex As Integer
For intCount As Integer = 0 To cbo.Items.Count
cbo.SelectedIndex = intCount
If cbo.SelectedValue = mobjRecord.PIDTypeId Then
intIndex = intCount
Exit For
End If
Next
F_intGetIndexForCombo = intIndex
End Function

Private Sub S_PopulateControls()

Me.txtSessionId.Text = mobjRecord.SessionId
Me.cboPIDType.SelectedIndex = F_intGetIndexForCombo(Me.cboPIDType,
mobjRecord.PIDTypeId)
Me.cboLocalisedText.SelectedIndex =
F_intGetIndexForCombo(Me.cboLocalisedText, mobjRecord.LocalisedTestId)
Me.txtPartNum.Text = mobjRecord.PartNum
Me.txtDescription.Text = mobjRecord.Description
Me.txtCreated.Text = mobjRecord.Created
Me.txtComments.Text = mobjRecord.Comment
Me.chkActiveYN.CheckState =
CommonRoutines.F_CnvBooleanToCheckState(mobjRecord .Active)

End Sub
Jan 11 '06 #1
2 1040
Have you tried the ComboBox.Items.IndexOf method? And you might also
checkout the DisplayValue property as well.

Jan 11 '06 #2
Not sure what mobjRecord.PIDTypeId is but if it's a string that in the
combobox, try

mycombobox.SelectedIndex=mycombobox.FindStringExac t(mobjRecord.PIDTypeId )
--
Dennis in Houston
"Mark L. Breen" wrote:
Hello All,

I have been playing with a combo box for the last day or so, attempting to
get my head around the best or the recommended way to update them.

I had problems setting the .Text and also the .SelectedValue and also the
..SelectedText. Following comments and suggestions on the newsgroups I
settled on using the .SelectedIndex.

Below is a snippit of my code. What I do not like about it is the loop
through the entire contents of the combo box. This seems ridiculously
labour intensive. Is there are more direct way to find the index of a value
in the combo list of items?

Thanks All

Mark in Ireland


Private Function F_intGetIndexForCombo(ByVal cbo As ComboBox, ByVal
intUniqueId As Integer) As Integer
Dim intIndex As Integer
For intCount As Integer = 0 To cbo.Items.Count
cbo.SelectedIndex = intCount
If cbo.SelectedValue = mobjRecord.PIDTypeId Then
intIndex = intCount
Exit For
End If
Next
F_intGetIndexForCombo = intIndex
End Function

Private Sub S_PopulateControls()

Me.txtSessionId.Text = mobjRecord.SessionId
Me.cboPIDType.SelectedIndex = F_intGetIndexForCombo(Me.cboPIDType,
mobjRecord.PIDTypeId)
Me.cboLocalisedText.SelectedIndex =
F_intGetIndexForCombo(Me.cboLocalisedText, mobjRecord.LocalisedTestId)
Me.txtPartNum.Text = mobjRecord.PartNum
Me.txtDescription.Text = mobjRecord.Description
Me.txtCreated.Text = mobjRecord.Created
Me.txtComments.Text = mobjRecord.Comment
Me.chkActiveYN.CheckState =
CommonRoutines.F_CnvBooleanToCheckState(mobjRecord .Active)

End Sub

Jan 12 '06 #3

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

1
by: Arun | last post by:
Hi Group, I was trying to link a combo box with a list control and having some trouble with that. Could anyone please help me with that. Here's the example of the scenario. Combo Box ;-...
0
by: DolphinDB | last post by:
Tired of spending countless mintues downsampling your data? Look no further! In this article, you’ll learn how to efficiently downsample 6.48 billion high-frequency records to 61 million...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: jfyes | last post by:
As a hardware engineer, after seeing that CEIWEI recently released a new tool for Modbus RTU Over TCP/UDP filtering and monitoring, I actively went to its official website to take a look. It turned...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: CloudSolutions | last post by:
Introduction: For many beginners and individual users, requiring a credit card and email registration may pose a barrier when starting to use cloud servers. However, some cloud server providers now...
1
by: Defcon1945 | last post by:
I'm trying to learn Python using Pycharm but import shutil doesn't work
1
by: Shællîpôpï 09 | last post by:
If u are using a keypad phone, how do u turn on JavaScript, to access features like WhatsApp, Facebook, Instagram....
0
by: af34tf | last post by:
Hi Guys, I have a domain whose name is BytesLimited.com, and I want to sell it. Does anyone know about platforms that allow me to list my domain in auction for free. Thank you
0
isladogs
by: isladogs | last post by:
The next Access Europe User Group meeting will be on Wednesday 3 Apr 2024 starting at 18:00 UK time (6PM UTC+1) and finishing by 19:30 (7.30PM). In this session, we are pleased to welcome former...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.