panjj007 发表于 2017-6-23 14:41:42

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

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

xswordy 发表于 2017-6-23 17:38:18


simsonlee 发表于 2017-6-23 17:40:40

老大太复杂了啊。

qqwwee 发表于 2017-6-23 17:41:29

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

自由叮当 发表于 2017-6-23 18:01:41

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

复制代码

yslzhf 发表于 2017-6-23 18:41:21

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