其实,机房收费系统的优化在很多方面是和学生信息管理系统是一样,但是也有很多事不一样的
先是关于限制文本框输入的内容:
其实也就是一串代码的事
Private Sub txtUserName_KeyPress(KeyAscii As Integer)
'限制输入内容
If KeyAscii = 46 And Not CBool(InStr(txtUserName, ".")) Then Exit Sub
If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then
KeyAscii = 0
MsgBox "请输入数字!", vbOKOnly + vbExclamation, "提示"
End If
End Sub
这样这个问题就解决了。(限制的结果是只能输入数字)
再有就是限制文本框输入长度的问题:当然第一种方法就是修改文本框的MaxLength属性,修改的结果就是这个属性值为多少,最长输入的内容就是多少;还有另一种方法就是在Change事件中编写一串代码:
Private Sub Text2_Change()
If Text2.Length >= 11 Then '判断是否超出长度范围
MsgBox "输入长度超出范围,请重新输入", , "提示"
Text2.Text = "" '清空文本框内的内容
Text2.SetFocus '文本框聚焦
End If
End Sub
未完……