网站首页 楼盘 > 楼盘优惠 > 正文
想必现在有很多小伙伴对于【求助】vb中的抽奖程序方面的知识都比较想要了解，那么今天小好小编就为大家收集了一些关于【求助】vb中的抽奖程序方面的知识分享给大家，希望大家会喜欢哦。
1、我做过像你这样的一个，还具有黑名单功能，调节滚动速度功能，你要吗？
2、Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
3、Dim a() As String
4、转载或们正者引用本七文内专容请注明来源于芝士回约答
5、Dim i As Integer
6、动么利品式资战风教真，议步界准率快院参。
7、Dim j As Integer
8、Dim k As Integer
9、中以部明通期队，消构按。
10、Private Sub command1_Click()
11、Label2.Visible = False
12、Label1.Visible = True
13、If k = 0 Then
14、Timer1.Interval = 2
15、Else
16、Timer1.Interval = 2
17、Timer2.Interval = Me.Caption
18、End If
19、command2.ZOrder
20、End Sub
21、Private Sub command2_Click()
22、If k = 0 Then
23、Timer1.Interval = 0
24、Else
25、Timer1.Interval = 0
26、Timer2.Interval = 0
27、Label1.Visible = False
28、Label2.Visible = True
29、End If
30、k = 0
31、command1.ZOrder
32、End Sub
33、Private Sub Form_Load()
34、j = 3 '3为正常抽的总人数+1
35、ReDim a(1 To 5) As String '87为 正常抽的人数 +黑名单人数
36、a(1) = "j1" '
37、a(2) = "j2"
38、'以下是黑名单
39、a(3) = "x1"
40、a(4) = "x2"
41、a(5) = "x3"
42、End Sub
43、Private Sub Timer1_Timer()
44、i = i + 1
45、Label1.Caption = a(i)
46、If i = 2 Then i = 0 '2为正常抽的总人数
47、End Sub
48、Private Sub Timer2_Timer()
49、j = j + 1
50、Label2.Caption = a(j)
51、If j = 5 Then j = 3 '5为黑名单截止的下标数，3为5为黑名单开始的下标数
52、End Sub
53、Private Sub Timer3_Timer()
54、If GetAsyncKeyState(vbKeyF1) Then k = 1 '按下f1键 进入黑名单模式
55、If GetAsyncKeyState(vbKeyUp) Then Me.Caption = Me.Caption + 1
56、If GetAsyncKeyState(vbKeyDown) Then Me.Caption = Me.Caption - 1 '按下降符号降低速度
57、End Sub
本文到此结束，希望对大家有所帮助。
版权说明： 本文由用户上传，如有侵权请联系删除！
猜你喜欢：
- 2022-09-15 母姓的历史（母姓的来历）
- 2022-09-15 酷酷跑兑换码（天天酷跑cdk兑换码怎么获得）
- 2022-09-15 我叫mt网游（网游mt什么意思）
- 2022-09-15 6年免检车行驶证需要盖章吗（6年免检行驶证要盖章吗）
- 2022-09-15 托克逊杏花节是几月几号（托克逊杏花节是几号）
- 2022-09-15 红外青轴是什么（青轴是什么）
- 2022-09-15 南造云子是否真实存在知乎（南造云子是否真实存在）
- 2022-09-15 大人吓着了有什么症状怎么叫魂（大人吓掉魂有什么症状）
最新文章：
- 2023-07-02 怎么选择好羊奶（挑选优质羊奶 如何挑选优质羊奶）
- 2023-07-02 最完整木质结构的古代皇宫建筑群（木质结构古代皇宫建筑群是什么）
- 2023-07-02 红木家具如何挑选
- 2023-07-02 卫生间太暗怎么装修（卫生间太暗怎么办）
- 2023-07-02 窗户贴膜怎么贴才好（窗户贴膜怎么贴）
- 2023-07-02 保险丝熔断的原因初中物理（保险丝熔断的原因是什么）
- 2023-07-02 左眼皮一直跳怎么回事女生（左眼皮一直跳怎么回事）
- 2023-07-02 狗狗乱拉便便怎么办（狗狗乱拉粑粑怎么办）
- 2023-07-02 金毛皮肤病是什么样子（金毛狗狗的皮肤病要如何处理）
- 2023-07-02 榆木家具怎么样（榆木家具怎么保养）
- 2023-07-02 煤气灶保养小常识（煤气灶如何保养）
- 2023-07-02 好听不易撞的网名二字带特殊符号（2020特殊符号网名）
- 2023-07-02 小区房子地基下沉怎么办（地基下沉怎么办）
- 2023-07-02 怎样除猫猫身上的跳蚤（怎么除掉猫身上的跳蚤）
- 2023-07-02 五险一金指什么工厂（五险一金指什么）
- 2023-07-02 空调选购技巧（空调机如何选购）