joseph01 发表于 2017-2-16 23:35:13

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


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

90-678 发表于 2017-2-17 00:35:18


苗表目秀 发表于 2017-2-17 00:35:52


老大太复杂了啊。

水晶小克 发表于 2017-2-17 01:07:02

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

girlxq12 发表于 2017-2-17 02:03:48


[*]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 IfEnd Sub

复制代码

zhuzheng 发表于 2017-2-17 03:11:37

@hhjjpp,感谢大侠!!!
页: [1]
查看完整版本: 如何中PPT做类似抽奖的效果,求助大家。