MediaPlayer control

du bruger bare open paramerteren, altså hvis din kontol hedder MediaPlayer1, så ser linjen sådan her ud:
MediaPlayer1.Open "sti til fil"

Hej.  Her er noget kode hvor jeg bruger den:

If Len(Dir(mp3sti & mp)) > 7 Then
    knmp3.Enabled = True
    grindhold.Col = 2
    grindhold.CellBackColor = RGB(91, 255, 91)
    If txtmu(8).Text <> "mp3" Then
      txtmu(8).Text = "mp3"
      knmured_Click
      labmuhuskgem.Visible = True
    End If
    mp1.filename = mp3sti & mp
    minsek = FileLen(mp3sti & mp) / 16100
    If minsek - (Int(minsek / 60) * 60) < 10 Then
        labmp3len.Caption = Int(minsek / 60) & ":0" & minsek - (Int(minsek / 60) * 60)
      Else
        labmp3len.Caption = Int(minsek / 60) & ":" & minsek - (Int(minsek / 60) * 60)
    End If
End If


Der afspilles også wav-filer.

lyd = wavsti & filnavn
On Error GoTo nonet
If Len(Dir(lyd)) > 3 Then
    grindhold.Col = 7
    If Len(grindhold.Text) > 4 Then
        txtmelo.BackColor = RGB(255, 255, 0)
      Else
        txtmelo.BackColor = RGB(91, 255, 91)
    End If
    lablydsek.Caption = Int((FileLen(lyd)) / 2200) / 10
    afspil.filename = lyd
    afspil.Command = "open"
    'If optdev(1) = True Then afspil.Command = "play"
    Exit Sub
End If

Til inspiration!

M.v.h.  Jørn