checkedlistbox help..... - Xtreme Visual Basic Talk

09-09-2005, 02:52 AM

chngbh

Centurion

Join Date: Mar 2005

Posts: 169

checkedlistbox help.....

Hi There,

can anybody tell me how to retrieved the item in the CheckedListBox and compare with the textbox? so there would not have any duplicate data...
Here is my coding line

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Then
            MsgBox("Please enter your string under the text box!!!", MsgBoxStyle.Exclamation, "Error")
        Else
            If ChkListBox.Items.Count = 0 Then
                ChkListBox.Items.Add(Trim(TextBox1.Text))
            Else
                For n = 1 To ChkListBox.Items.Count
                    If ChkListBox.CheckedItems.Item(n) = Trim(TextBox1.Text) Then
                        MsgBox("Duplicate Entry : " & TextBox1.Text & _
                        " !!!", MsgBoxStyle.Information, "Error")
                        Exit For
                    End If
                Next

                If n = (ChkListBox.Items.Count - 1) Then
                    ChkListBox.Items.Add(Trim(TextBox1.Text))
                End If
            End If
            TextBox1.Clear()
            TextBox1.Focus()
        End If
    End Sub

Edit by italkid: Please use the [vb]][ and [/vb] tags to display your code, thanks.

Last edited by italkid; 09-09-2005 at 04:28 AM.

09-09-2005, 06:41 AM

McF

Junior Contributor

Join Date: Feb 2003

Location: South Carolina

Posts: 215

Where is n declared and what data type is it?
The reason is that this line:

Code:

If ChkListBox.CheckedItems.Item(n) = Trim(TextBox1.Text) Then

will normally complain about the '='

__________________
"Success is dependent on effort."~Sophocles
"Behold the turtle. He makes progress only when he stick his neck out."~James Bryant Conant

Last edited by McF; 09-09-2005 at 06:47 AM.

09-09-2005, 07:21 AM

McF

Junior Contributor

Join Date: Feb 2003

Location: South Carolina

Posts: 215

Code:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
      Dim n As Integer
      Dim b As Boolean
      If TextBox1.Text = "" Then
         MsgBox("Please enter your string under the text box!!!", MsgBoxStyle.Exclamation, "Error")
      Else
         If ChkListBox.Items.Count = 0 Then
            ChkListBox.Items.Add(Trim(TextBox1.Text))
         Else
            'For n = 0 To ChkListBox.Items.Count()
            b = TextBox1.Text.Equals(ChkListBox.Items(n).ToString)
            If (b = True) Then
               MsgBox("Duplicate Entry : " & TextBox1.Text & _
               " !!!", MsgBoxStyle.Information, "Error")
               'Exit For
            End If
            'Next

            'If n = (ChkListBox.Items.Count - 1) Then
            '   ChkListBox.Items.Add(Trim(TextBox1.Text))
            'End If
         End If
         TextBox1.Clear()
         TextBox1.Focus()
      End If
   End Sub
End Class

This works only the first pass. Examine your For loop closely and you will see that it doesn't work the way it's implemented. The rest is up to you.

__________________
"Success is dependent on effort."~Sophocles
"Behold the turtle. He makes progress only when he stick his neck out."~James Bryant Conant

09-11-2005, 08:21 PM

chngbh

Centurion

Join Date: Mar 2005

Posts: 169

thanks.. i had figure out the for loop... but i faced another problem in delete selected item in the check listbox....

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
For n = 0 To ChkListBox.Items.Count - 1
If ChkListBox.GetSelected(n) = True Then
ChkListBox.Items.RemoveAt(n)
End If
Next
End Sub

09-11-2005, 09:05 PM

McF

Junior Contributor

Join Date: Feb 2003

Location: South Carolina

Posts: 215

Quote:

Originally Posted by chngbh

thanks.. i had figure out the for loop... but i faced another problem in delete selected item in the check listbox....

Code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

   ChkListBox.Items.Remove(ChkListBox.SelectedItem)

End Sub

__________________
"Success is dependent on effort."~Sophocles
"Behold the turtle. He makes progress only when he stick his neck out."~James Bryant Conant

09-11-2005, 09:18 PM

chngbh

Centurion

Join Date: Mar 2005

Posts: 169

your code is working great but if i selected more that one....its able to remove the last checked list only???

09-11-2005, 11:09 PM

McF

Junior Contributor

Join Date: Feb 2003

Location: South Carolina

Posts: 215

Try this:

Code:

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    
     Dim x As Integer
      x = 0

      Do While ChkListBox.CheckedItems.Count > 0
         If ChkListBox.GetItemCheckState(x) = CheckState.Checked Then
            ChkListBox.Items.RemoveAt(x)
         Else
            x += 1
         End If
      Loop


End Sub

__________________
"Success is dependent on effort."~Sophocles
"Behold the turtle. He makes progress only when he stick his neck out."~James Bryant Conant

Last edited by McF; 09-11-2005 at 11:28 PM.

09-11-2005, 11:30 PM

chngbh

Centurion

Join Date: Mar 2005

Posts: 169

thanks