【学生】优化-小杂烩

优化1-点击enter直接进入系统

在按钮控件中，Default属性如果设置为 TURE，则按钮的边框就会变黑，这时，无论焦点在哪个控件上，只要按下回车键就会触发这个按钮的 Click 事件代码。

优化2-性别框只选设置

style=0时，下拉式选择框。可下拉和收起。可输入

style=1时，不能收起或下拉，但可以输入

style=2时，外观和style=0时一样，但只能选择

优化3-让List列表拒绝添加重复信息

Private Sub cmdAdd_Click()    Dim selectcourse As Integer    Dim i As Integer    Dim j As Integer    For selectcourse = 0 To ListAllcourse.ListCount - 1    If ListAllcourse.Selected(selectcourse) = True Then        ListSelectcourse.AddItem ListAllcourse.list(ListAllcourse.ListIndex)            '  向listselectcourse列表中添加课程            For i = 0 To ListSelectcourse.ListCount - 1                For j = i + 1 To ListSelectcourse.ListCount                '判断在list列表中是否有相同的名称                If ListSelectcourse.list(i) = ListSelectcourse.list(j) Then                    ListSelectcourse.RemoveItem j                    MsgBox "已添加此课程！", vbOKOnly + vbExclamation, "提示"                    Exit Sub                End If            Next j        Next i    End IfNext selectcourseend sub

优化4-日历设置

看了大玲子的博客，才发现日历还可以这么方便。

1、添加控件

在工程-部件 中添加Microsoft Windows common controls-2 6.0, 然后可以添加DTPicker控件也可以添加MonthView控件，最终的实现结果是一样的。 

设置了一下UpDown属性，这样更方便，不用用一个一个去点。

2、修改代码

原来的txtborndate.text就相当于现在的DTPickerborn.value。

3、加判断优化

在录入信息的时候，可能出现还没出生就入学的笑话，对于这个小问题，让我们的系统给判断一下就可解决。只需

在“确认添加”事件下添加几行代码。

If CDate(DTPickerRu.Value < DTPickerBorn.Value) Then        MsgBox "出生日期不能小于入学日期！请重新输入！", vbOKOnly + vbExclamation, "警告"        Exit Sub    End If

优化5-固定窗体大小设置

在窗体窗口调整窗体的大小时明明修整的挺合适的，到了运行窗体时，窗体大小自动显示的长宽比例又不一了。那么如何才能固定窗体大小，不在让它变化呢，其实很简单，只要设置BorderStyle属性将窗体设置为固定大小，以便用户无法随意修改窗体的大小了。

关于formBorderStyle属性更多的介绍，如图

了解了formBorderStyle的这些值得作用，其实想要固定窗体大小，只要选择带有fixed的就好，自己想要什么样的效果，可以试一试。

优化6-text框中仅数字输入，限制长度设置

当我们在输入学号时，竟然汉字可以输入，那怎么避免汉字输入呢？只需在KeyPress事件中,对键值的KeyAscii值判断即可

Private Sub txtclassno_KeyPress(KeyAscii As Integer)    Const xStr As String = "0123456789"    KeyAscii = IIf(InStr(xStr & Chr(8), Chr(KeyAscii)), KeyAscii, 0)End Sub

我们都知道不管是手机还是座机，号码都是11位的，所以我们要限定一下电话号码的位数，只需添加几行判断代码。

If Not Len(txtTel.Text) = 11 Then        MsgBox "请输入11位电话号码！", vbOKOnly + vbExclamation, "警告"        txtTel.SetFocus        Exit Sub    End If

其次，我们还可以text属性中设置一下Maxlength的数值为11.

优化7-密码输入错误3次提醒设置

miCount = miCount + 1     If miCount > 3 Then           Unload Me           MsgBox "你已经超过允许验证次数！", vbOKOnly + vbExclamation, "提示"           Exit Sub     End If

在错误中成长，在优化中进步。

后期还会有更新哦

更多优化请参考优秀博客http://blog.csdn.net/mirabellezwh/article/details/77017218