| 查看: 1130 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求助：点击鼠标左键，如何能得到计算机中的系统时间 已有1人参与
|
||
| 如何编写一个小程序（什么语言都可以）：通过鼠标，在计算机屏幕任意位置点击鼠标左键一下，获取计算机的系统时间（精确到秒后面6位小数）。有没有大神知道怎么解决？ |
回复此楼» 猜你喜欢
全日制（定向）博士
已经有5人回复
-
假如你的研究生提出不合理要求
已经有10人回复
-
萌生出自己或许不适合搞科研的想法，现在跑or等等看？
已经有4人回复
-
Materials Today Chemistry审稿周期
已经有4人回复
-
参与限项
已经有3人回复
-
实验室接单子
已经有4人回复
-
对氯苯硼酸纯化
已经有3人回复
-
求助:我三月中下旬出站，青基依托单位怎么办？
已经有12人回复
-
所感
已经有4人回复
-
要不要辞职读博？
已经有7人回复
送红花一朵 
4楼2018-09-11 19:50:40
pgser
铁虫 (职业作家)
- 应助: 30 (小学生)
- 金币: 9333.3
- 散金: 10
- 红花: 17
- 帖子: 3046
- 在线: 523.6小时
- 虫号: 1263938
- 注册: 2011-04-13
- 性别: GG
- 专业: 代数学
2楼2018-09-10 14:57:08
jjdg
版主 (知名作家)
- 程序强帖: 9
- 应助: 223 (大学生)
- 贵宾: 3.926
- 金币: 51003.4
- 红花: 238
- 帖子: 7227
- 在线: 474.2小时
- 虫号: 27000
- 注册: 2003-10-21
- 专业: 药物代谢与药物动力学
- 管辖: 程序语言
【答案】应助回帖
感谢参与，应助指数 +1
|
vb中在窗体上放一个timer控件，设置Interval属性为10，代码如下 Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer Private Sub Timer1_Timer() Dim x As Long x = GetAsyncKeyState(1) If x = -32767 Then 'x返回的是16位整数，最高位为1，表明按下 Me.Print Time, '在窗体上显示时间 End If End Sub |
» 本帖已获得的红花（最新10朵）
3楼2018-09-11 00:31:26