一、不同限制类型

（1）只能输入数字

If KeyAscii = 8 Then Exit Sub
If KeyAscii < 48 Or KeyAscii > 57 Then KeyAscii = 0

（2）限制数字大小，这个适合成绩对话框

Private Sub txtResult_Change()
On Error Resume Next
If Val(Trim(txtResult.Text)) > 100 Then
MsgBox "输入数字过大，请重新输入"
txtResult.Text = ""
End If
End sub

（3）不能输入特殊字符

Select Case KeyAscii
Case -20319 To -3652
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case 8
Case Else
KeyAscii = 0
End Select

（4）限制粘贴

If KeyCode = vbKeyV And Shift = vbCtrlMask Then
txtPassword.Enabled = False
Clipboard.Clear
txtPassword.Enabled = True
End If

（5）限制很多

Private Sub text1_KeyPress(Index As Integer, KeyAscii As Integer)
Select Case KeyAscii
Case 48 To 57
Case 65 To 90
Case 97 To 122
Case 8
Case Else
KeyAscii = 0
End Select
End Sub

（6）限制特殊字符、数字、空格，只能输入汉字和字母

Private Sub txtCoursename_KeyPress(KeyAscii As Integer)
If KeyAscii < 0 Or KeyAscii = 8 Or KeyAscii = 13 Then
ElseIf Not Chr(KeyAscii) Like "[a-zA-Z]" Then
KeyAscii = 0
End If
End Sub

提示密码剩余次数

密码只可以输入三次，但是要提醒用户！我们可以加如下代码。

    If miCout = 1 Then
        MsgBox "您还有两次机会！", 48, "警告"
    Exit Sub
    End If
      
    If miCout = 2 Then
        MsgBox "您还有一次机会！", 48, "警告"
    Exit Sub
    End If
    
    If miCout = 3 Then
        MsgBox "即将关闭程序！", 48, "警告"
        Me.Hide
    End If
    Exit Sub

修改密码

加入输入旧密码的代码

    If Trim(txtOldPassword.Text) = Trim(mrc.Fields(1)) Then

    Else
        MsgBox "原密码输入不正确，请重新输入！", 48, "警告"
        txtOldPassword.SetFocus
        txtOldPassword.Text = ""
        Exit Sub
    End If

入校日期早于出生日期

    Dim borndate As Date  
    Dim getdate As Date'定义变量  
    borndate =Trim(txtBorndate.Text)  
    getdate =Trim(txtRudate.Text)  
    If getdate<=borndate then'进行比较  
     MsgBox"入学时间不能早于出生时间，请重新输入",vbOKOnly + vbInformation,"警告"  
     txtRudate.SetFocus  
     Exit Sub  
    End If 

二、控件限制

ComboBox

Label控件去掉底框

TextBox字符长度限制

     属性栏里的Maxlength更改想要的字数

三、VB中DTPicker日期控件的运用如何加载？

   VB默认的控件栏中是没有DTpicker日期控件的添加过程：工具——部件——控件——“Microsoft Windows CommonControls-2.6.0”——应用——确定

在我们工具箱就会显示出这么几个控件，日期添加这两个都是可以使用的，一个是MonthView另一个就是DTPicker，这里建议大家使用第二个。

添加控件，把之前的给替换掉但是不要忘记吧新添加上的属性名称改一下，要不和代码里不匹配。

之前的被替换的TextBox控件名称虽然改了，但是运行时还会报错，运行一边的时候错误就会出现在这里，这是只要把后缀点后边的Text更改成Value就可以了。
查一下DTPicker控件的用法吧

已设checkbox属性为true，如下不可执行：
If DTPicker3.Value = "" Then
DTPicker3.Value = "2012-09-01"