hola amigos, me encuentro en un problema que se me está resistiendo, tengo dos textbox, que lleno un con cantidad otro con precio, necesito cargar en otro textbox el importe dividido de estos dos textbox pero me da un error de división por cero ...por que antes de que llegue al textbox para ponerle el dato ya está tratando de dividir, pongo todo el código gracias de antemano
'Proporciona que pueda cambiar de textbox en textbox pulsando enter
Protected Overrides Sub OnKeyDown(ByVal e As KeyEventArgs)
Try
' ¿Se ha pulsado la tecla Enter?
If e.KeyData <> Keys.Enter Then
MyBase.OnKeyDown(e)
Return
End If
' Desplazar el foco entre los distintos controles
'mediante la tecla Return. El código está basado en un
'ejemplo de Francesco Balena.
'
'Iniciar todos los controles seleccionados actualmente.
'
Dim ctrl As Control = Me.ActiveControl
Dim b As Boolean = False
Do
' Obtener el siguiente control hacia delante en el
' orden de tabulación.
ctrl = Me.GetNextControl(ctrl, True)
'multiplico el valor de unidades por el formato compra
multiplicatextboxunidades()
multiplicatextboxprecio()
' multiplicatextboxprecio()
' GetNextControl(ctrl, False) puede devolver Nothing si
' es el primer control.
If (ctrl IsNot Nothing) AndAlso (ctrl.CanFocus) AndAlso (ctrl.TabStop) Then
' Si el control puede recibir el foco, se lo doy.
ctrl.Focus()
b = True
End If
Loop While b = False
MyBase.OnKeyDown(e)
Catch
End Try
End Sub
Public Sub multiplicatextboxunidades()
TextTUnid.Text = CStr(CInt(Val(TextUnd.Text) * Val(TextFComp.Text)))
End Sub
Public Sub multiplicatextboxprecio()
Dim total As Decimal = 0
total = CDec((Val(TextTUnid.Text) / Val(TextPrecio.Text)))
TextPUnid.Text = CStr(total.ToString("#,##0.00€"))
'''''''''''''''''''aquí es dónde me da el error''''''''''''''''''''''''''''''''''''''''''''' ''''''''''''''''''''''''
End Sub
