Here's a stupid question!

[jlegan]

I have a checked list box that has 10 values in it.

I want to create a button that selects (or deselects) all of them at once. I am assuming I have to do a:

For Each strItems in ListBox1.Items

Next

But what is the syntax to check a box?


Thanks in advance,

Jim

[jlegan]

Resolved but I am sure there is an easier way than this...

Dim intCount As Integer
        Dim x As Integer = 0
        For intCount = 0 To lbDriversVer2.Items.Count.ToString - 1
            lbDriversVer2.SetItemChecked(x, True)
            x = x + 1
        Next

[Lunatic3]

Hey man, look at your code. It can be done in this way, i guess better syntax

Dim intCount As Integer
For intCount = 0 To lbDriversVer2.Items.Count- 1
            lbDriversVer2.SetItemChecked(intCount, True)
Next

There are some technical problems in your code, if already dont know them i will tell you.

[Pirate]

Originally posted by jlegan

For intCount = 0 To lbDriversVer2.Items.Count.ToString - 1

This may work but , it doesn't make sense . Why did you convert count property to string ?. Just wonder !

[Lunatic3]

That was one of technical problems i was talking about

[Pirate]

Originally posted by Lunatic3
That was one of technical problems i was talking about

lol ..One of them ? I can't see anything else wrong ! right ?

[Lunatic3]

Isn't defining:
Dim x As Integer = 0
and using that a poor technique?

[jlegan]

Ok, follow-up question:

This works

Dim intCount As Integer
For intCount = 0 To lbDriversVer2.Items.Count- 1
            lbDriversVer2.SetItemChecked(intCount, True)
Next

Now if I add the funtionality to make to check or uncheck all of them when I click on it it checks all of them however when I uncheck it nothing happens (it doesn't seem to process it again and take the Else route):

Private Sub chkVer2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVer2.CheckedChanged
 
        Dim intCount As Integer
        If chkVer2.CheckState.Checked Then
 
            For intCount = 0 To lbDriversVer2.Items.Count - 1
                lbDriversVer2.SetItemChecked(intCount, True)
            Next
 
        Else
 
            For intCount = 0 To lbDriversVer2.Items.Count - 1
                lbDriversVer2.SetItemChecked(intCount, False)
            Next
        End If
    End Sub

Any thoughts as to why?

[Pirate]

Originally posted by Lunatic3
Isnt defining:
Dim x As Integer = 0
and using that a poor technique.

No way , you kidding , why it's poor tech ?

[jlegan]

LOL I sure am glad that everyone here encourages learning seeing as I have just finished writting my first application from scratch and I have to deal with ppl making fun of the syntax I used when trying to figure something out.

[Lunatic3]

No way , you kidding , why it's poor tech ?

Are you making fun of me?
That Dim... per se is not a poor technique, but in his code it was not needed at all. (this is for jlegan)

[jlegan]

Lun,

In proper technique and form do you know the answer to about 3 posts ago about toggling it back and forth?

[Lunatic3]

doesn't seem to process it again and take the Else route):

So check your If statment, it may always return true.
If chkVer2 is a checkbox then you may use:

Dim intCount As Integer
For intCount = 0 To lbDriversVer2.Items.Count- 1
            lbDriversVer2.SetItemChecked(intCount, chkVer2.Checked)
Next

You dont need any if Statment, and that code goes in cchkVer2_CheckedChanged method.

[Pirate]

Originally posted by Lunatic3
Are you making fun of me?
That Dim... per se is not a poor technique, but in his code it was not needed at all. (this is for jlegan)

lol ...Sorry dude . It's not that but I's wonderin why it's bad tech as you said . In C# , you you have to initialize the variable before you use it (well , it's highly recommended I believe) . So not a big deal .

[Lunatic3]

Pirate! for Gods sake tell me if he needed to use X in his original code or not

[Pirate]

Originally posted by Lunatic3
Pirate! for Gods sake tell me if he needed to use X in his original code or not

What's X you are talking about ? interger = 0 ??

[Lunatic3]

Yes, and it subsequent use in the code above

[Pirate]

Originally posted by jlegan
Resolved but I am sure there is an easier way than this...

Dim intCount As Integer
        Dim x As Integer = 0
        For intCount = 0 To lbDriversVer2.Items.Count.ToString - 1
            lbDriversVer2.SetItemChecked(x, True)
            x = x + 1
        Next

Uh..Well , yes , absolutely no need to use it . right Lunatic3

[jlegan]

Can someone please just tell me why this will check all of the boxes in the checked list box when checked but will not uncheck them when it gets unchecked?

Private Sub chkVer2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkVer2.CheckedChanged
 
        Dim intCount As Integer
        If chkVer2.CheckState.Checked Then
 
            For intCount = 0 To lbDriversVer2.Items.Count - 1
                lbDriversVer2.SetItemChecked(intCount, True)
            Next
 
        Else
 
            For intCount = 0 To lbDriversVer2.Items.Count - 1
                lbDriversVer2.SetItemChecked(intCount, False)
            Next
        End If
    End Sub

[Pirate]

What is "chkVer2" , I couldn't figure it out !

[jlegan]

chkVer2 is a single checkbox
lbDriversVer2 is a Checked List Box

[jlegan]

I also changed the Event Handler to .CheckStateChanged but that didn't make a difference either.

[Lunatic3]

The code i sent you 9 posts before this was useless????

by the way you should use:
chkVer2.CheckState=CheckState.Checked

[jlegan]

Thanks lun that fixed it