none
Media Player RRS feed

  • Domanda

  •   

    Immetto in un DataGridView i files di musica contenuti in un cartella

    Avvio la riproduzione del file contenuto nella prima riga

    Nella routine seguente controllo quando è terminato per avviare l'esecuzione

    della seconda riga

    Non funziona

    Devo avviare la riproduzione cliccando sul tasto PLAY del controllo

    Private Sub AxWindowsMediaPlayer1_PlayStateChange(sender As Object, e As _WMPOCXEvents_PlayStateChangeEvent) Handles AxWindowsMediaPlayer1.PlayStateChange Dim nStato As Integer = e.newState Dim sTitolo As String Select Case nStato Case 8 ' esecuzione terminata If GRD.RowCount - 1 <= nRigaAttiva Then Exit Sub AxWindowsMediaPlayer1.URL = "" For cnt = nRigaAttiva + 1 To GRD.RowCount - 1 If GRD.Item(2, cnt).Value = True Then sTitolo = GRD.Item(1, cnt).Value.ToString AxWindowsMediaPlayer1.URL = sTitolo AxWindowsMediaPlayer1.Ctlcontrols.play() GRD.CurrentCell = GRD(0, cnt) GRD.Rows(cnt).Selected = True nRigaAttiva = cnt Exit For End If Next End Select end sub


    lunedì 2 novembre 2015 16:58

Risposte

  • Ma sei sicuro che la variabile sTitolo corrisponda al path corretto della canzone?
    Su questo thread vedo che viene prima impostata la proprietà SelectedIndex (loro usano un controllo ListBox) prima di far partire la nuova canzone.
    Ad esempio così:
    Index += 1
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
    AxWindowsMediaPlayer1.Ctlcontrols.play()
    Al massimo prova a cercare qualche tutorial e vedi come hanno implementato l'evento PlayStateChange.
    Buona giornata!


    Paolo Pranzo

    martedì 3 novembre 2015 07:00

Tutte le risposte

  • Buonasera arcturus_1
    e benvenuto nel forum.
    In che senso non funziona l'avvio della seconda canzone?
    Inserisci il codice in un costrutto try catch e vedi se viene sollevata qualche eccezione.

    Ciao


    Paolo Pranzo

    lunedì 2 novembre 2015 18:18
  • nel senso che

                            AxWindowsMediaPlayer1.URL = sTitolo
                            AxWindowsMediaPlayer1
    .Ctlcontrols.play()

    non hanno effetto e non provocano errore

    clickando su play del controllo la riproduzione parte quindi lo aggiornamento dell 'URL è sto recepito

    ma .Ctlcontrols.play() non ha effetto

    martedì 3 novembre 2015 06:06
  • Ma sei sicuro che la variabile sTitolo corrisponda al path corretto della canzone?
    Su questo thread vedo che viene prima impostata la proprietà SelectedIndex (loro usano un controllo ListBox) prima di far partire la nuova canzone.
    Ad esempio così:
    Index += 1
    AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
    AxWindowsMediaPlayer1.Ctlcontrols.play()
    Al massimo prova a cercare qualche tutorial e vedi come hanno implementato l'evento PlayStateChange.
    Buona giornata!


    Paolo Pranzo

    martedì 3 novembre 2015 07:00