24/05/2011, 14:37
|
| | | Fecha de Ingreso: noviembre-2010 Ubicación: madrid
Mensajes: 478
Antigüedad: 14 años, 1 mes Puntos: 5 | |
| Respuesta: problema en recorrido constante
AHIIIII VAAAA...Funcionando a la perfección...gracias
Private Sub TextUnd_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextUnd.KeyPress
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
TextFComp.Focus()
End If
End Sub
Private Sub TextFComp_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextFComp.KeyPress
If e.KeyChar = Convert.ToChar(Keys.Enter) Then
'-- Validas que tb1 y tb2 tengan valor
If Not String.IsNullOrEmpty(TextUnd.Text) And Not String.IsNullOrEmpty(TextFComp.Text) Then
Me.TextTUnid.Text = CStr(CDbl(TextUnd.Text) * CDbl(TextFComp.Text))
TextTUnid.Focus()
Else
MessageBox.Show("Debe cubrir UNIDADES y F.COMPRA campos obligatorios. ", "Error")
End If
End If
End Sub |