如何中PPT做类似抽奖的效果,求助大家。
在PPT中,1-50这50个数随机出现,变化较快,有一停止按钮,一按则停止;再按又随机出现。求帮助。
老大太复杂了啊。 我只要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 IfEnd Sub
复制代码
@hhjjpp,感谢大侠!!!
页:
[1]