none
請問 My.Computer.Audio.Play 怎麼弄次數? RRS feed

  • 問題

  • My.Computer.Audio.Play 有辦法設置次數嗎

    我用迴圈跑My.Computer.Audio.Play .Background 沒用...

    .WaitToComplete...整個程式停住

    LOOP 則一直跑 >"<

    我只想撥放3次 請問該如何設置?


    0.0
    2011年7月25日 下午 03:57

解答

  • 用另外一個Thread控制

     Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
            Dim t As New Threading.Thread(AddressOf test)
            t.IsBackground = True
            t.Start()
        End Sub
     
        Private Sub test()
            For i As Int32 = 0 To 2
                PlayLoopingBackgroundSoundFile()
            Next
        End Sub
     
        Sub PlayLoopingBackgroundSoundFile()
            My.Computer.Audio.Play("win.wav", _
                AudioPlayMode.WaitToComplete)
     
        End Sub

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。
    2011年7月26日 上午 09:29
    版主

所有回覆

  • 迴圈執行3次後 My.Computer.Audio.Stop()

    coding or not
    2011年7月25日 下午 04:08
  • 您說搭配 WaitToComplete ?

    其他兩個迴圈都無效....


    0.0
    2011年7月25日 下午 04:15
  • 用AudioPlayMode.BackgroundLoop 播吧,然後Stop()就會停了
    coding or not
    2011年7月25日 下午 04:20
  • 小弟的意思是 跑三次 然後 STOP ...

    但不知道要怎麼讓他跑三次 @@"


    0.0
    2011年7月26日 上午 09:24
  • 用另外一個Thread控制

     Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click
            Dim t As New Threading.Thread(AddressOf test)
            t.IsBackground = True
            t.Start()
        End Sub
     
        Private Sub test()
            For i As Int32 = 0 To 2
                PlayLoopingBackgroundSoundFile()
            Next
        End Sub
     
        Sub PlayLoopingBackgroundSoundFile()
            My.Computer.Audio.Play("win.wav", _
                AudioPlayMode.WaitToComplete)
     
        End Sub

    在現實生活中,你和誰在一起的確很重要,甚至能改變你的成長軌跡,決定你的人生成敗。 和什麼樣的人在一起,就會有什麼樣的人生。 和勤奮的人在一起,你不會懶惰; 和積極的人在一起,你不會消沈; 與智者同行,你會不同凡響; 與高人為伍,你能登上巔峰。
    2011年7月26日 上午 09:29
    版主