division textbox formato

[guillebomtrasmiti]

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

[Ka0stj]

Hola guille... realiza una validación en Public Sub multiplicatextboxprecio() antes de que se ejecute la división.

Algo como:

If Integer.Parse(TextPrecio.Text) = 0 Then

MessageBox.Show("División entre cero.")

Else

'-- Ejecutas tu código

End If

Saludos!

[guillebomtrasmiti]

genial...tus respuestas siempre ayudan...

[cisselsalvador]

excelente recomendacion