19/10/2006, 08:43
|
| | | Fecha de Ingreso: mayo-2004 Ubicación: Guadalajara, Jalisco, México
Mensajes: 724
Antigüedad: 20 años, 9 meses Puntos: 6 | |
| No estas regresando el resultado en la funcion....
Public Class Clsprueba
Public Function sumar(ByVal x as integer, ByVal y as integer) As Integer
Dim objMsgbox As New ClsMsgBox
Dim suma as integer = x + y
if(suma > 10) then
objMsgbox.ShowMessage("La suma es: " & suma)
sumar = suma
else
objMsgbox.ShowMessage("Sobrepaso el limite")
end if
return suma
End Function
End Class
o igual, lo puedes dejar asi:
Public Class Clsprueba
Public Function sumar(ByVal x as integer, ByVal y as integer) As Integer
Dim objMsgbox As New ClsMsgBox
sumar = x + y
if(sumar > 10) then
objMsgbox.ShowMessage("La suma es: " & suma)
sumar = suma
else
objMsgbox.ShowMessage("Sobrepaso el limite")
end if
End Function
End Class
tu codigo...
Private Sub btnresultado_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btningresar.Click
Dim rpt As New sotp_clases.Clsprueba
txtresultado.text = rpt.sumar(txtnum1.text,txtnum2.txt)
End Sub
Estas iniciando en esto de la programacion verdad??? |