crear funcion

Hola,

Podes crear una clase la que podrias utilizar desde cualquier sitio de tu
aplicacion o desde otras.

public class ValidaEntradaN

end class

Una funcion se declara con function.

Public function ValidaEntradaN(ByVal Entrada as long) as integer

return 0
end function

Depende para que la quieras utilizar, a mi me resulta mas practico las
clases.


Daniel.

"jorge" escribió en el mensaje
news:

Muchas gracias por toda la ayuda que brindan todos ustedes, llamense
criticos
y no criticos, muchas gracias.
bueno mi consulta es como puedo crear una funcion en VB.net,
la funcion se llamaria:

ValidaEntradaN

Tipo: funcion
Alcance: Publico

"Daniel G. Samborski" escribió:

Hola,

Podes crear una clase la que podrias utilizar desde cualquier sitio de tu
aplicacion o desde otras.

public class ValidaEntradaN
.
end class

Una funcion se declara con function.

Public function ValidaEntradaN(ByVal Entrada as long) as integer
.
return 0
end function

Depende para que la quieras utilizar, a mi me resulta mas practico las
clases.


Daniel.

"jorge" escribió en el mensaje
news:
> Muchas gracias por toda la ayuda que brindan todos ustedes, llamense
> criticos
> y no criticos, muchas gracias.
> bueno mi consulta es como puedo crear una funcion en VB.net,
> la funcion se llamaria:
>
> ValidaEntradaN
>
> Tipo: funcion
> Alcance: Publico

la funcion la necesito por que estoy creando un programa donde ingreso el
monto total de las ventas.

ahora ya se creo la funcion :
pero es un ejercicio de visual basic yo quisiera transformar todo este
codigo a visual basic.net

Public Function ValidaNumeroN(Keyascii as integer)
If keyascii < 48 or kewyascii > 57 then
keyascii = 0: Beep
end if
End Function


ESTA ES LO QUE YO E TOMADO COMO EJEMPLO PARA CREAR LA FUNCION

Public Function ValidaEntradaN(ByVal Entrada As Long)
Return 0

End Function

>
>
Por favor si pudieran corregir.

Public Function ValidaNumeroN(BYVAL Keyascii as integer) AS INTEGER
If keyascii < 48 or kewyascii > 57 then
keyascii = 0: Beep
end if
End Function


ESTA ES LO QUE YO E TOMADO COMO EJEMPLO PARA CREAR LA FUNCION

Public Function ValidaEntradaN(ByVal Entrada As Long) AS LONG
Return 0

End Function

>
>
Por favor si pudieran corregir.

Hola Eduardo, si lo que queres es validar un textbox aqui te pongo unas
funciones para que veas.

Public Class ValidarTextBox

Public Function SoloNumeros(ByVal Txt As TextBox, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Function

Public Function SoloLetras(ByVal Txt As TextBox, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar.IsLetter(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsControl(e.KeyChar) Then
e.Handled = False
ElseIf e.KeyChar.IsSeparator(e.KeyChar) Then
e.Handled = False
Else
e.Handled = True
End If
End Function

Public Function NumerosPunto(ByVal Txt As TextBox, ByVal e As
System.Windows.Forms.KeyPressEventArgs)
If e.KeyChar.IsPunctuation(e.KeyChar) Then
e.Handled = False
End If
If e.KeyChar.IsDigit(e.KeyChar) Then
e.Handled = False
End If
If e.KeyChar.IsLetter(e.KeyChar) Then
e.Handled = True
End If
End Function

End Class

Usarias estas funciones de la siguiente manera.
Esto iria en el KeyPress del text box

Dim validar As New ValidarTextBox
validar.SoloNumeros(Me.TxtNroDoc, e)
If e.KeyChar = Convert.ToChar(Keys.Escape) Then
Me.Close()
End If

Esto lo que hace es evitar que se ingresen otros caracteres que no sean
números...
El Keys.Escape cierra la ventana al pulsar la tecla escape, esto podes
omitirlo.


Daniel.

"Eduardo Alvarado Meza"
escribió en el mensaje news:%

Public Function ValidaNumeroN(BYVAL Keyascii as integer) AS INTEGER
If keyascii < 48 or kewyascii > 57 then
keyascii = 0: Beep
end if
End Function


ESTA ES LO QUE YO E TOMADO COMO EJEMPLO PARA CREAR LA FUNCION

Public Function ValidaEntradaN(ByVal Entrada As Long) AS LONG
Return 0

End Function

>
>
Por favor si pudieran corregir.