[VB6 ] 關於音樂的疑問

[horain (虎爛)]

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的
  不過還是弄不出來= ="
 所以  麻煩可以指導一下嗎?
 謝謝


--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 59.127.117.9
※ 編輯: horain          來自: 59.127.117.9         (11/04 13:31)
※ 編輯: horain          來自: 59.127.117.9         (11/04 13:32)
推 fumizuki:Beep 兩次就好了啊@@
推 fumizuki:如果是撥放音樂 專案 設定使用元件 windows media player
推 horain:Beep兩次  會執行錯誤= ="
→ fumizuki:那你系統有問題@@
推 horain:會跳出"必須是函數或變數"
推 fumizuki:call beep: call beep 不會有問題啊
推 horain:還是只有"咚"一聲而已  有辦法弄成"咚咚”兩聲嗎？
推 fumizuki:第一聲還沒完就要求第二聲 就只能聽到一聲...要delay一下
推 horain:請問要如何延遲了(跪求
推 fumizuki:迴圈中檢查時間差
推 mouse26:卡個sleep(API)在中間就好了