前两天去找师傅验项目了,师傅给指出好多没有优化的地方,师傅告诉我设计软件时候一定要站在 用户的角度去设计软件,方便用户,把软件设计的简单又便捷,我们设计软件的初衷不就是这样的吗。
好了,接下来来说下我最新优化的内容 :
(1) 上篇我们介绍到了文本框限制字符,那么除了 用代码去限制字符还有一种方法,就是在控件属性去更改。
例: TextBox文本框,找到 “Maxlength”属性,设置它就可以设置文本限制字符的输入量,
在学习VB的过程中,我们要掌握好控件使用和各种性能和作用,在我们以后的学习中用处会很大。
我们在来看看 ComBox控件怎么去禁止输入字符 这个控件简单的方法也是去更改属性, 找到Style属性,改为Dropdownlist, 这样文本框就不会在输入字符了。
多去了解控件的使用和方法,这样才能玩转VB!
(2)窗体自动清空文本框内容
我们在修改密码的时候关闭窗口再进去,或者有时候进去,文本框内容还有显示的密码和记录,这时候站在用户的角度我们就要给它去添加代码,设置成自动清空文本框。
在确定键添加代码如下:
Dim ctrl '定义变量
...
For Each ctrl In Me.Controls
If TypeOf ctrl Is TextBox Then ’在文本框里进行运算
ctrl.Text = "" ’运行完之后文本框为空
End If
Next
(3)修改课程重复问题
在设置课程的时候,如果点击一科的课程,就会反复,一直添加,一科的数目不能添加那么多,说一我们添加代码去s
代码如下:
Private Sub cmdAdd_Click()
Dim i As Integer '定义两个变量
Dim n
For i = 0 To listSelectcourse.ListCount - 1 '在列表中循环找一遍
n = (listSelectcourse.List(i))
Next
'判断内容是否被选中: 课程重复问题
If listAllcourse.ListIndex <> -1 Then
If Trim(listAllcourse.List(listAllcourse.ListIndex)) = Trim(n) Then
MsgBox "不能重复添加课程", 48, "警告"
Else
listSelectcourse.AddItem listAllcourse.List(listAllcourse.ListIndex)
End If
End If
在修改完代码之后,课程就不会重复的添加了,而且 还会出现提示 “不能重复添加”。
(4)日期控件的使用 (出生日期不得大于入校日期)。
首先我们点击 工程 — 部件 — Microsoft Windows Common Controls - 2 6.0 然后点击应用和确定,找到DTPicker 控件,添加到出生日期 和入校日期,并却把原先的 Text 文本框给替换掉。
代码如下:
'设置出生日期不得大于入校日期
If txtBorndate.Value >= txtRudate.Value Then
MsgBox "出生日期不得大于或等于入校日期,请您重新输入!", vbOKOnly + vbExclamation
txtBorndate.SetFocus '设置个两个窗体焦点
txtRudate.SetFocus
Exit Sub
End If
注意: 我是把 DTPBorndate,换成了txt的格式,注意把每个对象名称改一下,让属性对象和代码互相匹配,还有后面的后缀名称,改成 .Value
If txtBorndate.Value >= txtRudate.Value Then
(5)窗体大小的设置
在MDI子窗体是不能设置 “屏幕中心”,“所有者中心” 等内容的,需要在窗体里加写代码才可以让窗体大小改变。
这样的窗体看着很别扭,和屏幕一点都不协调,而且每次还得下拉窗体才能展示全部,
我们来更改下窗体代码的大小
代码如下:
Private Sub Form_Load()
'让窗体的高和宽等于屏幕的大小 Screen 屏幕的意思
frmModifyuserinfo.Width = Screen.Width ’让窗体宽度和屏幕相等
frmModifyuserinfo.Height = Screen.Height ’让窗体的高度和屏幕相等
End Sub
这样的话窗体就能和屏幕居中ba