Visual Basic :: Cannot Get Index Of Item In Combo

Click Item In Listview Then Show That Item In Combo As Index = 0
Hi guys,

I have a listview (lvwUserPunchedOut) that is populated with records in a database (persons first name in one column and last name in the second column), what I am looking to do is if I select a persons name by clicking on it in the listview on frmMain, and then bring up frmSearchCriteria, i would like to show that selected name in the combobox as default (cboEmployee.ListIndex = 0) on frmSearchCriteria (the combobox is sorted = True and is also populated with first name and last name of the person)

How would this be done? Hope I make sense. Thanks in advance.

Index Of Last Item Added To A Combo Box
I know there's a way to read the index of the last item added to a combo box. Does anyone remember?

thanx/good luck,
adam

How Can We Know The Index Of An Item Data Value In A DropDownList Combo In VB6
I would like to receive help on the following described issue.

In my form I have a dropdown list combobox, which is populated with 'additem' and 'Itemdata' methods. during program execution, I know only a particular value stored in the itemdata. I dont know index and listed values.
I want to get the index corresponding to the Itemdata Value. How can i get that?

Thanking everybody,
sreeraj

Get The Item Index
I have a UserControl that uses two classes the individual class and a collection class, how I can implement into the Individual class to get te Index number into the collection class ???

like ListItem and ListItems

Example:

Dim LstItem as ListItem

Set LstItem = ListView1.ListItems(1)

'I want this
Msgbox LstItem.Index

'This prints 1

Thanks !!

Tab Index To Get To Next Item
I have set up the tabindex on my form to go to the correct place when the tab button is pressed. I need it to select the text in the text box when the tab button is pressed. Right now it goes to the begining of the text box but does not select the information in the text box. Any ideas would be appreciated.

Recieving Item By Index
hi,

with this piece of code im trying to receive a certain record by stating the ID in the table.

i have a variable which stores the ID, intStaffID. but im not sure where to place it in the following code.

this is on the click event of an mshflexgrid. it stored the ID, then i want it to select the staff record with that ID...

Code:
If Not IsNull(myRecSet.Fields("shiftstartMon").Value) Then 'Validation for null value
strGetMonStart = myRecSet.Fields.Item("ShiftStartMon").Value 'Get data from field
txtShiftStartMon.Text = strGetMonStart 'Insert data to textbox
Else
txtShiftStartMon.Text = "No Shift" 'Insert "No Shift" If value = Null
End If

thanks,

sam

Index Of Selected Item
Anybody out there know a quick way for me to find out the index of a selected item within a listview?

I know I could loop through it easy enough to find the index but is there another way of doing it?

Api To Get The Index Of An Item In A ComboBox
Hi,

Is there any APi that give us the index of comboBox item? For instance, I would say the item as a tring and then the APi would tell me is index in the combo?

PS: I need this to get the index of a itemdata.

Thank you

Sergio Oliveira

How To Get The Item Index In Wmp.dll Control
hi, please if somebody can tell me how can i get the item index of a media item in a playlist in this control (wmpsdk 10 or 9)

i want to know the item index of the current media playing (maybe the same media is twice or more in a playlist in diferent position (index), so i can use isidentical)

thank you

Please Help - Error 457 - Index Already Associated With This Item.
Simple form used to input 2 strings (key & value), to be stored in Dictionary (dictLocations)which is instantiated in Module1. Works fine until user clicks yes in message box, then get Error 457 (duplicate key)???

Thanks for anyone's help!

private Sub cmdOK_Click()
Dim key as string, val as string
dictLocations.Add tbLocNo, tbLocDesc
If MsgBox("Add Another Location?", vbYesNo) = vbYes then

me.Hide
tbLocNo = ""
tbLocDesc = ""
me.Show

else

me.Hide
End If
Unload.me
End Sub

Getting The Index Of A Collection Item.
Is it possible to get the Index of a collection item if you know the key it was added under?

example:

dim Mycol as new collection
Mycol.Add "keyboard","bob"
Mycol.Add "monitor","peter"
Mycol.Add "desk","joe"

I want to know that "monitor" is the second item in the list by using the key "peter" can this be done?

Jean-Guy

Making The First Combo Box Item Always The Selected Item
Hi.

I have a combo box with a Dropdown list Style and which is invoked several times in different parts of my form. How can I make the first item in this combo box the selected item or the default item everytime I select it? Currently, what's happening is that the last item that I selected becomes the selected item the next time the combo box is invoked. Thanks for any suggestions in advance!

Getting Item Data Index With Listbox Value
I'm trying to get the itemdata int value from a listbox using the listbox text value. For example:

populate the listbox using a query:
rst = select id, value from table

While (Not (rs.EOF))
lstbox.AddItem rst!value
lstbox.ItemData(lstbox.ListCount - 1) = rst![id]
rstSiteID.MoveNext
Wend

So what i want to do is get the "id" value from a selected
"value" in a listbox.

Any help would be appreciated.

>> How To Determinate The Index Of An Item In Array
Hi! I have 2 arrays called "id()" and "name()" and when I assign a string value to the name array, I assign also an id.
so... i want to get the index by specifing the item in the "name" array like this:

1st item= "a" index = 0
2nd item = "b" index = 1

and if i want a function that determinate the index of an item by specifing the text in this case

thanks

simons

Remove Item Index Number 1
Hello, I am making a list of people that connect to the chat room of there IP in a list called listPeople. But i want to remove the ip when they disconnect. I know the code is something like this, but can you help me get it right?

listPeople.removeitem(UserIP, [1])

UserIP being a String of thier remoteIP
and
1 being the index

also will the same code work with listpeople.additem?

Thanks in advance/.

Using The Index Number Of An Item In An Array
Another easy one (sorry!) :-)

I am trying to use the number of the items in my array so that, say:

If ArrayOne (Item number is 1 or 2 of array) Then

Do this

If ArrayOne (Item number is 3 or 4 of array) Then

Do this

Etc...

Is it possible?
Thanks for reading, Chloe x

Retrive Index Of Item In Listview?
How the hell do i retrive the index of an Item in a listview control?!
Sometimes I just hate this cnotrol...its too complicated...

Anyone?

Calling An Item By Its Index In A Type
Let's say I have a Type like this:

VB Code:
Public Type userinfo()Name As StringPassword As StringEnd Type

Now, if I want to access the item "Name", I need to say

VB Code:
Dim i As userinfoMsgbox i.Name

Can't I access an item by its position or index like this:

VB Code:
Dim i As userinfoMsgbox i.Index(0)'The above code is not right but it gives you the idea.

?

Locate Index Of Certain List Item?
Hi,

I have a list box with the text values of:

A
B
C

How can I quickly find the index number of B?

Thanks,

Dan

Index Of Selected List Item
I have a combo box, style 1, where users can enter items into the list by typing it then hitting enter. I want the user to be able to select one of the list items already entered and be able to delete it by pressing the delete key.
How can I delete the selected record?

Selecting An Item From A DataCombo Using The Index ID
Good morning all. I have a DataCombo control (not to be confused with ComboBox) which is populated with data. I am wondering how I can display the Description (ListField) text by referencing the Index ID (BoundColumn) i.e.

I have three entries in the DataCombo
0. Red
1. Green
2. Blue

I want to reference which is to be shown by the number, but I want the string to be displayed.

How I Could Get The Index Adding An Item To A List?
The solution could be this :
List1.AddItem ("" , Index)
but, it does not work!!!
First i have a compiler error (expected = )...
Num = List1.AddItem ("" , Index) Solves the problem, but if index is diferent than 0 this doesnot work.

I want to create a dinamic list of errors and capture his identification.
How i could do this?

How To Delete A LisBox Item Withou Use The Index?
Hi VB programers:

I'd like to know how to delete a listbox item without use the item index?

-------------------
Ex:

ExtSpa.RemoveItem (Var ?)

---------------------

Thank you.

Get Index Number Of Selected Item Combobox
I want to get the index value of the selected item in a combobox.

dim i as int
i = combo1.index (this doesn't work, duh)

i cant think of a way? (stupid )
ty

Find An Item Index In A Collection Without Looping?
Is it possible to find the index of an item in a collection by its text without looping?

Finding The Index Of An Item In An Array (Resolved)
Hi,

Is it possible to select an item in an array by sending the index number to it. I am wondering if this can be to automatically without having to type the index number in?

TIA

Nightwalker

Setting Listview Item To An Index Number
Ive been using the following to set the selected item in my listview:

VB Code:
MatchFiles.SelectedItem = MatchFiles.ListItems(OldName)

which sets the current item equal to that contained in 'OldName'.

Is there a command similar to set the selected item to an index number? So i could set row 7 to selected? Thanks

Finding The Index Of A Control Array Item
Hey im really new with VB,

I have a control array in my project and i need to find out which element in the array the user clicked on.

Just to clarify, say theres 5 elements in the array

option(1), option(2), option(3), option(4), option (5)

when the user clicks on any of these i need to assign the number in the index, (1,2,3,4 or 5) to a variable. Thanks a lot!

List Box Q, Remove An Item, By Value Not Index? *solved*
Is there an easy method to remove an item from a list box, if there is more then say, one item in the list for a particular Value etc?

Say i have a list:

Wayne
Joe
Fred
Bob
Fred

And my server sends the message to the client "Remove Fred", (I have this bit working ),
How can i remove both "Fred"'s without knowing their ListIndex's?

Tnx

Determine Item Index During A Mouseover In Listbox..
:hello, how do i get the item index of listbox where the mouse is pointing?

Get Handle On File Via Numeric (item) Index
Hi there,

First time poster...

I'm using VBA in Office 2003 Excel and am trying to get a handle on a file via a numeric index. Basically i have a folder containing some 527 files and need to loop thru them all and process them.

so I am trying to do something like this but it's not working - anyone know what i'm doing wrong?

Set fs = CreateObject("Scripting.FileSystemObject")

Set f4 = fs.getfolder(Path_str).files.Item(1) <== fails

I have previously tried a for...each loop without success - the loop exits unexpectedly after processing the 132nd item. Have attempted processing the item in question using a smaller set of data (ie when the folder only contained 5 items, the item in question was in the middle of the 5 files) and the macro was able to process and continue to the next item successfully. So believe that it's not related to the content of the file itself.

Is there some kind of limit to the number of items a variable can hold in VBA? When I step thru the code, the loop dies as soon as I try to step thru the "Next f3" statement.

Here's my code, if anyone can spot what might be causing the issue then please let me know:

    Dim fs, f, f1, f2, f3, fc, fd, fe As Object

    [...snip...]

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.getfolder(QARunEnvPath_str)
    Set fc = f.subfolders

    [...snip...]

    '
    ' Get a handle on Business Function subfolders and start loop
    '
    For Each f1 In fc

             '
             ' Create a copy of the Test Data Folder using the DIR suffix string
             '
             NewFldr_str = f1.Path & cDIR_SUFFIX
             fs.Copyfolder f1.Path, NewFldr_str

             '
             ' Get handle on files within new folder, then start looping thru those
             '
             Set f4 = fs.getfolder(NewFldr_str)
             Set fe = f4.Files

             For Each f3 In fe

                 [Do stuff....]

             Next f3 ' Next File

Thanks in advance

Selecting An Item In Treeview Control, Without Knowing Its Index.
How would you accomplish this?

I have a treeview control and a listview control.. I render files and folders from the harddrive, the problem is when I put the folders/subfolders in the listview control, and the user doubleclicks on it, I want the treeview control to automaticly select the folder/subfolder.

The best would be if you could set the selecteditem of the treeview control to a certain key value, instead of the index value.

A way to accomplish what I want would be to use a FOR-loop:
For i = 1 to treeview.nodes.count
if treeview.nodes.item(i).key = sKey then
set treeview.selecteditem = treeview.nodes.items(i)
next i

but wouldn´t this be very slow when there are maybee 5000 items in the treeview control?

Any suggestions?
Thanks.

Determining The Index Number Of A Selected Item In List Box
Hi! I would just like to ask how can I determine the index number of a selected item in a list box?

ex.

list box items

june
july <---how would I know its index no. in the listbox after I selected it?
august

Thanks in advance!

Problem Transfering Listview Item To Textbox With Index
Hi all i got a listbox called listbox2 and it has some url on it. I want to transfer listbox item to a textbox once i click on listbox item .But when i try the follwoing with a textbox that it index property set to 0 i get error :

VB Code:
compile error: Invalid use of property

code:

VB Code:
Private Sub Command1_Click() txtURL2 = List2.Text ' put the value of listbox to textbox txturl End Sub

I tried the same method with textbox that its index property is empty and it worked fine but it does not work with textbox that its index property set to 0. I be happy if some one help me here.Thanks

String Index/listbox Item Search [fixed]
hey...

I have a listbox with some items in it, where i have added (O) infront on some items.... what i want is, to remove (O) again from the item, i tryed coping it into a string, but then i forgot how i check the first 3 letters of the string...

can someone help plz ?

Take care and have fun

Garn

Index Of Newly Added Item In Sorted Listview
I need to find the index number of the item last added to a listview.
I can use listcount, except if the user clicks on the column header
and sorts the list, then the next item added could be listed in the
middle of the items already in the list. So .ListCount would not work
in that situation. So if I have a listview with items #1,#2,#3, and
I add an item which is placed in between #1 and #2, how can I find out it's spot in the list????

Any ideas or direction would be very helpful.

Get DragDrop Items.Index Or Item(Name) On ListView With Scrollbar?
Hiya's folks

Here's my bug
Code:
Private Sub lstView1_OLEDragDrop(Data As MSComctlLib.DataObject, Effect As Long, _
Button As Integer, Shift As Integer, X As Single, Y As Single)

myIndexItem = lstView1.ListItems.Item(Int(Y / 17) + 1)

End Sub

I'm using this statement to get the item name, but when the V-scrollbar is scrolled down...
I can't get the good item since I'm using the Y parameter
Any idea how to get the index of the first item displayed in listview when
the scrollbar is scrolled?
Or is there a way to get the "visual" name of the item I drag on?

Thx!!

Right Click To Return Index And Select ListBox Item.
How can I make a right mouse click return the ListIndex and select a ListBox item?

Below code doesn't won't return the ListIndex.

Code:If Button = vbRightButton Then
MsgBox "Item Index " & List1(Index).ListIndex & " " & "List Index " & Index
End If
Thanks!

ddutke

How To Set Index For The Combo Box?
I have combo box. I would like to know, how I can set index for the combo box?

Code:
Private Sub ResetListBox1() 'populate record only for point feature
Combo1.Clear
Dim Layer As Object
Dim i As Integer ' plot
i = 0
For Each Layer In Map1.Layers
If Layer.LayerType = 0 Then
If Layer.shapeType = moShapeTypePoint Then ' populate untuk point sahaja
Combo1.AddItem Layer.Name, i
i = i + 1
End If
End If
Next Layer
If i > 0 Then Combo1.ListIndex = 0
End Sub

Combo Box Index
i am using the following proceedure to fill a combo box on my form.

Public Sub FillCombo(objComboBox As ComboBox, strSQL As String, strFieldToShow As String, Optional strFieldForItemData As String)

Dim rs As New ADODB.Recordset  'Load the data
Set rs = GetRecordset(strSQL)

   With objComboBox          'Fill the combo box
     .Clear
     If strFieldForItemData = "" Then
       Do While Not rs.EOF      '(without ItemData)
         .AddItem rs.Fields(strFieldToShow).Value
         rs.MoveNext
       Loop
     Else
       Do While Not rs.EOF      '(with ItemData)
         .AddItem rs.Fields(strFieldToShow).Value
         .ItemData(.NewIndex) = rs.Fields(strFieldForItemData).Value
         rs.MoveNext
       Loop
     End If
   End With

   rs.Close                 'Tidy up
   Set rs = Nothing

End Sub

I call it like this

Call FillCombo(cboCountry, "Select CountryID , Country from T_Country", "Country", "countryID")

the table I am calling has 4 entrys per country

county1d, countryname
1   england
2   ireland
3   scotland
4   wales

I would expect the countryId to be the same as the index in the subform, but for some reason the indexing is starting at 0, can anyone help

Extracting Combo Box Value At Particular Index Value
Hi,

Can someone tell me the code to extract the value of a Combo Box at a particular index value of that Combo Box?

Cheers,

Rob.

How To Find Combo Box Index?
when a user clicks and selects an item in a combo box, how do i find the index number of that item?

sorry for all the questions tonight, but i really appreciate the help.

Combo Box Index (with SQL Server)
This is a simplified example, lets say I use a combo box to select a name. Initially I have four names.

0 Dawn
1 Fred
2 Larry
3 Ted

I add a person (want to keep it alpha sort).

0 Dawn
1 Ed
2 Fred
3 Larry
4 Ted

All of a sudden my corresponding index value changes. Is there a way to do this?

0 Dawn
5 Ed
1 Fred
2 Larry
3 Ted

This is my code I use now:

VB Code:
Private Sub LoadUserComboBox() Dim lrs As ADODB.Recordset Set lrs = m_con.Execute("Csv..rm_FillUserCombo") Call LoadCombo(cmbUser, lrs, "FullName", "UserCode") If cmbUser.ListCount > 0 Then cmbUser.ListIndex = 0 End If lrs.Close Set lrs = NothingEnd Sub Private Sub LoadCombo(cmb As ComboBox, pRS As ADODB.Recordset, _ psValueField As String, Optional psDataField As String = "") Dim li_cnt As Integer If Not (pRS.BOF And pRS.EOF) Then pRS.MoveFirst Do While Not pRS.EOF cmb.AddItem pRS(psValueField).Value If (psDataField <> "") Then li_cnt = cmb.ListCount - 1 cmb.ItemData(li_cnt) = pRS(psDataField).Value End If pRS.MoveNext Loop End IfEnd Sub