高考问答英雄联盟新的法师天赋:请问用VF编写一个有关密码验证的表单该怎么写代码，谢谢了
来源：百度文库 编辑：高考问答 时间：2024/05/03 12:32:41
5月6日 11:51 在窗体form1上添加一个textbox和commandbutton控件，如果textbox的值是123则显示另外一个窗体(form2.show)如果错误则用msgbox显示密码错误.设置Textbox的PasswordChar为*.
Option Explicit
Const vbKeyDecPt = 46
Private Sub Command1_Click()
If Val(Text1) = 123 Then
Form2.Show
Me.Hide
Else
MsgBox "密码不正确,请重新输入", vbExclamation + vbOKOnly, "提示"
Text1.SetFocus
Text1.SelStart = 0
Text1.SelLength = Len(Text1)
Exit Sub
End If
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) '限制textbox只能输入数字
If (KeyAscii >= vbKey0 And KeyAscii <= vbKey9) Or KeyAscii = vbKeyDecPt Or KeyAscii = vbKeyBack Then
Exit Sub
ElseIf KeyAscii = vbKeyReturn Then
Call Command1_Click
Else
KeyAscii = 0
End If
End Sub
yj2352001-高级经理 六级提给的全部是Visual Basic的代码,可以肯定的说在Visual FoxPro中是运行不起的,不信一试便知