none
RETORNAR O VALOR DA FUNÇÃO PARA LISTBOX RRS feed

  • Pergunta

  • A função abaixo retorna uma lista de caminhos de arquivos de um local escolhido ao clicar num botão.

    Como faço pra retornar o valor desta função como uma lista de um listbox em um form que estou criando?

    Desde já obrigado.

    Imports System.IO Public Class Form1 Private Sub GetFilesButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnGetFiles.Click 'Create a Folder Browser Dialog Dim dlgFolderBrowser As New FolderBrowserDialog 'Variable to store the Path Dim Path As String Dim result As DialogResult ' Show the dialog dlgFolderBrowser.ShowDialog() If (result = 0) Then 'This stores the selected path into a viariable Path = dlgFolderBrowser.SelectedPath Else 'If "OK" was not pressed then do nothing Exit Sub End If 'add strings to filterlist, these will return image files Dim FilterList As New List(Of String) FilterList.Add("*.jpg") FilterList.Add("*.bmp") FilterList.Add("*.png") FilterList.Add("*.gif") FilterList.Add("*.tif") Dim files As List(Of FileInfo) = GetFiles(Path, FilterList) End Sub '''''The Function''''''''' Private Function GetFiles(ByVal Path As String, ByVal FilterList As List(Of String)) As List(Of FileInfo) Dim d As New DirectoryInfo(Path) Dim files As List(Of FileInfo) = New List(Of FileInfo) 'Iterate through the FilterList For Each Filter As String In FilterList 'the files are appended to the file array files.AddRange(d.GetFiles(Filter)) Next Return files End Function End Class


    • Movido Olavo Oliveira Neto quinta-feira, 19 de julho de 2012 12:00 Amigo, estou movendo sua thread para um fórum especifico de Windows Forms (De:.NET Development - Geral)
    quinta-feira, 19 de julho de 2012 00:43

Todas as Respostas

  • Eu sinceramente acho que voce está querendo fazer um Explorer para os arquivos que voce colocou no Filtro, mas da forma que voce está escrevendo seu código acho que não vai ficar legal. se isso for verdade voce volta a responde esse post e eu vou tentando lhe dar algumas dicas.

    Mas respondendo sua Pergunta.

    Voce Já retornou uma lista que pode ser usada no ListBox

    somente coloque a linha abaixo, logo apos a linha:     

    Dim files As List(Of FileInfo) = GetFiles(Path, FilterList)

    'Coloque essa linha
    ListBox1.DataSource = files

    espero ter ajudado.

    • Sugerido como Resposta Bruno Maestro quarta-feira, 1 de agosto de 2012 04:01
    quarta-feira, 1 de agosto de 2012 00:32