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

Elsa~

于 2018-04-30 21:07:03 发布

阅读量2.6k

点赞数

分类专栏：【学生信息管理系统】文章标签：学生管理系统

本文链接：https://blog.csdn.net/Elsa15/article/details/80152092

版权

最近终于可以静下心来敲学生系统的代码了，作为全职的我现在还在学生系统阶段徘徊，很是惭愧啊，看来之前是对自己太仁慈了，以后要努力咯。不过再怎么着急也要脚踏实地的来做,下面是我在敲写代码过程中的一些小结点，分享给大家，希望对小伙伴有所帮助。

一、判断文本框是否为空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.SetFocus
    End If