getting the declared variable from inside [Resolved]

halu,

i don't if the subject fits my needs here. i don't know what to put on the subject. hehehe... this is my problem...

VB Code:

Public Sub Add()
        If TabPage1.Focus Then
            Dim i As Integer
            For i = 0 To Panel1.Controls.Count - 1
                If TypeOf Panel1.Controls(i) Is TextBox Then
                    Dim t As TextBox = Panel1.Controls(i)
                ElseIf TypeOf Panel1.Controls(i) Is ComboBox Then
                    Dim t As ComboBox = Panel1.Controls(i)
                End If
                'getting t here
            Next
        End If
    End Sub

is it possible? if it is how? just asking cause my code here goes like this...

VB Code:

Public Sub Add()
        If TabPage1.Focus Then
            Dim i As Integer
            For i = 0 To Panel1.Controls.Count - 1
                If TypeOf Panel1.Controls(i) Is TextBox Then
                    Dim t As TextBox = Panel1.Controls(i)
                    'some conditions of t.text=string.empty
                    'do something
                ElseIf TypeOf Panel1.Controls(i) Is ComboBox Then
                    Dim t As ComboBox = Panel1.Controls(i)
                    'some conditions of t.text=string.empty
                    'do something
                End If
            Next
        End If
    End Sub

it's kinda redundant on having some conditions of control.text=string.empty and doing something there. the same function is done...

this kinda sort for beginners... hehehe... any help is greatly appreciated. i'm a newbie though but a wanna be...

or...... any ideas more elegant than mine... :bigyello:

halu,

i got it. for now... hehehe... kind of lack of seminar in operators... hehehe. i reviewed it and this is i think better for now...

VB Code:

Public Sub Add()
        If TabPage1.Focus Then
            Dim i As Integer
            For i = 0 To Panel1.Controls.Count - 1
                If TypeOf Panel1.Controls(i) Is TextBox Or TypeOf Panel1.Controls(i) Is ComboBox Then
                    If Panel1.Controls(i).Text = String.Empty Then
                        MsgBox("Please fill the " & Panel1.Controls(i).Tag & " box.")
                        Panel1.Controls(i).Focus()
                        Exit Sub
                    End If
                End If
            Next
            Try
                Dim t As Decimal = txtPoints.Text
            Catch ex As Exception
                MsgBox("Points value contains alphabetic values")
                txtPoints.Focus()
                Exit Sub
            End Try
        End If
    End Sub

thanx...