Visua Basic 2008 Laden/Anzeigen

07/05/2010 13:19 Algaten™#1
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?
07/05/2010 13:43 P-a-i-n#2
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
07/05/2010 13:53 Algaten™#3
Quote:
Originally Posted by P-a-i-n View Post
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?
07/05/2010 14:12 P-a-i-n#4
das treeview ist sehr schwer aber ich hab die schonmal das gröbste schnell gemacht ;)

so wie du es willst

Code:
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
07/05/2010 14:45 Algaten™#5
Perfekt danke
07/06/2010 14:18 Aimless Angel#6
~closed~