Advertisement

学生信息管理系统：班级信息增加-函数解析部分

阅读量：

最近终于有时间静下心来专注于敲击学生系统的代码了，在这个阶段作为一名仍在学生系统工作中的全职人员来说显得有些无奈但也不算过分毕竟曾经也经历过同样的困惑与迷茫不得不承认自己有些过于 lenient（宽容）于自己的要求后来才明白脚踏实地的重要性为此给自己定下了新的目标那就是未来的工作中一定要更加努力一些在日常工作中积累了一些经验心得分享给大家希望对大家有所帮助

一、判断文本框是否为空Testtxt

复制代码 
     If Not Testtxt(txtClassno.Text) Then       '防止输入框为空
        MsgBox "请输入班号！", vbOKOnly + vbExclamation, "警告"
        txtClassno.SetFocus
        Exit Sub
    End If

二、判断文本框内容是否为数字IsNumeric

复制代码 
    If Not IsNumeric(Trim(txtClassno.Text)) Then                  '班号得为数字
        MsgBox "请输入数字！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        txtClassno.SetFocu

全部评论 (0)

还没有任何评论哟~

相关文章推荐