Скратување на програмски код

[Паланчански]

Има ли опција да се скрати програмскиот код?
На пример:

Dim a1 As Integer = Val(TB1.Text)
Dim a2 As Integer = Val(TB2.Text)
Dim a3 As Integer = Val(TB3.Text)
............................................................
Dim a81 As Integer = Val(TB81.Text)

Или:

If a1 > 9 Then TB1.Text = ""
If a2 > 9 Then TB2.Text = ""
If a3 > 9 Then TB3.Text = ""
....................................................
If a81 > 9 Then TB81.Text = ""

Редовите се повторуваат до недоглед, дали постои можност со некој код како
For Each
...................
Next
или нешто слично.

Напомена:
TB значи TextBox.

 

[xhktw]

For i = 1 To 81
    If eval("a" & i) > 9 Then eval("TB" & i).Text = ""
Next i

Или со array:

Dim values(1 To 81) As Integer
Dim textBoxes(1 To 81) As TextBox

For i = 1 To 81
    If values(i) > 9 Then textBoxes(i).Text = ""
Next i

 

[Паланчански]

Нешто ми шкрипи. Не ја препознава синтаксата eval.
Можеби затоа што работам на VB 8 или нешто друго е во прашање.

 

[viktorf]

Dim textBoxes As TextBox() = {TB1, TB2, TB3, TB4, ..., TB81}

For Each tb In textBoxes
If a(i) > 9 Then tb.Text = ""
Next


probaj

 

[gdamjan]

Наместо да ги штракаш TB1, TB2… рачно како пештерски човек (joke), можеш да ги креираш самите text box-ови програматски, во for loop.
така ќе си ги имаш во array и после ќе работиш врз нив одеднаш.

 

[Паланчански]

Dim textBoxes As TextBox() = {TB1, TB2, TB3, TB4, ..., TB81}

For Each tb In textBoxes
If a(i) > 9 Then tb.Text = ""
Next


probaj

Недекларирано tb, недекларирано a, недекларирано i...
Очигледно денес не ми е денот.

Наместо да ги штракаш TB1, TB2… рачно како пештерски човек (joke), можеш да ги креираш самите text box-ови програматски, во for loop.
така ќе си ги имаш во array и после ќе работиш врз нив одеднаш.

Е, тоа за мене веќе е виша математика (пардон, шпанско село).

 

[bxxxn]

'мала корекција од погоре

Dim i as integer = 0
Dim a(10000) as integer
Dim textBoxes As TextBox() = {TB1, TB2, TB3, TB4, ..., TB81}

For Each tb As TextBox In textBoxes
i=i+1
a(i) = val(tb.text)
If a(i) > 9 Then tb.Text = ""
Next

или доколку сакаш да не ги предефинираш текст боксовите

Dim i as integer = 0
Dim a(10000) as integer

For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
i=i+1
a(i) = val(tb.text)
If a(i) > 9 Then tb.Text = ""
Next

 

[Паланчански]

'мала корекција од погоре

Dim i as integer = 0
Dim a(10000) as integer
Dim textBoxes As TextBox() = {TB1, TB2, TB3, TB4, ..., TB81}

For Each tb As TextBox In textBoxes
i=i+1
a(i) = val(tb.text)
If a(i) > 9 Then tb.Text = ""
Next

или доколку сакаш да не ги предефинираш текст боксовите

Dim i as integer = 0
Dim a(10000) as integer

For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
i=i+1
a(i) = val(tb.text)
If a(i) > 9 Then tb.Text = ""
Next

Првото е во ред, второто покажува грешка. Не го признава OfType како член на Me.Controls

 

[bxxxn]

Пробај со try...catch за доделување на вредност на текст боксот, инаку претпоставувам дека кодот ти е за VB.net, каде што Controls.OfType е ОК?

For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
i=i+1
a(i) = val(tb.text)
Try
If a(i) > 9 Then tb.Text = ""
Catch
Finally
End Try
Next

 

[Паланчански]

Пробај со try...catch за доделување на вредност на текст боксот, инаку претпоставувам дека кодот ти е за VB.net, каде што Controls.OfType е ОК?

For Each tb As TextBox In Me.Controls.OfType(Of TextBox)()
i=i+1
a(i) = val(tb.text)
Try
If a(i) > 9 Then tb.Text = ""
Catch
Finally
End Try
Next

Не оди ни така. Привремено се откажувам.
Во секој случај благодарам.