16/03/2010, 10:20
|
| | | Fecha de Ingreso: octubre-2007
Mensajes: 107
Antigüedad: 17 años, 4 meses Puntos: 1 | |
| Respuesta: Abrir cuadro de dialogo
Porque me dice que el openfiledialog no esta definido
Private Sub abrirArchivo() ' procedimiento para abrir un archivo
' presentar al usuario un cuadro de diálogo
Dim openFile As New OpenFileDialog
' mostrar solamente archivos M3U y MP3
openFile.Filter = "Listas de canciones (*.m3u)|*.m3u|Archivos Mpeg Layer 3 (*.mp3)|*.mp3"
' si elegimos algún archivo
If openFile.ShowDialog() = DialogResult.OK Then
' abrir el archivo elegido en el reproductor
ocxPlayer.URL = openFile.FileName
End If
End Sub |