学会信息系统优化

  最近学习计算机总会遇到一些问题，昨天下午开师徒会，晚上的计算机问题讲解，关于陈老师很米老师的讲解让我记忆深刻，老师的说话艺术令人折服，你说的不懂就是懂了，当你还是一个计算机初学者的时候，你总是会觉得自己这个不懂，那个不会，可是你要知道，你不可能一生下来就会跑的，当你说你不会的时候，其实你已经去开始了解了，当然记住眼前的问题，一步步的迈进，不断的行动，每天对自己做一个真实的反馈，合理的自我管理，玩着玩着就行了！目标就在那，去完成他！

**********************************************************************************************

   关于学生的优化与完善这是我想法：不知道该如何优化，或者.说我们的大脑有很多方式让其优化，为了方便用户，想法很奇特，但不知该如何下手。当然我就是这个样子的。两个方面的原因：1、懒，不想在网上查。2.其实我们敲的百例和红皮书可以做到对学生的部分优化，而且功能让你意想不到！下面我讲的例子可能很low，不过我觉得收获还是蛮大的

首先是对登录窗口的美化：我们互相对比

例如限制用户名和密码只能输入数字和字母:或者限定输入字母、数字的长度（建议大家仔细看看VB课本的第九章：一些关于键盘事件：关于限定字母还有数字，充分的利用了ASCII码表）

 

起初我用到的方法是：

直接在文本框内对用户进行说明：“只能输入数字和字母”当点击文本框事件是文字消失，但是这个过程根本无法实现对字符的限制作用，只是一个提醒作用。

 '对文本框输入的内容进行限制

   Private Sub Form_Load()

      txtUserName.Text= "只能输入字母或数字"

     End Sub

   '对文本框字体颜色进行限制

    txtUserName.ForeColor = RGB(255, 255, 255)

    txtPassword.ForeColor = RGB(255, 255, 255)

   '对文本框字体大小进行限制

    txtUserName.Font = 28

    txtPassword.Font = 28

 Private SubtxtPassword_Click()

 txtUserName.Text .Text= ""

 End Sub

 

另一种方法是隐藏一个标签框，当点击文本框输入字符是可以对用户进行提醒，当然我想也可以对标签框进行显示时间的限制，显得更加有逼格，当然这样的唯一坏处和方法一一样，只是对文本框输入字符进行了限制说明，并没有起到输入限制个别字符的作用。这段代码如下

 

Private SubForm_Load()

       label1.caption="只能输入字母或数字"

       label1.visible=false

End Sub

'触发文本框时，标签框的内容显示2秒钟，然后自动消失

Private SubtxtPassword_Click()

 Label1.Visible = True

 Timer1.Interval = 2000

 Timer1.Enabled = True

End Sub

 

Private SubTimer1_Timer()

   Label1.Visible = False

   Timer1.Enabled = False

End Sub

 

当然我的想法到这就结束了，验项目的时候师父说你这完全是在欺骗用户，你不傻，可是有的用户会很傻，即使你提醒他们如果不小心输入错误后该如何？接着看了VB课本第九章，该段代码实现了对用户的限制，可是仍然有很多的弊端，代码如下：（主要运用了键盘事件和ASCII码表）

 

Private SubtxtUserName_KeyPress(KeyAscii As Integer)

If ((KeyAscii >=48 And KeyAscii <= 57) Or (KeyAscii >= 65 And KeyAscii <= 90) Or(KeyAscii >= 97 And KeyAscii <= 122)) = False Then

KeyAscii = 0

End If

 

当然这段代码就直接对程序起到作用，可是无法单个删除删除输入字符于是：（下面代码可以解决着这种情况）

If KeyAscii = 8 Then

    txtUserName.Text = Left(txtUserName.Text,Len(txtPassword))

    txtUserName.SetFocus

    txtUserName.SelStart = Len(txtUserName) + 1

    End If

   

结果不能随意删除任何字符导致再次陷入僵局，真心感觉服务用户不是一件简单的事情：下面我来给大家介绍一下QQ注册登录用户的的好处

首先在昵称和密码的位置任何字符都是可以输入的，但是如果你不符合输入的要求就无法登录或者注册成功，一方面这样解决了用户可以随意输入，前提是满足要求，只有这样才可以注册成功

求助百度没有找到方法于是找小伙伴求助

PrivateSub txtPassword_Change()

Dim iAs Integer

IftxtUserName.Text = "" Then

MsgBox "请输入用户名", vbOKOnly + vbExclamation, "警告"

txtUserName.SetFocus

End If

‘对用户输入字符长度和输入符号类型的限制

For i= 1 To Len(txtPassword.Text)

IfLen(txtPassword.Text) >= 10 Then

txtPassword.Text= ""

MsgBox "密码不会超过10位，请重输", vbOKOnly + vbExclamation, "警告"

 

ElseIf txtPassword.Text <> "" TheN

If((Asc(Mid(txtPassword.Text, i, 1)) < 48) Or ((Asc(Mid(txtPassword.Text, i,1)) > 57) And (Asc(Mid(txtPassword.Text, i, 1)) < 65)) Or((Asc(Mid(txtPassword.Text, i, 1)) > 90) And (Asc(Mid(txtPassword.Text, i,1)) < 97)) Or (Asc(Mid(txtPassword.Text, i, 1)) > 122)) Then

MsgBox "密码只能由数字和字母组成，请重输", vbOKOnly + vbExclamation, "警告"

txtPassword.Text= ""

End If

End If

Next i

EndSub

 

这样虽然没有QQ用户注册登录那么高大，但是基本问题还是解决了。今天的部分总结就先到这里了，虽然只有一个知识点，不过后面我还要持续的更新,待续！