vb设置验证码

增加一个Text3 和LabelYZM 一个Command2

Private Sub Command2_Click() '刷新验证码

randomize

LabelYZM.caption=fix(rnd*8999+1000)

End Sub

Private Sub Command1_Click()

If Text1.Text = "123" And Text2.Text = "123" and text3.text=LabelYZM.caption Then

Dim a As Integer

a = MsgBox("登陆成功！", 0, "")

Form3.Show

Unload Me

Unload Form1

Else

a = MsgBox("输入错误！", 0, "")

call Command2_Click()

End If

End Sub

具体如下：首先在TextBox控件中加一个属性事件:<asp:textbox class="Text"onkeypress="if (event.keyCode <48 || event.keyCode 57) event.returnValue = false"id="txtY_Revenue" style="TEXT-ALIGN: right" runat="server" Width="90%" MaxLength="12"</asp:textbox说明： 此方法控制TextBox只输入数字：0~9，提供一种思路补充:1.取消按钮按下时的虚线框在input里添加属性值 hideFocus 或者 HideFocus=true2.只读文本框内容在input里添加属性值 readonly3.防止退后清空的TEXT文档(可把style内容做做为类引用)<INPUT style=behavior:url(#default#savehistory)type=text id=oPersistInput4.ENTER键可以让光标移到下一个输入框<input onkeydown="if(event.keyCode==13)event.keyCode=9"5.只能为中文(有闪动)<input onkeyup="value=value.replace(/[ -~]/g,'')" onkeydown="if(event.keyCode==13)event.keyCode=9"6.只能为数字(有闪动)<input onkeyup="value=value.replace(/[^\d]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"7.只能为数字(无闪动)<input style="ime-mode:disabled" onkeydown="if(event.keyCode==13)event.keyCode=9" onKeyPress="if ((event.keyCode<48 || event.keyCode57)) event.returnValue=false"8.只能输入英文和数字(有闪动)<input onkeyup="value=value.replace(/[\W]/g,'') "onbeforepaste="clipboardData.setData('text',clipboardData.getData('text').replace(/[^\d]/g,''))"9.屏蔽输入法<input type="text" name="url" style="ime-mode:disabled" onkeydown="if(event.keyCode==13)event.keyCode=9"10. 只能输入 数字，小数点，减号（-） 字符(无闪动)<input onKeyPress="if (event.keyCode!=46 &&event.keyCode!=45 &&(event.keyCode<48 || event.keyCode57)) event.returnValue=false"11. 只能输入两位小数，三位小数(有闪动)

---