DEMO:输入有效性检查

这个例子主要还是判断输入的文本是否符合要求。具体的还是运用了Validate事件和CausesValidate属性来判断的。

 

设计界面：

注意事项：

①帮助说明按钮的causesvalidate属性设置为false

②判断扣款小于基本工资和精贴之和的时候应该放在最后判断

 

功能代码：

Option Explicit

Private Sub Command1_Click()
      Form2.Show
End Sub

Private Sub Command2_Click()
      If CSng(Textkk.Text) < CSng(Textjbgz.Text) + CSng(Textjt.Text) Then
           MsgBox "ok!"
      Else
           MsgBox "您输入的信息有误，请重新输入！"
      End If
End Sub

Private Sub Form_Load()
    CobSex.ListIndex = 0
    Combo2.ListIndex = 0
    Combo3.ListIndex = 0
    TextDate = Date
End Sub

Private Sub TextDate_validate(cancel As Boolean)
    If Not IsDate(TextDate.Text) Then
        cancel = True
    Else
        TextDate.Text = Trim(TextDate.Text)
    End If
End Sub

Private Sub Textjbgz_validate(cancel As Boolean)
    Textjbgz.Text = IIf(Textjbgz.Text = "", "0.0", Trim(Textjbgz.Text))
    If Not IsNumeric(Textjbgz.Text) Then
        cancel = True
    End If
End Sub

Private Sub Textjt_validate(cancel As Boolean)
    Textjt.Text = IIf(Textjt.Text = "", "0.0", Trim(Textjt.Text))
    If Not IsNumeric(Textjt.Text) Then
        cancel = True
    End If
End Sub

Private Sub Textkk_validate(cancel As Boolean)
    Textkk.Text = IIf(Textkk.Text = "", "0.0", Trim(Textkk.Text))
    If Not IsNumeric(Textkk.Text) Then
        cancel = True
    End If
End Sub

Private Sub TextName_Validate(cancel As Boolean)
    If (TextName.Text = "") Then
        cancel = True
    Else
        TextName.Text = Trim(TextName.Text)
    End If
End Sub