none
Como agregar a un list box carpetas en forma de items para el reproductor Windows media RRS feed

Respuestas

  • Hola:
    En un Form con 1 ListBox y 1 Button, copia y pega el siguiente codigo
    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim dlgCarpeta As New FolderBrowserDialog
            Try
                With dlgCarpeta
                    'Normalmente, tras crear un nuevo FolderBrowserDialog,
                    ' se establece RootFolder en la ubicación desde donde
                    ' se comienza a examinar.
                    ' Puede elegir en la lista de carpetas especiales del sistema,
                    ' que son carpetas como Archivos de programa, Programas,
                    ' System o Startup, que contienen información común. 
                    .RootFolder = Environment.SpecialFolder.Desktop
                    ' Opcionalmente, puede establecer la propiedad Description para
                    ' proporcionar instrucciones adicionales al usuario.
                    .Description = "Select the directory you want to use as the default."
                    ' Puede utilizar la propiedad ShowNewFolderButton para controlar
                    ' si el usuario puede crear carpetas nuevas con el botón Nueva carpeta.
                    .ShowNewFolderButton = True
                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        Me.ListBox1.Items.Add(.SelectedPath)
                    End If
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
            End Try
        End Sub
    End Class
    Un saludo desde Bilbo
    Carlos

    miércoles, 8 de junio de 2016 7:19

Todas las respuestas

  • Hola:
    En un Form con 1 ListBox y 1 Button, copia y pega el siguiente codigo
    Public Class Form1
        Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
            Dim dlgCarpeta As New FolderBrowserDialog
            Try
                With dlgCarpeta
                    'Normalmente, tras crear un nuevo FolderBrowserDialog,
                    ' se establece RootFolder en la ubicación desde donde
                    ' se comienza a examinar.
                    ' Puede elegir en la lista de carpetas especiales del sistema,
                    ' que son carpetas como Archivos de programa, Programas,
                    ' System o Startup, que contienen información común. 
                    .RootFolder = Environment.SpecialFolder.Desktop
                    ' Opcionalmente, puede establecer la propiedad Description para
                    ' proporcionar instrucciones adicionales al usuario.
                    .Description = "Select the directory you want to use as the default."
                    ' Puede utilizar la propiedad ShowNewFolderButton para controlar
                    ' si el usuario puede crear carpetas nuevas con el botón Nueva carpeta.
                    .ShowNewFolderButton = True
                    If .ShowDialog = Windows.Forms.DialogResult.OK Then
                        Me.ListBox1.Items.Add(.SelectedPath)
                    End If
                End With
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Exclamation, Me.Text)
            End Try
        End Sub
    End Class
    Un saludo desde Bilbo
    Carlos

    miércoles, 8 de junio de 2016 7:19
  • Hola MaticoGoar

    Gracias por consultar en los foros. Me tomé la libertad de editar tu pregunta, te sugiero que revises el siguiente enlace, es una pequeña guía de como formular adecuadamente las preguntas dentro del foro. Estoy atento a tus comentarios.

    AYUDANOS A AYUDARTE, guía básica de consejos para formular preguntas


    Saludos
    José
    __________________________________________________________________________________________
    Por favor, recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, hace que sea más fácil para los otros visitantes encontrar la solución más tarde. Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.



    jueves, 9 de junio de 2016 14:52
    Moderador