Clever Geek Handbook

VB.NET ..... Help in a loop

I am using My.Settings in visual studio 2008 to store information when the user starts the program again.

It works fine for me ... but since I am using 12 text fields I don't want to write ...

my.settings.grade1 = textbox1.text

for each one and I also do calculations using the stored information, so I don't want to write my.settings.grade1 + my.settings.grade2 etc.

Any help is appreciated

Thank you =)

0


source to share


5 answers


In your form containing text fields, add them to the collection or array of text fields when you initialize the form.

Then, iterate through the set or array of text boxes to assign a parameter value.



If you don't want to manually code the assignment of the text boxes in an array, then in your form source code, iterate over all the controls on the form and check the control type or specfici 'Tag' that you assign each text block, then add each text block to array in this way.

For Each c as Control in Me.Controls

 If c.Tag.ToString() = "Grade" Then
  ' Add Items to collection here '
 End If

Next c
+1


source


Have you considered using the ApplicationSettings binding to automatically bind values ​​to Textboxes.Text properties. This will support two way binding and then all you have to do is Save Call when you close.



+1


source


or you can do something like this:

given your textboxes are named on strings: Grade1, Grade2, Grade3, etc.

you can store the classes in an array and then loop through the array:

((TextBox)form.findControl("Grade" + i.ToString())).Text = Grade(i)

Depending on your calculation, you can also perform calculations inside the loop.

0


source


Complete the list of class text fields:

'at the class level'
Public GradeBoxes(11) As TextBox
Const grade As String = "GRADE"

'when the form is created'
Dim i As Integer = 0
For Each ctr As Control In Controls
    If TypeOf (ctr) Is TextBox AndAlso ctr.Name.ToUpper.StartsWith(grade) Then
        i = CInt(ctr.Name.SubString(grade.Length))
        If i >= 0 AndAlso i < GradeBoxes.Length Then GradeBoxes(i) = ctrl
    End If
Next ctr

For Each box As TextBox in GradeBoxes
    If box IsNot Nothing AndAlso My.Settings(box.Name) IsNot Nothing Then
        box.Text = My.Settings(box.Name)
    End If
Next box

Save grades:

For Each box As TextBox in GradeBoxes
    If box IsNot Nothing AndAlso My.Settings(box.Name) IsNot Nothing Then
        My.Settings(box.Name) = box.Text
    End If
Next box
My.Settings.Save()
0


source


Do you mean something like?

    Dim sum As Long
    Dim grades(11) As Long

    Dim i As Integer = 0
    For Each ctr In Controls
        If TypeOf (ctr) Is TextBox Then
            grades(i) = CLng(ctr.Text)
            sum = sum + grades(i)
            i = i + 1
        End If
    Next
-1


source






More articles:


All Articles