| 查看: 1313 | 回复: 3 | ||
| 当前只显示满足指定条件的回帖，点击这里查看本话题的所有回帖 | ||
[求助]
求助：点击鼠标左键，如何能得到计算机中的系统时间 已有1人参与
|
||
| 如何编写一个小程序（什么语言都可以）：通过鼠标，在计算机屏幕任意位置点击鼠标左键一下，获取计算机的系统时间（精确到秒后面6位小数）。有没有大神知道怎么解决？ |
回复此楼» 猜你喜欢
售SCI一区T0P文章，我:8O.55.1.O.54,科目全,可伽急
已经有10人回复
-
Ei源刊怎么投
已经有3人回复
-
面上没中，邀请各位路过的虫友分析一下分数
已经有10人回复
-
广西大学-广州大学招聘博士后 欢迎广大优秀人才！！！
已经有6人回复
-
两块石头
已经有5人回复
-
哈尔滨工业大学韩晓军教授课题组招收2027年硕士推免生及博士研究生
已经有3人回复
-
找导师
已经有8人回复
-
国社科又开始会评了，不知道这次命运如何
已经有14人回复
-
科研人应该花精力去思考如何解决问题，而不是去凝练问题
已经有14人回复
-
要骂人了，新模版改版就是要淡化问题凝练这种虚的东西，结果有个评委还在说凝练得不够
已经有17人回复
送红花一朵 
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
【答案】应助回帖
感谢参与，应助指数 +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