for next loop [modified]
-
While I understand how to use a for next loop, I cannot work the integer (eg. 1 to 10) into the name of an object. For instance, I would like to create a for next loop for the following code ckfld1.Checked = False ckfld2.Checked = False ckfld3.Checked = False ckfld4.Checked = False ckfld5.Checked = False ckfld6.Checked = False ckfld7.Checked = False ckfld8.Checked = False ckfld9.Checked = False ckfld10.Checked = False Could someone show me how to do this? I tried the following but it does not work. For x As Integer = 1 To 10 dim c as new checkbox c.name = "ckfld" & x c.checked = false Next Any help is appreciated. I am using vs 2005. Thanks Marc -- modified at 23:05 Monday 11th June, 2007
-
While I understand how to use a for next loop, I cannot work the integer (eg. 1 to 10) into the name of an object. For instance, I would like to create a for next loop for the following code ckfld1.Checked = False ckfld2.Checked = False ckfld3.Checked = False ckfld4.Checked = False ckfld5.Checked = False ckfld6.Checked = False ckfld7.Checked = False ckfld8.Checked = False ckfld9.Checked = False ckfld10.Checked = False Could someone show me how to do this? I tried the following but it does not work. For x As Integer = 1 To 10 dim c as new checkbox c.name = "ckfld" & x c.checked = false Next Any help is appreciated. I am using vs 2005. Thanks Marc -- modified at 23:05 Monday 11th June, 2007
Try this instead:
For Each Box As CheckBox In Me.Controls
Box.Checked = True
NextThis finds all CheckBoxes in your form and checks them. You can also do the same using a Panel or GroupBox.
Trinity: Neo... nobody has ever done this before. Neo: That's why it's going to work.
-
Try this instead:
For Each Box As CheckBox In Me.Controls
Box.Checked = True
NextThis finds all CheckBoxes in your form and checks them. You can also do the same using a Panel or GroupBox.
Trinity: Neo... nobody has ever done this before. Neo: That's why it's going to work.
The problem is that there will be checkboxes that should not be affected by the for next loop, which is why I was trying to accomplish this the other way. Is it possible to do it the other way?
-
The problem is that there will be checkboxes that should not be affected by the for next loop, which is why I was trying to accomplish this the other way. Is it possible to do it the other way?
In that case you would put the CheckBoxes you do want to be checked in a Panel.
Trinity: Neo... nobody has ever done this before. Neo: That's why it's going to work.
-
While I understand how to use a for next loop, I cannot work the integer (eg. 1 to 10) into the name of an object. For instance, I would like to create a for next loop for the following code ckfld1.Checked = False ckfld2.Checked = False ckfld3.Checked = False ckfld4.Checked = False ckfld5.Checked = False ckfld6.Checked = False ckfld7.Checked = False ckfld8.Checked = False ckfld9.Checked = False ckfld10.Checked = False Could someone show me how to do this? I tried the following but it does not work. For x As Integer = 1 To 10 dim c as new checkbox c.name = "ckfld" & x c.checked = false Next Any help is appreciated. I am using vs 2005. Thanks Marc -- modified at 23:05 Monday 11th June, 2007
Firstly you have many checkboxes....I want to know whether you have maintained the same convention while naming your checkbox control....i.e ckfld1,ckfld2,ckfld3,ckfld4...???? If a specific set of checkboxes are to be unchecked then
matrixcoderhas rightly said to put your checkboxes in a Panel.Then you can writeFor Each ctrl As Control In Panel1.Controls CType(ctrl,CheckBox).Checked=False NextOther wise you have to Split the ID of your checkboxes to have the number....you can useSubstringmethod ofstringClass to do that. After that you can use that number in a For-Each loop to uncheck your CheckBoxes.But it should be a second choice I think.Tirtha Do not go where the path may lead, go instead where there is no path and leave a trail. Author: Ralph Waldo Emerson (1803-82), American writer, philosopher, poet, essayist
-
While I understand how to use a for next loop, I cannot work the integer (eg. 1 to 10) into the name of an object. For instance, I would like to create a for next loop for the following code ckfld1.Checked = False ckfld2.Checked = False ckfld3.Checked = False ckfld4.Checked = False ckfld5.Checked = False ckfld6.Checked = False ckfld7.Checked = False ckfld8.Checked = False ckfld9.Checked = False ckfld10.Checked = False Could someone show me how to do this? I tried the following but it does not work. For x As Integer = 1 To 10 dim c as new checkbox c.name = "ckfld" & x c.checked = false Next Any help is appreciated. I am using vs 2005. Thanks Marc -- modified at 23:05 Monday 11th June, 2007
What you are doing is creating another object that does not have the same name, checked value, any of the information that the checkbox already on the form has. What you should do is loop through all the controls of the form and then check the name to the naming convention you use. Check to see if the last number is the correct number, and if so you should set the appropriate check value for that object.
Regards, Thomas Stockwell Programming today is a race between software engineers striving to build bigger and better idiot-proof programs, and the Universe trying to produce bigger and better idiots. So far, the Universe is winning. Visit my homepage Oracle Studios[^]
-
Firstly you have many checkboxes....I want to know whether you have maintained the same convention while naming your checkbox control....i.e ckfld1,ckfld2,ckfld3,ckfld4...???? If a specific set of checkboxes are to be unchecked then
matrixcoderhas rightly said to put your checkboxes in a Panel.Then you can writeFor Each ctrl As Control In Panel1.Controls CType(ctrl,CheckBox).Checked=False NextOther wise you have to Split the ID of your checkboxes to have the number....you can useSubstringmethod ofstringClass to do that. After that you can use that number in a For-Each loop to uncheck your CheckBoxes.But it should be a second choice I think.Tirtha Do not go where the path may lead, go instead where there is no path and leave a trail. Author: Ralph Waldo Emerson (1803-82), American writer, philosopher, poet, essayist
Do you actually need to loop through the same set of chkboxes, the exact same set each time or is it a random selection? Private Sub TextBox29_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox29.Validating Dim Box26 As Double = 0 Dim Box29 As Double = 0 TextBox29.SelectAll() Dim response As MsgBoxResult If TextBox29.Text.Length = 0 Then MsgBox(("A 'B5' value is required." & vbCrLf & _ "Would you like to add more input"), MsgBoxStyle.YesNo) If response = MsgBoxResult.Yes Then e.Cancel = True Else e.Cancel = False TextBox28.Text = 0 TextBox31.Text = 0 TextBox32.Focus() End If ElseIf Not IsNumeric(TextBox29.Text) Then MsgBox("This 'B5' value is not numeric.", MsgBoxStyle.Exclamation) e.Cancel = True ElseIf CheckBox10.Checked Then e.Cancel = False Else Box26 = CDbl(TextBox26.Text) Box29 = CDbl(TextBox29.Text) TextBox27.Text = CStr(Box29 + 1) TextBox28.Text = CStr(Box26 - Box29) End If 'If Box29 <= 0 Then ' MsgBox("Your 'B5' value must be greater than zero.", MsgBoxStyle.Exclamation) ' e.Cancel = True 'End If TextBox35.Clear() TextBox36.Clear() TextBox37.Clear() TextBox38.Clear() TextBox39.Clear() End Sub Notice above: ElseIf CheckBox10.Checked Then e.Cancel = False I have a total of 10 chkboxes and I will check them at complete random depending on the current scenario, and the scenarios are never the same. Later down in the code I just turn off all chkboxes but I could program only certain ones if needed. This is a NOOBs rendition. Private Sub TextBox39_Validating(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles TextBox39.Validating Dim Box35 As Double = (TextBox35.Text) Dim Box36 As Double = (TextBox36.Text) Dim Box37 As Double = (TextBox37.Text) Dim Box38 As Double = (TextBox38.Text) TextBox39.Text = CStr((Box35 + Box36) + (Box37 - Box38)) If CheckBox1.Checked Then TextBox4.Text = TextBox39.Text TextBox8.Focus() End If If CheckBox2.Checked Then TextBox7.Text = TextB