duplicate in combobox.....

[Supra]

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)
Dim bFound As Boolean
bFound = False
For i As Integer = 1 To ComboBox1.Items.Count
If ComboBox1.SelectedItem = ComboBox1.Text.ToString Then
bFound = True
Exit For
End If
Next
If bFound = False Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If
End Sub

[Ken Dopierala Jr.]

Hi,

Try changing the For line to:

For i As Integer = 0 to (ComboBox1.Items.Count - 1)

Good luck! Ken.

--
Ken Dopierala Jr.
For great ASP.Net web hosting try:
http://www.webhost4life.com/default.asp?refid=Spinlight

"Supra" <su*****@rogers.com> wrote in message
news:PL********************@news01.bloor.is.net.ca ble.rogers.com...

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)
Dim bFound As Boolean
bFound = False
For i As Integer = 1 To ComboBox1.Items.Count
If ComboBox1.SelectedItem = ComboBox1.Text.ToString Then
bFound = True
Exit For
End If
Next
If bFound = False Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If
End Sub

[Supra]

same problems.
Ken Dopierala Jr. wrote:

Hi,

Try changing the For line to:

For i As Integer = 0 to (ComboBox1.Items.Count - 1)

Good luck! Ken.

[Supra]

i solved it.....i found another newsgroup in windowform

it is item(i) instead of ComboBox1.SelectedItem

If ComboBox1.Items(i) = ComboBox1.Text Then

regards,

Supra wrote:

same problems.
Ken Dopierala Jr. wrote:

Hi,

Try changing the For line to:

For i As Integer = 0 to (ComboBox1.Items.Count - 1)

Good luck! Ken.

[Cor Ligthert]

Supra,

That part you show is as well not right, however I will advice you to take
the answer from Ken as well. You solution should not work (when there is no
match) when you do not add that and you never take the first one. It is as
well not needed to convert the Text to String, while Text is already a
String. But that does not give errors.

And to confuse you even more, there is a much easier instruction for what
you are doing.
http://msdn.microsoft.com/library/de...exacttopic.asp

I hope this gives you an idea?

Cor

Cor
"Supra" <su*****@rogers.com>..

i solved it.....i found another newsgroup in windowform

it is item(i) instead of ComboBox1.SelectedItem

If ComboBox1.Items(i) = ComboBox1.Text Then
regards,

Supra wrote:

same problems.
Ken Dopierala Jr. wrote:

Hi,

Try changing the For line to:

For i As Integer = 0 to (ComboBox1.Items.Count - 1)

Good luck! Ken.

[Barry]

You are looping with "For i as Integer =1 to ...." but you don't use
it. You are checking SelectedItem (and you would want to check
SelectedItem.ToString rather than the object itself) where you should
check each item in the ComboBox whether it is selected or not - use
ComboBox1.items(i).ToString. Now maybe you are checking only the
selectedItem to see if it's text matches what you are inputing, but
what if the dup is somewhere else??

So fix both of those things and see which is needed...-

SelectedItem.ToString
and
ComboBox1.items(i).ToString

to see what fits with your logic....
On Fri, 24 Sep 2004 00:21:03 GMT, Supra <su*****@rogers.com> wrote:

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)
Dim bFound As Boolean
bFound = False
For i As Integer = 1 To ComboBox1.Items.Count
If ComboBox1.SelectedItem = ComboBox1.Text.ToString Then
bFound = True
Exit For
End If
Next
If bFound = False Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If
End Sub

bceggersATcomcastDOTnet

[Tom Shelton]

In article <PL********************@news01.bloor.is.net.cable. rogers.com>, Supra wrote:

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress _
(ByVal sender As Object, ByVal e As KeyPressEventArgs) _
Handles ComboBox1.KeyPress

If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)

If ComboBox1.FindStringExact (ComboBox1.ComboBox1.Text) = -1 Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If

End Sub
FindString and FindStringExact are your friends...
--
Tom Shelton [MVP]

[Supra]

thank

Barry wrote:

You are looping with "For i as Integer =1 to ...." but you don't use
it. You are checking SelectedItem (and you would want to check
SelectedItem.ToString rather than the object itself) where you should
check each item in the ComboBox whether it is selected or not - use
ComboBox1.items(i).ToString. Now maybe you are checking only the
selectedItem to see if it's text matches what you are inputing, but
what if the dup is somewhere else??

So fix both of those things and see which is needed...-

SelectedItem.ToString
and
ComboBox1.items(i).ToString

to see what fits with your logic....
On Fri, 24 Sep 2004 00:21:03 GMT, Supra <su*****@rogers.com> wrote:

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)
Dim bFound As Boolean
bFound = False
For i As Integer = 1 To ComboBox1.Items.Count
If ComboBox1.SelectedItem = ComboBox1.Text.ToString Then
bFound = True
Exit For
End If
Next
If bFound = False Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If
End Sub

bceggersATcomcastDOTnet

[Supra]

thank

Barry wrote:

You are looping with "For i as Integer =1 to ...." but you don't use
it. You are checking SelectedItem (and you would want to check
SelectedItem.ToString rather than the object itself) where you should
check each item in the ComboBox whether it is selected or not - use
ComboBox1.items(i).ToString. Now maybe you are checking only the
selectedItem to see if it's text matches what you are inputing, but
what if the dup is somewhere else??

So fix both of those things and see which is needed...-

SelectedItem.ToString
and
ComboBox1.items(i).ToString

to see what fits with your logic....
On Fri, 24 Sep 2004 00:21:03 GMT, Supra <su*****@rogers.com> wrote:

does ne 1 know how to prevent duplicated in combobox? i convert from
vb6 to vb.net. but in vb6 would work.

Private Sub ComboBox1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles ComboBox1.KeyPress
If Asc(e.KeyChar) = Keys.Enter Then
e.Handled = True
AxWebBrowser1.Navigate(ComboBox1.Text.ToString)
Dim bFound As Boolean
bFound = False
For i As Integer = 1 To ComboBox1.Items.Count
If ComboBox1.SelectedItem = ComboBox1.Text.ToString Then
bFound = True
Exit For
End If
Next
If bFound = False Then
ComboBox1.Items.Add(ComboBox1.Text.ToString)
End If
End If
End Sub

bceggersATcomcastDOTnet