如何中PPT做类似抽奖的效果，求助大家。

rgzyj@163.com · 发表于 2016-12-3 23:12

在PPT中，1－50这50个数随机出现，变化较快，有一停止按钮，一按则停止；再按又随机出现。求帮助。

hhjjpp · 发表于 2016-12-4 08:51

本帖最后由 hhjjpp 于 2016-12-4 10:19 编辑

rgzyj@163.com · 发表于 2016-12-4 10:07

hhjjpp 发表于 2016-12-4 08:51

老大太复杂了啊。

rgzyj@163.com · 发表于 2016-12-4 10:10

我只要1－50内的各数随机滚动显示，点按钮停止，再点则继续随机滚动。

hhjjpp · 发表于 2016-12-4 11:07

rgzyj@163.com 发表于 2016-12-4 10:10
我只要1－50内的各数随机滚动显示，点按钮停止，再点则继续随机滚动。

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) '参数是长整形（毫秒数）。Lib “kernel32”标明这个函数是引用kernel32.dll提供的函数。Kernel32.dll是windows的四个核心库之一。是用来延时n毫秒的?
Dim f As Boolean '将循环控制定义为共享变量很重要！否则停止按钮将失效！
Private Sub CommandButton1_Click()
f = False
If Me.CommandButton1.Caption = "停止" Then
Me.CommandButton1.Caption = "开始"
f = True
Else
Me.CommandButton1.Caption = "停止"
TextBox2.Text = "" '清除界面的上次奖等数据
Do
If f Then Exit Do
TextBox2.Text = Int(Rnd * 50) + 1
Sleep 30
DoEvents
Loop
End If
End Sub

复制代码

rgzyj@163.com · 发表于 2016-12-12 22:11

@hhjjpp,感谢大侠！！！

wgh141547 · 发表于 2017-12-8 15:53

请问，怎么用啊，我下载了后点开始，只是编辑啊，不能运行，本人菜鸟一个，嘻嘻嘻。

abigailluck · 发表于 2019-12-27 11:50

hhjjpp 发表于 2016-12-4 11:07

mark~~学习一下

		自动登录	找回密码
密码			免费注册