作者horain (虎烂)
看板Visual_Basic
标题Re: [VB6 ] 关於音乐的疑问
时间Fri Nov 10 22:22:41 2006
※ 引述《horain (虎烂)》之铭言：
Private Sub sleep Lib"kerne132"(ByVal dwMilliseconds AS Long)
: Private Sub cmd7Bar_Click() '拉BAR按钮
: picLucky7.Visible = False '隐藏图片
: '产生乱数值
: lblNo1.Caption = CStr(Int(Rnd * 10)) 'VB中的rnd函数可以产生0~1的乱数值
: lblNo2.Caption = CStr(Int(Rnd * 10)) 'VB中的rnd函数可以产生0~1的乱数值
: lblNo3.Caption = CStr(Int(Rnd * 10)) 'VB中的rnd函数可以产生0~1的乱数值
: '判断是否有7出现？
: If lblNo1.Caption = "7" Or lblNo2.Caption = "7" Or lblNo3.Caption = "7" Then
: picLucky7.Visible = True '显示图片
: Beep '启动音效档 请问这里要如何让他拨放两次?
: End If
: ----------
: 爬了文看了关於API的
: 不过还是弄不出来= ="
: 所以 麻烦可以指导一下吗?
: 谢谢
加上这行
然後再用sleep终於解决了
感谢大家的提示了
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 59.127.117.9