Control compuesto personalizado

[Bravenap]

He introducido una modificación, de modo que sólo permita la entrada de números:

Código:

        ...
        sbScript.Append("else {document.getElementById(lbl).innerHTML = 'Provincia no identificada';}" & vbCrLf)
        sbScript.Append("}" & vbCrLf)
        sbScript.Append(vbCrLf)
        sbScript.Append("function soloNum(evt) {" & vbCrLf)
        sbScript.Append("var nav4 = window.Event ? true : false;" & vbCrLf)
        sbScript.Append("var key = nav4 ? evt.which : evt.keyCode;" & vbCrLf)
        sbScript.Append("return (key <= 13 || (key >= 48 && key <= 57) || key == 44);" & vbCrLf)
        sbScript.Append("}" & vbCrLf)
        sbScript.Append("</script>" & vbCrLf)
        ...
        ...
        txt.Attributes.Add("onChange", "provinciaCP(this.value,'" & lbl.ClientID & "');")
        txt.Attributes.Add("OnKeyPress", "return soloNum(event)")
        Me.Controls.Add(New LiteralControl("<script>provinciaCP('" & txt.Text & "','" & lbl.ClientID & "');</script>"))
    End Sub

Un saludo.