前两天去找师傅验项目了，师傅给指出好多没有优化的地方，师傅告诉我设计软件时候一定要站在 用户的角度去设计软件，方便用户，把软件设计的简单又便捷，我们设计软件的初衷不就是这样的吗。
好了，接下来来说下我最新优化的内容 :
(1) 上篇我们介绍到了文本框限制字符，那么除了 用代码去限制字符还有一种方法，就是在控件属性去更改。
例： TextBox文本框，找到 “Maxlength”属性，设置它就可以设置文本限制字符的输入量，
在学习VB的过程中，我们要掌握好控件使用和各种性能和作用，在我们以后的学习中用处会很大。
我们在来看看 ComBox控件怎么去禁止输入字符 这个控件简单的方法也是去更改属性， 找到Style属性，改为Dropdownlist, 这样文本框就不会在输入字符了。
多去了解控件的使用和方法，这样才能玩转VB！
(2)窗体自动清空文本框内容
我们在修改密码的时候关闭窗口再进去，或者有时候进去，文本框内容还有显示的密码和记录，这时候站在用户的角度我们就要给它去添加代码，设置成自动清空文本框。
在确定键添加代码如下：
Dim ctrl '定义变量
...
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then ’在文本框里进行运算
ctrl.Text = "" ’运行完之后文本框为空
End If
Next
(3)修改课程重复问题
在设置课程的时候，如果点击一科的课程，就会反复，一直添加，一科的数目不能添加那么多，说一我们添加代码去s
代码如下：
Private Sub cmdAdd_Click()
Dim i As Integer '定义两个变量
Dim n
For i = 0 To listSelectcourse.ListCount - 1 '在列表中循环找一遍
n = (listSelectcourse.List(i))
Next
'判断内容是否被选中： 课程重复问题
If listAllcourse.ListIndex <> -1 Then
If Trim(listAllcourse.List(listAllcourse.ListIndex)) = Trim(n) Then
MsgBox "不能重复添加课程", 48, "警告"
Else
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
End If在修改完代码之后，课程就不会重复的添加了，而且 还会出现提示 “不能重复添加”。
(4)日期控件的使用 （出生日期不得大于入校日期）。
首先我们点击 工程 — 部件 — Microsoft Windows Commom Controls - 2 6.0 然后点击应用和确定，找到DTPicker 控件，添加到出生日期 和入校日期，并却把原先的 Text 文本框给替换掉。
代码如下：
'设置出生日期不得大于入校日期
If txtBorndate.Value >= txtRudate.Value Then
MsgBox "出生日期不得大于或等于入校日期，请您重新输入！", vbOKOnly + vbExclamation
txtBorndate.SetFocus '设置个两个窗体焦点
txtRudate.SetFocus
Exit Sub
End If注意： 我是把 DTPBorndate,换成了txt的格式，注意把每个对象名称改一下，让属性对象和代码互相匹配，还有后面的后缀名称，改成 .Value
If txtBorndate.Value >= txtRudate.Value Then
(5)窗体大小的设置
在MDI子窗体是不能设置 “屏幕中心”，“所有者中心” 等内容的，需要在窗体里加写代码才可以让窗体大小改变。
这样的窗体看着很别扭，和屏幕一点都不协调，而且每次还得下拉窗体才能展示全部，
我们来更改下窗体代码的大小
代码如下：
Private Sub Form_Load()
'让窗体的高和宽等于屏幕的大小 Screen 屏幕的意思
frmModifyuserinfo.Width = Screen.Width ’让窗体宽度和屏幕相等
frmModifyuserinfo.Height = Screen.Height ’让窗体的高度和屏幕相等
End Sub这样的话窗体就能和屏幕居中ba
(6) 把登陆键设置成默认登陆键盘
我们都知道，QQ等很多软件都可以按下Enter键就可以登陆，那么我的登陆也可以，其实很简单，只需要简简单单的一一步就可以了。
首先我们打开我们窗体的登陆界面，然后点击登陆键（Command）的属性，然后找到 “Cancel” 属性，然后把 False 设置成 True,这样就可一把 Enter键给设置成默认的登陆键了。