Mostrar conteúdo da pasta

[Marcos Daniel Schmidt Garo]

Ola galera eu queria criar um formulário que eu determine o caminho que ele deve abrir e me mostre todo o conteudo desta pasta, como o windows explorersó que com caminho fixo pelo botão. estou criando um sistema de identificação para a delegacia onde trabalho e este seria o projeto de fotos. Se puderem me ajudar agradeço muito.

[Graymalkin]

E o quê, exatamente, você não conseguiu fazer?

Abraços,

Graymalkin

[Marcos Daniel Schmidt Garo]

E o quê, exatamente, você não conseguiu fazer?

Abraços,

Graymalkin

Ainda não consegui fazer nada. esiste algum tutorial que possa me ajudar a fazer?

[Graymalkin]

Bom, se entendi você quer exibir as imagens de modo semelhante a opção "Miniaturas" do Windows Explorer, certo? Então, primeiro coloque uma ListView no form e mude as suas propriedades conforme os valores abaixo:

OwnerDraw = True

View = Tile

TileSize = 200; 200

Feito isso, vá no evento DrawItem da ListView1 e coloque o seguinte código:

Dim img As Image = Image.FromFile(e.Item.Text)

e.DrawBackground()
e.Graphics.DrawImage(img, New Rectangle(e.Bounds.Left, e.Bounds.Top, e.Bounds.Width, e.Bounds.Height))
e.DrawText(TextFormatFlags.Bottom)
e.DrawFocusRectangle()

Daí então, vá no evento Load do form e coloque o seguinte:

Dim arqs() as String = IO.Directory.GetFiles("c:\pasta", "*.jpg")

For Each arq As String In arqs
    ListView1.Items.Add(arq)
Next

Esse código acima obtém todos os arquivos da pasta especificada e adiciona os nomes dos mesmos à ListView1. O código colocado no evento DrawItem da ListView1 é o código que efetivamente desenha a imagem no lugar do item (porque o normal seria aparecer um ícone e/ou o texto do item). O que faz com que isso aconteça é o fato de termos mudado a propriedade OwnerDraw da Listview1 para true (o que diz para ela que queremos personalizar a maneira como ela será desenhada).

Bom, não sei o seu nível de conhecimento em programação, mas os passos acima são para alguém que já tenha pelo menos o mínimo de familiarização com o ambiente do Visual Studio e com a linguagem Visual Basic.

Abraços,

Graymalkin

[Marcos Daniel Schmidt Garo]

Bom, se entendi você quer exibir as imagens de modo semelhante a opção "Miniaturas" do Windows Explorer, certo? Então, primeiro coloque uma ListView no form e mude as suas propriedades conforme os valores abaixo:

OwnerDraw = True

View = Tile

TileSize = 200; 200

Feito isso, vá no evento DrawItem da ListView1 e coloque o seguinte código:

Dim img As Image = Image.FromFile(e.Item.Text)

e.DrawBackground()
e.Graphics.DrawImage(img, New Rectangle(e.Bounds.Left, e.Bounds.Top, e.Bounds.Width, e.Bounds.Height))
e.DrawText(TextFormatFlags.Bottom)
e.DrawFocusRectangle()

Daí então, vá no evento Load do form e coloque o seguinte:

Dim arqs() as String = IO.Directory.GetFiles("c:\pasta", "*.jpg")

For Each arq As String In arqs
    ListView1.Items.Add(arq)
Next

Esse código acima obtém todos os arquivos da pasta especificada e adiciona os nomes dos mesmos à ListView1. O código colocado no evento DrawItem da ListView1 é o código que efetivamente desenha a imagem no lugar do item (porque o normal seria aparecer um ícone e/ou o texto do item). O que faz com que isso aconteça é o fato de termos mudado a propriedade OwnerDraw da Listview1 para true (o que diz para ela que queremos personalizar a maneira como ela será desenhada).

Bom, não sei o seu nível de conhecimento em programação, mas os passos acima são para alguém que já tenha pelo menos o mínimo de familiarização com o ambiente do Visual Studio e com a linguagem Visual Basic.

Abraços,

Graymalkin

Deu certinho, mas eu queria indicar o caminho com botôes, muito obrigado pelo toque, eu estou começando agora.

[Graymalkin]

Deu certinho, mas eu queria indicar o caminho com botôes, muito obrigado pelo toque, eu estou começando agora.

Isso é simples, basta colocar uma caixa de texto no form e fazer:

Dim seleção As New FolderBrowserDialog()

If seleção.ShowDialog() = Windows.Forms.DialogResult.OK Then
    txtCaminho.Text = seleção.SelectedPath
End If

E lembre-se de mudar a linha...

Dim arqs() as String = IO.Directory.GetFiles("c:\pasta", "*.jpg")

... para:

Dim arqs() as String = IO.Directory.GetFiles(txtCaminho.Text, "*.jpg")

Certo? ;)

Graymalkin

[Marcos Daniel Schmidt Garo]

Deu certinho, mas eu queria indicar o caminho com botôes, muito obrigado pelo toque, eu estou começando agora.

Isso é simples, basta colocar uma caixa de texto no form e fazer:

Dim seleção As New FolderBrowserDialog()

If seleção.ShowDialog() = Windows.Forms.DialogResult.OK Then
    txtCaminho.Text = seleção.SelectedPath
End If

E lembre-se de mudar a linha...

Dim arqs() as String = IO.Directory.GetFiles("c:\pasta", "*.jpg")

... para:

Dim arqs() as String = IO.Directory.GetFiles(txtCaminho.Text, "*.jpg")

Certo? ;)

Graymalkin

Valeu Pela Dica

[Marcos Daniel Schmidt Garo]

como eu faço para dar um click duplo na imagem e ela aparecer maior.

[Graymalkin]

Bom, existem várias maneiras. Uma delas seria colocando uma PictureBox no form e exibindo a imagem nesta quando o evento DoubleClick da ListView fosse invocado.

Abraços,

Graymalkin

[Marcos Daniel Schmidt Garo]

sim mas eu queria que ela abra um outro programa de visualização de fotos como o normal do windows. tem como fazer?