Declarar funcion

Me imagino que lo que necesitas es que el campo de texto no te acepte otro
dato que no sea un numero.

Si esto es asi el código en Visual Basic .NET Se veria como sigue.

Private Sub TextBoxNumero1_KeyPress _
(ByVal sender As Object, _
ByVal e As System.Windows.Forms.KeyPressEventArgs) _
Handles TextBoxNumero1.KeyPress

Dim KeyAscii = Asc(e.KeyChar)
If KeyAscii < 48 Or KeyAscii > 57 Then
e.Handled = True
End If

End Sub

Porque no he puesto la función, porque esta misma función podria atender la
llamada de varios objetos textbox diferentes unicamente agregandolos en el
Handles

La segunda razón es para que veas claramente que el codigo para hacer lo
mismo en Visual Basic 6 cambio radicalmente en .NET y por lo tanto no puedes
asignar el KeyAscii a 0 como antes lo hacias para ignorar la tecla.

Te envio un cordial saludo esperando que la información te sea de utilidad.

Atentamente,
Raúl Guerrero
http://superneurona.blogspot.com

REFERENCIA DE ESTE TEMA EN MI BLOG:
http://neuronahelp.blogspot.com/200...in-le.html

"jorge" wrote:

Estoy desarrollando un proyecto que permita determinar el mayor de tres
numeros ingresados por teclado, lo estoy desarrollando en visual basic de
visual studio 2005, el problema es que el ejercicio es de visual basic 6.0,
me piden crear una funcion

de nombre: ValidaEntradaN
de Tipo: Funcion
de Alcance: Publico

El codigo de la funcion es el siguiente:

Public Function Valida EntradaN(KeyAscii As Integer)
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
Beep
End If
End Function

Tambien tengo problemas al codificar en este textbox

Private Sub TextBoxNumero1_KeyPress(ByVal sender As Object, ByVal e As
System.Windows.Forms.KeyPressEventArgs) Handles TextBoxNumero1.KeyPress
i = ValidaEntradaN(KeyAscii)
End Sub

Que tengo que agregar para que visual basic de visual studio 2005 me acepte
estos codigos,
seria de gran ayuda sus consejos y correcciones, por que e consultado en el
grupo de Visual satudio pero no responden, gracias.