注册
登录
| 关键词： nbsp 输入 Text KeyAscii 程序 代码 Sub Case 数字 Navigate |
看了05年12期见习刺客写的“用delphi.vb asp+html+js和PHP编写QQ强制聊天器”后.自己用他代码也编译了一个.不知道怎么就是编译不成..可能是我VB库不全的原因把..于是自己就动手作了一个.不过不用像他那样写那么长的声明.并且所用控件也不同.没有看过的可以看下12期的杂志.见习刺客用了ShellExecute这里我用了Navigate.完整代码Private Sub Command1_Click()Dim IE As New InternetExplorer IE.Visible = True IE.Navigate ("http://wpa.qq.com/msgrd?V=1&Uin=" + Text1.T ... Site=www.ciker.org&Menu=yes")End IfEnd Sub不过要先声明一下.Option Explicit不过光有这些好象还不够..我们来给它加个限制..让text1在输入非5位和9位数字或者什么都不输入的时候提示错误.If Len(Text1.Text) = 0 Or Len(Text1.Text) < 5 Or Len(Text1.Text) >= 10 ThenMsgBox "请输入正确的QQ号码", 16, "输入有误^_^"以上代码只是检查输入是否为5-9位之内的数字的..如果.在text1里输入汉字或字母的话..程序会出错.接下来.让程序实现..只能输入数字..而且数字在输入错误的时候可以退格删除.代码如下Private Sub text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 Case Is < Asc(0) '48 KeyAscii = 0 Case Is > Asc(9) '57 KeyAscii = 0 End SelectEnd Sub整个程序的完整代码如下.Option ExplicitPrivate Sub Command1_Click()If Len(Text1.Text) = 0 Or Len(Text1.Text) < 5 Or Len(Text1.Text) >= 10 ThenMsgBox "请输入正确的QQ号码", 16, "输入有误^_^"ElseDim IE As New InternetExplorer IE.Visible = True IE.Navigate ("http://wpa.qq.com/msgrd?V=1&Uin=" + Text1.T ... Site=www.ciker.org&Menu=yes")End IfEnd SubPrivate Sub Command2_Click()EndEnd SubPrivate Sub text1_KeyPress(KeyAscii As Integer) Select Case KeyAscii Case 8 Case Is < Asc(0) '48 KeyAscii = 0 Case Is > Asc(9) '57 KeyAscii = 0 End SelectEnd Sub最终程序运行界面如图1..程序美化做的不好..需要的话.可以自己修改.源程序已打包提供.程序实现很简单..欢迎大家跟我共同讨论!文件下载地址http://www.ciker.org/attachments/month_0607/gd6k_qq.rar |
|
声明：文章版权归原作者所有 部分文章转自互联网 如有侵权请联系
[邮箱地址] 删除
|
