vb退出软件和自动返回首页面的问题

来源：百度知道 编辑：UC知道 时间：2024/09/23 03:11:26
用VB做了一个触摸屏的软件，有好多窗口的。有两个问题请教大侠们帮帮忙。
1.怎么退出这个软件，
我的想法是设在首页面做一个IMAGE数组，为隐藏属性，共三个。分别为image0.iamge1,image2.当我按顺序点击这个image数组的三个区域时。软件自动关闭，退出到windows界面。
2.返回首页面的问题，当用户点到任何一个窗口页面时。然后用户走开了，软件在一分钟没检测到鼠标的任何操作时，自动返回到from1.即首页面。
我的想法是在首页面加一个定时器，然后设一个全局变量。因为窗口很多，我在想能不能光在from1里写代码来检测整个计算机的鼠标属性操作。其他窗口界面不用写代码就能实现这种功能。因为窗口比较多。
请大侠们给一份详细的代码，因为代码一点都不会写。
谢谢了！！！
谢谢下面的大侠不辞辛劳的回答，我的第一个问题的意思是在软件放一个IMAGE数组，共三个，当按顺序连续点击IMAGE0，image1，image2区域时，响应一个退出软件的事件，如果不是连续点击，或者不是按顺序点击这个image数组，则不响应退出事件，请问大侠这代码是怎么写的？谢谢

'对于第一个问题
'定义两个窗级级变量，用来检测用户点击 IMAGE 的顺序和时间间隔
Dim IndexN As Long, ClickT As Long

'在 Form_Load() 事件中加入
IndexN = -1'表示用户没有点击任何 Image

'在 Timer1_Timer() 事件中加入
ClickT = ClickT + 1
If ClickT > 4 Then ClickT = 0: IndexN = -1 '在规定时间内没有点击 Image，复位为起始状态

'Image 单击事件这样写：
Private Sub Image1_Click(Index As Integer)
If Index - IndexN = 1 Then'顺序点击才有有效
If Index = 2 Then Unload Me: Exit Sub
IndexN = IndexN + 1
Else
IndexN = -1 '不是顺序点击，复位为起始状态
End If
ClickT = 0
End Sub