none
VB2010 - Problema con focus RRS feed

  • Pregunta

  • Estimados,

    por ejemplo, el usuario ingresa un rut malo, la casilla txtCltRut debería quedar en blanco y con el focus en dicha casilla. Pero el focus, pasa al control siguiente, que estoy haciendo mal?

        Private Sub txtCltRut_Leave(ByVal sender As Object, ByVal e As System.EventArgs) Handles txtCltRut.Leave
            If Not [String].IsNullOrWhiteSpace(txtCltRut.Text) Then
    
                txtCltRut.Text = oVAL.ProperCase(txtCltRut.Text)
    
                If oVAL.ValidarRut(txtCltRut.Text) = "Rut Correcto" And txtCltRut.Text.Contains("-") = True Then
                    BuscarCliente(txtCltRut.Text)
                Else
                    txtCltRut.Text = String.Empty
                    txtCltRut.Focus()
                End If
            End If
        End Sub
    
        Private Sub txtCltRut_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles txtCltRut.KeyPress
          If [String].IsNullOrWhiteSpace(txtCltRut.Text) And e.KeyChar = Convert.ToChar(Keys.Return) Then
                frmBusqCliente = New frmBusqCliente
                frmBusqCliente.ShowDialog()
    
                If Not [String].IsNullOrWhiteSpace(lblCltRazon.Text) Then
                    txtCondVent.Focus()
    
                Else : txtCltRut.Focus()
                End If
    
                e.Handled = True
    
            ElseIf e.KeyChar = Convert.ToChar(Keys.Return) Then
                txtCondVent.Focus()
                e.Handled = True
            End If
        End Sub

    domingo, 12 de febrero de 2012 18:02

Respuestas