Ad:

VB.NET Discussion Thread
Marked Solved
Views: 1333

Sep 16th, 2008

problem with check boxes and listboxes

Expand Post »

Upon checking the corresponding check box, which is either Ladies Shoes, Men Shoes, Sneakers or Sandals, the program needs fill the listbox with the checkbox information. Can't figure the syntax, any help would be greatly appreciated.

VB Syntax (Toggle Plain Text)
Public Class Form1
 
    Private Sub chkboxLadiesShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxLadiesShoes.CheckedChanged
        Dim ladiesShoes As String = "Ladies Shoes"
 
        If chkboxLadiesShoes.CheckState = 1 Then
            lstDisplay.Text = ladiesShoes
        ElseIf chkboxLadiesShoes.CheckState = 2 Then
            lstDisplay.Items.Clear()
 
        End If
    End Sub
 
    Private Sub chkboxMenShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxMenShoes.CheckedChanged
        Dim menShoes As String = "Men Shoes"
        If chkboxMenShoes.CheckState = 1 Then
            lstDisplay.Text = menShoes
        ElseIf chkboxMenShoes.CheckState = 2 Then
            lstDisplay.Items.Clear()
 
        End If
    End Sub
    Private Sub chkSneakers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxSneakers.CheckedChanged
        Dim sneakers As String = "Sneakers"
        If chkboxSneakers.CheckState = 1 Then
            lstDisplay.Text = sneakers
        ElseIf chkboxSneakers.CheckState = 2 Then
            lstDisplay.Items.Clear()
 
        End If
    End Sub
 
    Private Sub chkSandals_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxSandals.CheckedChanged
        Dim Sandals As String = "Sandals"
        If chkboxSandals.CheckState = 1 Then
            lstDisplay.Text = Sandals
        ElseIf chkboxSandals.CheckState = 2 Then
            lstDisplay.Items.Clear()
 
        End If
    End Sub
 
 
    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class
Public Class Form1

    Private Sub chkboxLadiesShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxLadiesShoes.CheckedChanged
        Dim ladiesShoes As String = "Ladies Shoes"

        If chkboxLadiesShoes.CheckState = 1 Then
            lstDisplay.Text = ladiesShoes
        ElseIf chkboxLadiesShoes.CheckState = 2 Then
            lstDisplay.Items.Clear()

        End If
    End Sub

    Private Sub chkboxMenShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxMenShoes.CheckedChanged
        Dim menShoes As String = "Men Shoes"
        If chkboxMenShoes.CheckState = 1 Then
            lstDisplay.Text = menShoes
        ElseIf chkboxMenShoes.CheckState = 2 Then
            lstDisplay.Items.Clear()

        End If
    End Sub
    Private Sub chkSneakers_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxSneakers.CheckedChanged
        Dim sneakers As String = "Sneakers"
        If chkboxSneakers.CheckState = 1 Then
            lstDisplay.Text = sneakers
        ElseIf chkboxSneakers.CheckState = 2 Then
            lstDisplay.Items.Clear()

        End If
    End Sub

    Private Sub chkSandals_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxSandals.CheckedChanged
        Dim Sandals As String = "Sandals"
        If chkboxSandals.CheckState = 1 Then
            lstDisplay.Text = Sandals
        ElseIf chkboxSandals.CheckState = 2 Then
            lstDisplay.Items.Clear()

        End If
    End Sub


    Private Sub btnExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExit.Click
        Me.Close()
    End Sub
End Class

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

Not clear...you want to add item into list when user checked it?

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

yes

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

so this line is wrong "lstDisplay.Text"
change with
lstDisplay.Items.Add(CurrentItem)
ex: lstDisplay.Items.Add(ladiesShoes)

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

Thanks, that did it, there's only one more thing. When user unchecks each box the list box should clear, which should be lstDisplay.Items.Clear() which of course does not work, could it be my IF statements? Any insight?

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

Actually i didn't agree with your if statement :
If you want to know check box is checked or not then use Checked function :
Try this :

(Toggle Plain Text)

Private Sub chkboxLadiesShoes_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkboxLadiesShoes.CheckedChanged
        Dim ladiesShoes As String = "Ladies Shoes"

        If chkboxLadiesShoes.Checked = True Then
            lstDisplay.Items.Add(ladiesShoes)
        ElseIf chkboxLadiesShoes.Checked = False Then
            lstDisplay.Items.Clear()
        End If
End Sub

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

great, thank you, works perfectly. Just shows how important syntax is. Thanks Again.

bpacheco1227

Reputation Points: 10

Solved Threads: 0

Junior Poster in Training

Offline

58 posts
since Jul 2007

Permalink

Sep 17th, 2008

Re: problem with check boxes and listboxes

you're welcome

Jx_Man

Reputation Points: 1182

Solved Threads: 392

Posting Sensei

Offline

3,140 posts
since Nov 2007

This thread is solved

Either the thread starter or a moderator has marked this thread as solved. You can most likely trust the responses and answers given. There is most likely no reason for any further responses to be posted here. If you have a related question, please start a new thread in this forum instead.

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in VB.NET Forum Timeline: String

Next Thread in VB.NET Forum Timeline: Set COLUMN Borders in a datagrid

DaniWeb Message

Cancel Changes

User Name
Password