Y大叔的筆記

'只能輸入大寫 'Dim checkjs As String 'checkjs += "<script>" 'checkjs += "function KeyPressCheckCap()" 'checkjs += "{" 'checkjs += " if (event.keyCode<65 || event.keyCode>90 )" 'checkjs += " {" 'checkjs += " if (event.keyCode>=97 && event.keyCode<=122) event.keyCode=event.keyCode-32;else event.keyCode='';" 'checkjs += " } " 'checkjs += " }" 'checkjs += "</script>" '只能輸入輸字 Dim checkjs As String checkjs += "<script>" checkjs += "function KeyPressCheckCap()" checkjs += "{" checkjs += " if (event.keyCode<65 || event.keyCode>90 )" checkjs += " {" checkjs += " if (event.keyCode>=48 && event.keyCode<=57) event.keyCode=event.keyCode;else event.keyCode='';" checkjs += " } " checkjs += " }" checkjs += "</script>" Me.RegisterClientScriptBlock("KeyPressCheckCap", checkjs) Me.TextBox1.Attributes("onkeypress") = "KeyPressCheckCap();"