- 博客(5)
- 资源 (1)
- 收藏
- 关注
原创 必要的信息提示框——学生管理系统之用户体验
一、添加信息: 1、没有信息时,添加提示,并且限制输入 未修改前: Private Sub Form_Load() Dim txtSQL As String Dim MsgText As String 'SQL语句 txtSQL = "select * from class_Info" '执行查询操作 Set mrc = ExecuteS
2017-08-15 15:35:29 422 28
原创 checkbox 和 text 文本框连接——学生管理系统之用户体验
目的:实现勾选checkbox后,对应的text文本框可以输入,未选中不可输入。 第一步:创建Checkbox的数组,减少多次添加重复代码的麻烦。采用复制粘贴即可。并把text的enable属性设置为false 第二步:点击check进入check click事件 Dim S As Integer S = Check1(0).Index If Check1(S
2017-08-15 14:50:13 963 34
原创 限制输入和日期控件----学生管理系统之用户体验
限制输入: 一、数量限制:比如身份证只有13位。 1、text控件属性:MaxLength 输入数字几就限制输入个 2、代码: Private Sub Text1_Change() If Len(Text1) >= 16 Then MsgBox "你已经输入了16个字,已到最大字符数!" End Sub 二、形式限制:比如身份证可以输入英文字 但手
2017-08-13 10:28:10 821 37
原创 按钮默认和窗体设定----学生管理系统之用户体验
设计一个程序的灵魂,在于用户的体验是否舒畅,这些都源于细节。这是一个系列,是一个不断补充的过程。 一、默认按钮 和 焦点 一)、按钮的Default 属性设置为True:则键盘的Enter键可选择该按钮 按钮的Cancel 属性设置为True:则键盘的Esc键可选择该按钮 注:在这里当选择enter键时,任何其他焦点的空间都不接受enter键的键盘事件。这里面提到键盘事
2017-08-05 21:18:52 888 34
sshLearnV5.0--2020年1月16日.zip
2020-02-09
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人