0

DataGridView我的程序中有一个按钮，它从一个对象（音量、url、延迟等）中获取一堆信息，并使用它来播放一个文件。我试图让延迟工作（在播放前等待 x 秒数），我很高兴它会工作，但每当我按下按钮时，播放立即开始。除了延迟之后，程序中没有Ctlcontrols.play()任何地方，所以我不知道是什么导致它播放。

我在评论中解释了我的问题。抱歉，如果我没有很好地解释我的代码。如果你能告诉我还有什么可能导致我的播放器立即启动，那可能就足够了。

'snd_btn_go is the button that is supposed to start it.
'This sub doesn't matter as much for the problem, it will just go to SndCueGO() if both numbers are in the valid range.
Private Sub snd_btn_go_Click(sender As Object, e As EventArgs) Handles snd_btn_go.Click
    Dim cue1 As Integer
    Dim cue2 As Integer
    cue1 = If(Integer.TryParse(snd_txt_cue_1.Text, cue1), Int(snd_txt_cue_1.Text), snd_num1)

    If snd_txt_cue_2.Text <> "" Then
        cue2 = If(Integer.TryParse(snd_txt_cue_2.Text, cue2), Int(snd_txt_cue_2.Text), snd_num2)
    Else
        cue2 = -1
    End If
    If (cue1 <= dgSound.Rows.Count - 1 And cue1 > 0) Then 
        SndCueGO(cue1, cue2)
    End If
End Sub

'This sub pulls all the info from the correct row in the DataGrid and assigns it to a list. It'll check if the start volume and end volume are the same and if they're not, it'll fade to the end volume.
Private Sub SndCueGO(cue1, cue2)

    Dim cues() = {cue1, cue2}
    snd_num1 = cue1

    Dim cuedata1 = snd_ds.Tables(0).Rows(cue1 - 1)
    Dim cuedata2 = snd_ds.Tables(0).Rows(cue1 - 1)

    If cue2 <> -1 Then
        snd_num2 = cue2
        cuedata2 = snd_ds.Tables(0).Rows(cue2 - 1)
    End If

    Dim data() = {cuedata1, cuedata2}

    For i = 0 To 1
        If cues(i) <> -1 Then
            snd_delay(i) = data(i).Item("Delay")
            snd_startvol(i) = safeNum(data(i).Item("Start_Vol."))
            snd_file(i) = data(i).Item("File")
            snd_in(i) = data(i).Item("Fade_In")
            snd_out(i) = data(i).Item("Fade_Out")
            snd_vol(i) = safeNum(data(i).Item("Vol."))
            snd_hold(i) = data(i).Item("Hold")
            snd_af(i) = If(data(i).Item("AF") = "", False, True)
            player_list(i).URL = snd_file(i)

            snd_current(i) = snd_startvol(i)

            If snd_startvol(i) <> snd_vol(i) Then 'snd_startvol(i) and snd_vol(i) were the same in all my tests, so this should not run.
                snd_next(i) = snd_vol(i)

                Dim num_steps_up = snd_in(i) * snd_speed
                Dim num_steps_down = snd_out(i) * snd_speed
                Dim diff = snd_vol(i) - snd_startvol(i)
                Dim small_step As Single
                If diff > 0 Then
                    small_step = diff / num_steps_up
                ElseIf diff < 0 Then
                    small_step = diff / num_steps_down
                End If
                snd_steps(i) = small_step

                timer_snd_fade.Tag = 0
                timer_snd_fade.Enabled = True

            End If

            timer_snd_master.Tag = 0 'resets the tag to 0
            timer_snd_master.Enabled = True 'Starts timer

        End If
    Next

End Sub

Private Sub timer_snd_master_Tick(sender As Object, e As EventArgs) Handles timer_snd_master.Tick
    If sender.Tag = snd_delay(0) Then
        Player1.Ctlcontrols.play() 'This is the only play command in the program
        Debug.Print("tag " & sender.Tag) 'These print after the delay
        Debug.Print("delay " & snd_delay(0))
    End If

    sender.Tag += 1
End Sub
4

1 回答 1

0

检查：

AxWindowsMediaPlayer player1 = ...; // get the player from UI
IWMPSettings sett = player.settings;

sett.autoStart == ??

请参阅文档。

可能它设置为true，因为它是默认值。只需将其设置为 false 播放器将不会播放，直到Ctlcontrols.play()被调用。

于 2014-09-07T14:52:02.683 回答