none
Error a intentar resaltar los texbox RRS feed

  • Pregunta

  • Buenas e encontrado este codigo para reselatar los textbo cuando estoy dentro del mismo pero me lanza este error 

    Gracias

    Private Sub TieneFoco(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim miTextBox As TextBox
            miTextBox = CType(sender, TextBox)
            miTextBox.BackColor = Color.Yellow
        End Sub
    
        Private Sub PierdeFoco(ByVal sender As Object, ByVal e As System.EventArgs)
            Dim miTextBox As TextBox
            miTextBox = CType(sender, TextBox)
            miTextBox.BackColor = Color.White
        End Sub
    
        Sub Color_Textbox()
            Dim ctrl As Control
            For Each ctrl In Me.gbx_general.Controls
                If (TypeOf (ctrl) Is TextBox) Then
                    Dim miTextBox As TextBox
                    miTextBox = CType(ctrl, TextBox)
                    AddHandler miTextBox.Enter, AddressOf TieneFoco
                    AddHandler miTextBox.Leave, AddressOf PierdeFoco
                End If
            Next
        End Sub

    domingo, 15 de mayo de 2016 10:20

Respuestas

  • Casi seguro que el mensaje de error tiene razón, y efectivamente el formulario en el que has escrito ese código no contiene directamente un contenedor de controles que se llame gbx_general. Fíjate bien a ver dónde has metido tus textboxes, y cerciórate del que el nombre del contenedor es el mismo que escribes en el código fuente. Si no están en un contenedor, sino directamente en el formulario, entonces pon sencillamente Me.Controls en lugar de Me.gbx_general.Controls.

    • Marcado como respuesta JETET domingo, 15 de mayo de 2016 10:47
    domingo, 15 de mayo de 2016 10:31