Visua Basic 2008 Laden/Anzeigen

[Algaten™]

Hi

Ich würde gerne In einer Form wo ich einen Button eine Picturebox und Openfiledialog und Savedialog hab .

Es gerne so hinbekommen das wenn ich auf den Button klicke das ich eine Datei auswähle und diese Datei in der Picturebox angezeigt wird und der Pfad der Datei gespeichert wird .

Bis jetzt habe ich:

Es hinbekommen das sich der Openfile und Savefiledialog öffnet nur das die Datei angzeigt und der Pfad gespeichert wird weiss ich nicht.

Könt ihr mir helfen?

[P-a-i-n]

wie willst du den pfad speichern ?
gibt ja mehrere arten ini,xml oder textdatei
was soll in der picbox angezeigt werden eine bild ?
wenn du so willst wie der windows explorer weil das das wort dateien sagtest und nicht bild dann nimmt man ein treeview

mußt du schon genauer sagen

[Algaten™]

Originally Posted by P-a-i-n

wie willst du den pfad speichern ?
gibt ja mehrere arten ini,xml oder textdatei
was soll in der picbox angezeigt werden eine bild ?
wenn du so willst wie der windows explorer weil das das wort dateien sagtest und nicht bild dann nimmt man ein treeview

mußt du schon genauer sagen

Also ein bild da es ja in einer Picturebox dachte das ist verständlich sry
und der pfad soll in einer textbox gespeichert werden

und wie geht das mit treeview?

[P-a-i-n]

das treeview ist sehr schwer aber ich hab die schonmal das gröbste schnell gemacht

so wie du es willst

Imports System.IO

Public Class Form1

    Dim öffnen As Stream


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        OpenFileDialog1.InitialDirectory = "C:\"
        OpenFileDialog1.Filter = "Bilder (*.jpg)|*.jpg|Alle Datein (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = DialogResult.OK Then
            öffnen = OpenFileDialog1.OpenFile()
            TextBox1.Text = OpenFileDialog1.FileName.ToString
            PictureBox1.Image = Image.FromFile(OpenFileDialog1.FileName)

            öffnen.Close()
        End If
    End Sub
End Class

[Algaten™]

Perfekt danke

[Aimless Angel]

~closed~