none
busco un ejemplo o solución viual studio form 2010 RRS feed

  • Pregunta

  • tengo este proyecto pero no puedo eliminar las rutas del track

    lo que quiero es que al  dar clic con el ratón sobre el nombre del tema(listbox2) y no sobre la dirección url ; si no sobre el nombre) este  le ordene al reproductor reproducir el tema seleccionado.

    lo carga bien en un lisbox1 sale con ruta completa y se reproduce, pero no se como ocultar la ruta y que solo aparezca el nombre la pista mp3, en el lisbox2 me aparece el nombre de la pista pero no puedo reproducirla. como se puede ocultar la ruta en pantalla.

    Imports System.IO


    Public Class Form1
        Dim ARCHIVOS As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
        Dim CARPETA As String
        Dim MIARRAY As ArrayList
        Dim CONTADOR As Integer
        Dim DURACION As Integer
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles musica.Click


            'Cambiar esta ruta por la correcta
            Dim ruta As String = "C:\Users\Jhon Fonttz Equipo 1\Desktop\musica"
            For Each archivo As String In Directory.GetFiles(ruta)
            Next
            'Muestro el contenido  de los ficheros mp3 en la carpeta "C:\Users\jose\Desktop\MUSICA" dentro de Listbox 2
            Me.ListBox1.Items.Clear()
            For Each archivo As String In Directory.GetFiles(ruta, "*.mp3")
                Me.ListBox1.Items.Add(archivo)
            Next

        End Sub

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles videos.Click

            'Cambiar esta ruta por la correcta
            Dim ruta As String = "C:\Users\Jhon Fonttz Equipo 1\Desktop\videos"
            'Muestro el contenido de la carpeta "C:\Users\jose\Desktop\VIDEO" dentro de Listbox 1
            Me.ListBox1.Items.Clear()
            For Each archivo As String In Directory.GetFiles(ruta)
                Me.ListBox1.Items.Add(archivo)
            Next
            'Muestro el contenido  de los ficheros mp4 en la carpeta "C:\Users\jose\Desktop\VIDEO" dentro de Listbox 2
            'Me.ListBox2.Items.Clear()
            For Each archivo As String In Directory.GetFiles(ruta, "*.mp4")
                ' Me.ListBox2.Items.Add(archivo)
            Next



        End Sub



        Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

        End Sub

        Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged

            AxWindowsMediaPlayer1.URL = ListBox1.SelectedItem
        End Sub

        Private Sub CARGAR_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CARGAR.Click
            Dim Abrir As New OpenFileDialog
            Try
                Abrir.Title = "Abrir Archivo"
                Abrir.FileName = ""
                Abrir.Multiselect = True
                Abrir.Filter = "Mp3 Archivos (*.mp3)|*.mp3| All Files (*.*)|*.*"
                If Abrir.ShowDialog = Windows.Forms.DialogResult.OK Then
                    For Each track As String In Abrir.FileNames
                        ListBox1.Items.Add(track)
                    Next
                    For Each trackname As String In Abrir.SafeFileNames
                        ListBox2.Items.Add(trackname)
                    Next
                End If
            Catch ex As Exception

            End Try

        End Sub

        Private Sub VangelisToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VangelisToolStripMenuItem1.Click

            Me.ListBox1.Items.Clear()
            Me.ListView1.Items.Clear()
            Dim ruta As String = "C:\Users\Jhon Fonttz Equipo 1\Desktop\musica\vangelis"
            For Each archivo As String In Directory.GetFiles(ruta)
            Next
            'Muestro el contenido  de los ficheros mp3 en la carpeta "C:\Users\jose\Desktop\MUSICA" dentro de Listbox 1
            Me.ListBox1.Items.Clear()
            For Each archivo As String In Directory.GetFiles(ruta, "*.mp3")
                Me.ListBox1.Items.Add(archivo)
                Me.ListView1.Items.Add(archivo)
            Next
        End Sub

        Private Sub ElectroToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ElectroToolStripMenuItem1.Click

            Me.ListBox1.Items.Clear()
            Me.ListView1.Items.Clear()
            Dim ruta As String = "C:\Users\Jhon Fonttz Equipo 1\Desktop\musica\electro"
            For Each archivo As String In Directory.GetFiles(ruta)
            Next
            'Muestro el contenido  de los ficheros mp3 en la carpeta "C:\Users\jose\Desktop\MUSICA" dentro de Listbox 1

            For Each archivo As String In Directory.GetFiles(ruta, "*.mp3")
                Me.ListBox1.Items.Add(archivo)
                Me.ListView1.Items.Add(archivo)
            Next
        End Sub

        Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        End Sub



        Private Sub TodoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TodoToolStripMenuItem.Click

            Me.ListView1.Items.Clear()
            Dim ruta As String = "C:\Users\Jhon Fonttz Equipo 1\Music\Listas de reproducción"
            For Each archivo As String In Directory.GetFiles(ruta)
            Next
            'lista de produccion
            Me.ListBox1.Items.Clear()
            For Each archivo As String In Directory.GetFiles(ruta, "*.wpl")
                Me.ListBox1.Items.Add(archivo)
                Me.ListView1.Items.Add(archivo)
            Next

        End Sub



        Private Sub ListBox2_SelectedIndexChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
            AxWindowsMediaPlayer1.URL = ListBox2.SelectedItem
        End Sub


    End Class

                        

    jhon fonttz

    domingo, 2 de septiembre de 2018 22:44

Respuestas

  • Para no ver la columna (pero ahí siga) 

    Me.ListBox1.columns(0).Width(0)

    donde 0 es el indice de la columna donde gurdas la ruta (puede variar de acuerdo al orden en que agregas los datos)

    y fijas un ancho de 0 para la columna.

    Al final cuando das clic sobre el renglón no tomas el valor de la columna actual si no de la columna del indice donde tienes la ruta del track.

    Espero ser claro y si te sirve marca como respuesta.

    Saludos

    • Propuesto como respuesta Pablo Rubio miércoles, 5 de septiembre de 2018 8:24
    • Marcado como respuesta jhon fonttz viernes, 7 de septiembre de 2018 17:28
    martes, 4 de septiembre de 2018 18:11
  • Prueba si esto es lo que deseas:

    crea un nuevo formulario con 2 ListBox (ListBox1 y ListBox2)

    Los llenamos al cargar el formulario (solo como ejemplo)

     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim x As Short
            Do While x < 5
                Me.ListBox1.Items().Add("archivo" & x.ToString)
                Me.ListBox2.Items().Add("ruta" & x.ToString)
                Me.ListBox2.Visible = False
                x = x + 1
            Loop
        End Sub

    cuando des click en el ListBox visible te muestra el item del mismo indice del ListBox Oculto

     Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
            Dim x As Short
            x = Me.ListBox1.SelectedIndex
            MsgBox(Me.ListBox2.Items(x).ToString)

        End Sub

    Saludos

    • Marcado como respuesta jhon fonttz viernes, 7 de septiembre de 2018 17:28
    miércoles, 5 de septiembre de 2018 18:42

Todas las respuestas

  • Para no ver la columna (pero ahí siga) 

    Me.ListBox1.columns(0).Width(0)

    donde 0 es el indice de la columna donde gurdas la ruta (puede variar de acuerdo al orden en que agregas los datos)

    y fijas un ancho de 0 para la columna.

    Al final cuando das clic sobre el renglón no tomas el valor de la columna actual si no de la columna del indice donde tienes la ruta del track.

    Espero ser claro y si te sirve marca como respuesta.

    Saludos

    • Propuesto como respuesta Pablo Rubio miércoles, 5 de septiembre de 2018 8:24
    • Marcado como respuesta jhon fonttz viernes, 7 de septiembre de 2018 17:28
    martes, 4 de septiembre de 2018 18:11
  • me da este error

    Error 1 'columns' no es un miembro de 'System.Windows.Forms.ListBox'.


    jhon fonttz

    miércoles, 5 de septiembre de 2018 12:18
  • Prueba si esto es lo que deseas:

    crea un nuevo formulario con 2 ListBox (ListBox1 y ListBox2)

    Los llenamos al cargar el formulario (solo como ejemplo)

     Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
            Dim x As Short
            Do While x < 5
                Me.ListBox1.Items().Add("archivo" & x.ToString)
                Me.ListBox2.Items().Add("ruta" & x.ToString)
                Me.ListBox2.Visible = False
                x = x + 1
            Loop
        End Sub

    cuando des click en el ListBox visible te muestra el item del mismo indice del ListBox Oculto

     Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click
            Dim x As Short
            x = Me.ListBox1.SelectedIndex
            MsgBox(Me.ListBox2.Items(x).ToString)

        End Sub

    Saludos

    • Marcado como respuesta jhon fonttz viernes, 7 de septiembre de 2018 17:28
    miércoles, 5 de septiembre de 2018 18:42