Test Foro de elhacker.net SMF 2.1

Antes de preguntar he voltiado el foro y si la respuesta esta, pues no la encuentro, digo esto porque seguro es de lo mas tonto a preguntar :)

tengo este boton que me limpia los texboses pero quiero que tambien me borre los label ?


Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()
        Next

luis

Cita de: luis456 en  4 Diciembre 2014, 13:13 PMseguro es de lo mas tonto a preguntar :)

Si, si que lo es... más que nada por que ya deberías saber hacerlo, viendo tu código.


If (TypeOf obj Is Label) Then
    obj.Text = ""
End If

Saludos!

Si vale eso ya le he visto  ;)

If (TypeOf obj Is Label) Then
    obj.Text = ""
End If

lo que quiero es borrar con un solo boton todo junto texboses y label  ;(

Luis

Bueno lo he puesto de esta forma y medio va :)

Private Sub LimpiarTodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LimpiarTodoToolStripMenuItem.Click
        For Each obj As Control In Me.Controls
            If (TypeOf obj Is TextBox) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is Label) Then
                obj.Text = ""
            End If

            If (TypeOf obj Is GroupBox) Then
                For Each caja As Control In obj.Controls
                    If (TypeOf caja Is TextBox) Then
                        caja.Text = ""
                    End If
                Next
            End If
            ListBox1.Items.Clear()
            ListBox2.Items.Clear()
            ListBox3.Items.Clear()
            ListBox4.Items.Clear()
            ListBox5.Items.Clear()
            ListBox6.Items.Clear()

        Next

Solamente que al borrar tambien me borra algunos textos que no deberia de borrar ya que son fijos ,con los listbox no tengo problemas ya que solo pongo los que me interezan borrar, ahora con los otros no se como descriminarlos

luis