Ver Mensaje Individual
  #5 (permalink)  
Antiguo 25/10/2005, 07:40
Avatar de Jose_minglein2
Jose_minglein2
 
Fecha de Ingreso: noviembre-2004
Mensajes: 2.344
Antigüedad: 19 años, 6 meses
Puntos: 8
Código:
Dim Script As New System.Text.StringBuilder
        Script.Append(vbCrLf & "<script language=" & Chr(34) & "javascript" & Chr(34) & ">" & vbCrLf)
        Script.Append("function solonumeros(e){" & vbCrLf)
        Script.Append("key = (document.all) ? e.keyCode : e.which;" & vbCrLf)
        Script.Append("if (key==8) return true;" & vbCrLf)
        Script.Append("patron =/\d/;" & vbCrLf)
        Script.Append("te = String.fromCharCode(key);" & vbCrLf)
        Script.Append("return patron.test(te);}")
        Script.Append("</script>")
ME.RegisterStartupScript("SoloNumero", Script.ToString)

        textbox.Attributes.Add("onkeypress", "return solonumeros(event);")