RT
解决方案 »
- This function is not included in this version of jmail jmail
- vb webbrowser里点击超链接???
- VB调用c#.net的tlb后程序无响应。。。
- 通过PC连接GPRSMODEM发短信接收到中文是乱码?
- ActiveForm 问题,急!!!!!!!
- VB6支持水晶报表10吗?
- 如何合并两个recordset?
- VB中是否有VFP中宏的概念?
- 如何用ado2.5对access2000进行压缩、备份
- 如何在VB中嵌入excl文件?100块悬赏!
- 建立SQL数据库问题????
- 为什么我设置的interger变量在进行数据库操作的时候会提示vchar变量不能转换成int变量?
X As Long
Y As Long
End Type
Public Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '读取鼠标位置
Dim Pmouse As POINTAPI '读取到的当前鼠标位置GetCursorPos Pmouse在变量中存取Pmouse 的位置,然后在指定的时间段内比较
Private Declare Function GetLastInputInfo Lib "user32" (plii As LASTINPUTINFO) As Boolean
Private Declare Function GetTickCount Lib "kernel32" () As Long
Private Type LASTINPUTINFO
cbSize As Long
dwTime As Long
End TypePrivate Sub Form_Load()
Timer1.Interval = 1
Timer1.Enabled = True
End SubPrivate Sub Timer1_Timer()
Dim lii As LASTINPUTINFO
lii.cbSize = Len(lii)
If GetLastInputInfo(lii) Then
If (GetTickCount() - lii.dwTime) >= 10000 Then '空闲10秒(10000毫秒)就卸载窗体
Unload Me
End If
End If
End Sub