昨天调试代码的时候遇到了一个问题,查阅了很多资料都没有解决,有点小不甘心,直接厚着脸皮的问了师哥,经过师哥非常非常详细的讲解,解决了这个bug……在解决完这个bug之后,又聊了一些关于这个系统的其他问题,师哥建议我可以尝试一下将窗体里要输入出生年月以及入学时间的控件改为日历形式,这样可以让这个窗体更加的人性化。通过慢慢尝试,终于完成了这个小小的改动☺
-
添加方式:工程->部件->Microsoft windows common controls-2 6.0
-
选择左侧工具箱中名为DTPicker的控件,添加上控件后,右击控件->属性,可以设置字体、颜色等,大概是下面这个亚子
- 添加完之后还没有结束呀…按照正常的逻辑,出生日期应该小于入学日期,所以还要将原来的部分代码改为如下所示代码,改完这部分代码后,还需要将与原来text控件相关代码更改一下呦(小细节)
If DTPicker1.Value >= DTPicker2.Value Then
MsgBox "出生日期不能大于等于入校日期,请重新输入!", vbOKOnly + vbExclamation, "警告"
Else
If DTPicker2.Value >= Date Then
MsgBox "入校日期不能大于当前日期,请重新输入!", vbOKOnly + vbExclamation, "警告"
Else