假如在form1上,5秒钟之内连续按下abcdefg,则msgbox "连续",这样的代码怎么写?
解决方案 »
- Excel VBA 如何实现改变单元格内容后自动更新到数据库?不知道代码哪里有问题,请指教
- 小弟做的这个“修改”按钮该如何改进呀?(已附加代码)
- 关于使用VBadvanced
- 关于编写屏幕广播程序的问题。(请问哪里有现成的vb源码下载呢)
- 怎么在主码重复的情况下,继续读入数据,并插入主码不重复的数据到表中
- 在VB中操作Excel表格的问题。
- 如何用ADODC控件打开加密的ACCESS文件?
- 急!!菜鸟问题(关于向C写的动态库中传入和传出BYTE ARRAY的问题。。。)
- 在数据库中存储用户的密码,如何实现其安全性?
- VB6:一个关于MSFlexgrid控件问题
- VB属性窗口
- 请教变量在SQL里的用法
Dim STimer$, s$
Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 97 Then STimer = Now: s = ""
s = s & KeyAscii
If DateDiff("s", STimer, Now) <= 5 And s = "979899100101102103" Then MsgBox "连续"
End Sub