Como borrar o limpiar label

Iniciado por luis456, 4 Diciembre 2014, 13:13 PM

0 Miembros y 1 Visitante están viendo este tema.

luis456

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 ?


Código (vbnet) [Seleccionar]
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
Que tu sabiduria no sea motivo de Humillacion para los demas

Eleкtro

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.

Código (vbnet) [Seleccionar]

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


Saludos!








luis456

Si vale eso ya le he visto  ;)

Código (vbnet) [Seleccionar]
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
Que tu sabiduria no sea motivo de Humillacion para los demas

luis456

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

Código (vbnet) [Seleccionar]
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
Que tu sabiduria no sea motivo de Humillacion para los demas