VB编写摇奖程序

学院搞活动，有个环节是抽奖，要求我帮他们写一个电脑摇奖的程序，就像电视的综艺界面一样按回车开始，按空格停下来。开始的时候没有仔细的想，以为没有什么难度就欣然的答应了，开始写的时候才发现，需要在外部通过条件判断强制的中断无限的循环。脑子里第一个想到的就是用多线程，可是大家都知道，如果用VB想使用多线程难度是非常大的。如果只用普通的单线程就必须找到一个方法捕捉到键盘的响应并中断循环。于是想到了去捕获消息，具体的想法就是想试一下在循环的过程中看看可不可以捕捉到键盘keydwon的消息。按照需求就有两个API可以使用一个是getmessage，一个是peekmessage，由于我们只是需要监视是否发生了键盘空格键keydown事件，并不需要拦截消息，所以这里选择peekmessage更为适合。

关键的问题解决了，其他的都好办了，备摇的号码用记事本事先记录，程序中在窗体load事件里读取到数组中，读取的时候因该打乱号码的顺序，这里简单的采用一前一后的方法读取。为了保证摇到的号码不会再摇到，所以要记录被摇到的号码在数组中的index以便在循环的时候跳过。大体的思路就是这个样子的。具体的代码如下：

Option Explicit

Dim data() As String, del() As Integer, index As Integer

 

‘API函数声明

Private Const PM_REMOVE = &H1

Private Declare Function PeekMessage Lib "user32" Alias "PeekMessageA" (lpMsg As Msg, ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, ByVal wRemoveMsg As Long) As Long

Private Type POINTAPI

    x As Long

    y As Long

End Type

 

Private Type Msg

    hWnd As Long