前言

学生管理系统完成后，接下来就是优化的时间了，我一共进行了三次优化，随着优化的深入，我收获到了很多的知识，下面给大家分享一下我的收获。

主要内容

1.文本框的格式限制和输入问题

程序的设计尽量全面，减少用户犯错误的概率，而文本框的格式限制正好可以做到这一点，通过代码和控件属性的设置来提高用户操作的正确率。

（一）修改文本框的MaxLength属性，同时修改数据库表的Char（工具-选项-设计器-允许修改）就可以设计文本框的输入位数上限

（二）限制特殊字符

Private Sub txtUserName_KeyPress(KeyAscii As Integer)
    Dim cTemp As String
    cTemp = "`~!@#$%^&*()-=_+[]{};:'|<>/?.‘“”’、，。——+（）《》？,~·……￥！：；【】" & """ '禁止输入特殊的字符"
    If InStr(1,cTemp,Chr(KeyAscii)) <> 0 Then KeyAscii = 0
End Sub

（三）Combox框只允许下拉选中

修改style属性 2

（四）只能输入文字

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  

2.窗体的优化

（二）美化窗体的背景，添加IMAGE控件，修改Picture属性添加图片，添加代码。

imgMain.Move 0,me.Width,me.Height

（三）修改控件字体，修改控件对齐方式。

通过修改Alignment属性和修改Font属性

3.日期问题

受别人博客的启发，我也对日期问题的优化进行了优化，程序的设计要求让程序更加快捷，简单地达到用户的目的，而利用控件代替文本框输入可以减少用户操作，提高用户体验。

（一）引用相关控件

添加DTPicker控件

（二）添加txtbox控件，初始值为默认，这样让用户看起来更加舒服。

小结

这次优化让我摆脱了一直站在程序员的角度看问题，应该更加站在用户的角度，去提高用户的体验度。

（编辑：李大同）

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