学生信息管理系统的最后一个阶段便是界面优化，这一阶段让我们的成果更加完善，是我们学习过程中很重要的一个环节。我在此过程遇到很多问题，下面是一个简单的总结。

1.回车键功能当于单击按钮

(1)设置属性：按钮的default设为真

窗体的keypreview设为真

(2)添加代码：

PrivateSubForm_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 ThenCommand1.Value = True

End Sub

2. .登陆界面禁止输入特殊字符

PrivateSub txtUserName_KeyPress(KeyAscii As Integer)

Select Case KeyAscii

Case 48 To 57

Case 65 To 90

Case 97 To 122

Case 8

CaseElse

KeyAscii = 0

End Select

EndSub

3.comboBox控件：只能用下拉框选择，用户不能自己写入

方法1：属性：ComboBox的Style设为2-DropdownList

方法2：属性：ComboBox的Style设为0，但需要添加如下代码

PrivateSubCombo1_KeyPress(KeyAscii As Integer)

KeyAscii= 0

EndSub

4.vb中的文本框中只允许输入数字

(1)设置属性：限制文本框可以输入的最大字符数（MaxLength）

(2)添加代码： 限制ascii码，拒绝非数字、退格、回车的输入

PrivateSub txtSID_KeyPress(KeyAscii As Integer)

If KeyAscii = 8 Then Exit Sub

Select Case KeyAscii

Case 48 To 57,8,13

Case Else

KeyAscii = 0

End Select

End Sub

5.vb中的文本框中只允许输入文本

Private Sub txtName_KeyPress(KeyAscii As Integer)

If (KeyAscii < 0) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122) Or (KeyAscii = 8) Then

Else

MsgBox "姓名由字母和汉字组成",vbOKOnly,"提示"

KeyAscii = 0

txtName.SelStart = 0

txtName.SelLength = Len(txtName.Text)

End If

End Sub

小结：以上系统优化均涉及到ascii码相关知识，主要通过限制ascii码，使键盘具体键位与VB程序设计实现更完美的结合，程序更加完善。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!