'findstring' in listbox

[amber]

Hello.
Can someone tell me what I may be doing wrong here?

I'm using the code (lboxRP is a listbox):

Dim newRPindex As Integer
newRPindex = Me.lboxRP.FindS tring(RP)
Me.lboxRP.SetSe lected(newRPind ex, True)

When the last line executes, I get an error message:

An unhandled exception of type 'System.Argumen tOutOfRangeExce ption' occurred
in system.windows. forms.dll

Additional information: Specified argument was out of the range of valid
values.

If I 'mouse-over' my code, the value RP is the string it should be, and it
does exist as an item in the listbox...

Help!!

TIA
Amber

[Mike S.]

Put a break on the line:
Me.lboxRP.SetSe lected(newRPind ex, True)
Now what's the value of newRPindex when you mouseover it?

It will need to be 0 or greater to use the SetSelected method.

"amber" wrote:

Hello.
Can someone tell me what I may be doing wrong here?

I'm using the code (lboxRP is a listbox):

Dim newRPindex As Integer
newRPindex = Me.lboxRP.FindS tring(RP)
Me.lboxRP.SetSe lected(newRPind ex, True)

When the last line executes, I get an error message:

An unhandled exception of type 'System.Argumen tOutOfRangeExce ption' occurred
in system.windows. forms.dll

Additional information: Specified argument was out of the range of valid
values.

If I 'mouse-over' my code, the value RP is the string it should be, and it
does exist as an item in the listbox...

Help!!

TIA
Amber

[amber]

The value is -1.
That's the problem - I'm trying to set it to equal the index that the
findstring returns.
TIA
Amber

[Mike S.]

Try setting the initial search location to -1,
newRPindex = Me.lboxRP.FindS tring(RP, -1)

You've checked that there's RP is not prefixed or suffixed with spaces
(chr$(32))?

"amber" wrote:

The value is -1.
That's the problem - I'm trying to set it to equal the index that the
findstring returns.
TIA
Amber

[Mike S.]

Also, you can use
newRPindex = Me.lboxRP.FindS tringExact(RP)
"amber" wrote:

The value is -1.
That's the problem - I'm trying to set it to equal the index that the
findstring returns.
TIA
Amber

[amber]

Okay, I tried that - still doesn't work.
It seems so straightforward ...I'm confused as to why it won't work.

when I use the line :

dim newRPindex as integer = me.lboxRP.FindS tring(RP, -1)

the value 'RP' comes from the listbox...
All I'm trying to accomplish is this:
I have a listbox with multiple items. When the user makes changes to the
form, and saves, it updates everything, and repopulates the listbox.
I'm trying to save the current item that is selected, then reselect it after
the update.

Any other suggestions??
TIA.
Amber
"Mike S." wrote:

Also, you can use
newRPindex = Me.lboxRP.FindS tringExact(RP)
"amber" wrote:

The value is -1.
That's the problem - I'm trying to set it to equal the index that the
findstring returns.
TIA
Amber

[Mike S.]

You've narrowed the problem down to the FindString function not finding the
string representation of the object RP. How are you dimensioning and
assigning RP?

Try this to see if you can return a value:
dim newRPindex as integer = me.lboxRP.FindS tring("Your List Item Text")

"amber" wrote:

Okay, I tried that - still doesn't work.
It seems so straightforward ...I'm confused as to why it won't work.

when I use the line :

dim newRPindex as integer = me.lboxRP.FindS tring(RP, -1)

the value 'RP' comes from the listbox...
All I'm trying to accomplish is this:
I have a listbox with multiple items. When the user makes changes to the
form, and saves, it updates everything, and repopulates the listbox.
I'm trying to save the current item that is selected, then reselect it after
the update.

Any other suggestions??
TIA.
Amber
"Mike S." wrote:

Also, you can use
newRPindex = Me.lboxRP.FindS tringExact(RP)
"amber" wrote:

The value is -1.
That's the problem - I'm trying to set it to equal the index that the
findstring returns.
TIA
Amber

[amber]

Thanks for all you help!
It's still not working for me.
I'll post my complete code.

The sub that uses findString is:

Private Sub refreshRoadPerm it(Optional ByVal deleteRecord As Boolean =
False, Optional ByVal RP As String = "")
If deleteRecord = True Then
"Mike S." wrote:

You've narrowed the problem down to the FindString function not finding the
string representation of the object RP. How are you dimensioning and
assigning RP?

Try this to see if you can return a value:
dim newRPindex as integer = me.lboxRP.FindS tring("Your List Item Text")

"amber" wrote:

Okay, I tried that - still doesn't work.
It seems so straightforward ...I'm confused as to why it won't work.

when I use the line :

dim newRPindex as integer = me.lboxRP.FindS tring(RP, -1)

the value 'RP' comes from the listbox...
All I'm trying to accomplish is this:
I have a listbox with multiple items. When the user makes changes to the
form, and saves, it updates everything, and repopulates the listbox.
I'm trying to save the current item that is selected, then reselect it after
the update.

Any other suggestions??
TIA.
Amber
"Mike S." wrote:

Also, you can use
newRPindex = Me.lboxRP.FindS tringExact(RP)
"amber" wrote:

> The value is -1.
> That's the problem - I'm trying to set it to equal the index that the
> findstring returns.
> TIA
> Amber
>

[Mike S.]

Close... but not the exact code I was looking for.

How do you pass the RP string to the refreshRoadPerm it function?

Post the calling line if you can

"amber" wrote:

Thanks for all you help!
It's still not working for me.
I'll post my complete code.

The sub that uses findString is:

Private Sub refreshRoadPerm it(Optional ByVal deleteRecord As Boolean =
False, Optional ByVal RP As String = "")
If deleteRecord = True Then

[amber]

I'm not sure what happened there...I was typing away, looked up, and it was
gone. Hopefully I didn't accidentally send an incomplete message...

Okay, here is the code in my sub that uses the FindString method:

Private Sub refreshRoadPerm it(Optional ByVal deleteRecord as Boolean =
False, Optional ByVal RP As String = "")

RoadPermitIsDir ty = False
If deleteRecord = True Then
'refresh and select 1st Road Permit
getRoadPermits( )
Else
getRoadPermits( )
'reselect previously selected Road Permit
Dim newRPindex as Integer
newRpindex = me.lboxRP.FindS tring(RP, -1)
Me.lboxRP.SetSe lected(newRPind ex, True)
End If
End Sub

I assign RP it's value in another sub

public Sub UpdateRoadPermi t()
dim drv as DataRowView = Me.lboxRP.Selec tedItem
dim cRP as New RoadPermit
...lots of other code
cRP.RoadPermitN ame = Me.txtRP.Text
refreshRoadPerm it(False,cRP.Ro adPermitName)
End Sub

Now I can see that RoadPermitName is correct - and there doesn't appear to
be any spaces where there shouldn't be.
I'm baffled.

After reading this lengthy post...any new suggestions?
:)
TIA
Amber