想必现在有很多小伙伴对于【求助】vb中的抽奖程序方面的知识都比较想要了解,那么今天小好小编就为大家收集了一些关于【求助】vb中的抽奖程序方面的知识分享给大家,希望大家会喜欢哦。
我做过像你这样的一个,还具有黑名单功能,调节滚动速度功能,你要吗?
privatedeclarefunctiongetasynckeystatelib"user32"(byvalvkeyaslong)asinteger
dima()asstring
转载或者果引用本积文内容请或注机明来源于提芝士回答
dimiasinteger
dimjasinteger
dimkasinteger
制日给口金极己今型格引。
privatesubcommand1_click()
label2.visible=false
了大动点把相全么问级角根济走千周族育照。
label1.visible=true
ifk=0then
timer1.interval=2
else
timer1.interval=2
timer2.interval=me.caption
endif
command2.zorder
endsub
privatesubcommand2_click()
ifk=0then
timer1.interval=0
else
timer1.interval=0
timer2.interval=0
label1.visible=false
label2.visible=true
endif
k=0
command1.zorder
endsub
privatesubform_load()
j=3'3为正常抽的总人数+1
redima(1to5)asstring'87为正常抽的人数+黑名单人数
a(1)="j1"'
a(2)="j2"
'以下是黑名单
a(3)="x1"
a(4)="x2"
a(5)="x3"
endsub
privatesubtimer1_timer()
i=i+1
label1.caption=a(i)
ifi=2theni=0'2为正常抽的总人数
endsub
privatesubtimer2_timer()
j=j+1
label2.caption=a(j)
ifj=5thenj=3'5为黑名单截止的下标数,3为5为黑名单开始的下标数
endsub
privatesubtimer3_timer()
ifgetasynckeystate(vbkeyf1)thenk=1'按下f1键进入黑名单模式
ifgetasynckeystate(vbkeyup)thenme.caption=me.caption+1
ifgetasynckeystate(vbkeydown)thenme.caption=me.caption-1'按下降符号降低速度
endsub
本文到此结束,希望对大家有所帮助。
原文标题:vba抽奖小程序(【求助】vb中的抽奖程序),如若转载,请注明出处:https://www.angelbnb.com/news/195.html
免责声明:此资讯系转载自合作媒体或互联网其它网站,「天使号」登载此文出于传递更多信息之目的,并不意味着赞同其观点或证实其描述,文章内容仅供参考。