Picturbox speichern

  • VB.NET

Es gibt 36 Antworten in diesem Thema. Der letzte Beitrag () ist von .Phil.

    Picturbox speichern

    Meine Frage ist:

    Wie kann man wenn man das bild in der pciturbox ändert das geänderte abspeichern. Die Bild änderung mache ich über einen Button der in den Filedialog geht ich geb eben den Quellcode

    Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim retwert As Integer
    4. OpenFileDialog1.Filter = "*.bmp,*.jpg,*.gif|*.bmp;*.jpg;*.gif"
    5. retwert = OpenFileDialog1.ShowDialog()
    6. If retwert = 1 Then
    7. PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
    8. End If
    11. End Sub



    Mfg

    Jannik U.

    Moin
    sowas ist mal mächtig uncool: [VB 2008] Picturbox mit dursuchen
    Du musst nicht 2 Themen zum selben Problem aufmachen.

    Wie im alten Thread schon beschrieben solltest du in diesem Fall mit Settings arbeiten: In den eigenschaften deines Projekts auf "Einstellungen" klicken und da einen neuen Eintrag anlegen. Auf diesen kannst du dann im Code per

    VB.NET-Quellcode

    1. My.Settings.NamedeinerVariablen
    zugreifen.

    Grüße
    Phil

    Nagut:
    Schritt 1 Anlegen eines neuen Eintrags unter Prjekt > Eigenschaften > Einstellungen
    Nenn das Ding wie du willst, aussagekräftige Namen helfen später beim wiederfinden. Typ sollte String sein.
    Schritt 2 Speichern des Pfads in den neuen Eintrag
    Wenn du nun mit deinem FileOpenDialog eine Datei ausgewählt hast kannst du das Ergebnis auch in die Settingsvariable speichern:

    VB.NET-Quellcode

    1. My.Settings.NamedeinerVariablen = FileOpenDialog1.FileName
    2. My.Settings.Save

    Schritt 3 Auffrufen der gespeicherten Settings beim Programmstart
    Im FormLoad Event (da kommt man hin, wenn man einen Doppelklick auf das Fenster im Designmodus macht) musst du nun deiner Picturebox den gespeicherten Pfad mitgeben. Funktioniert genauso wie mein FileopenDialog nur dass du halt statt FileOPenDialog.FileName My.Settings.NamedeinerVariablen verwendest.

    Ist alles nicht so schwer.


    Grüße
    Phil

    Edit: Du speicherst nicht das Bild sondern den Pfad zum Bild!!!

    Funktioniert nicht

    Hier ist der komplette Quellcode der Form


    Quellcode

    1. Public Class Form7
    3. Private Sub RadioButton2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton2.CheckedChanged
    5. End Sub
    7. Private Sub Form7_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
    9. Form1.Show()
    10. End Sub
    12. Private Sub Form7_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    13. My.Settings.AvatarB = OpenFileDialog1.FileName
    14. End Sub
    16. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    17. Me.Close()
    18. Form8.Show()
    19. End Sub
    21. Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
    22. Form9.Show()
    23. Me.Close()
    24. End Sub
    26. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    28. Dim retwert As Integer
    29. OpenFileDialog1.Filter = "*.bmp,*.jpg,*.gif|*.bmp;*.jpg;*.gif"
    30. retwert = OpenFileDialog1.ShowDialog()
    32. If retwert = 1 Then
    33. PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
    34. My.Settings.AvatarB = OpenFileDialog1.FileName
    35. My.Settings.Save()
    36. End If
    39. End Sub
    41. Private Sub OpenFileDialog1_FileOk(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs) Handles OpenFileDialog1.FileOk
    43. End Sub
    45. Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged
    46. If RadioButton1.Checked = True Then
    47. CheckBox1.Enabled = True
    48. PictureBox2.Visible = True
    49. Else
    50. CheckBox1.Enabled = False
    51. PictureBox2.Visible = False
    52. End If
    53. End Sub
    55. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    56. MsgBox("In Testversion noch nicht vorhanden")
    57. End Sub
    59. Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
    60. If CheckBox1.Checked = True Then
    61. Button1.Enabled = True
    62. Else
    63. Button1.Enabled = False
    64. End If
    66. End Sub
    68. Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
    70. End Sub
    71. End Class

    So:

    Musst nur ein button eine Picturbox und OPENFILEDIALOG reintun

    Quellcode

    1. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    3. Dim retwert As Integer
    4. OpenFileDialog1.Filter = "*.bmp,*.jpg,*.gif|*.bmp;*.jpg;*.gif"
    5. retwert = OpenFileDialog1.ShowDialog()
    7. If retwert = 1 Then
    8. PictureBox1.Image = New Bitmap(OpenFileDialog1.FileName)
    9. My.Settings.AvatarB = OpenFileDialog1.FileName
    10. My.Settings.Save()
    11. End If

    Natürlich funktioniert das nicht ;) Beim Onload Event lädst du den Wert des OpenFiledialogs in die SettingsVariable. Ließ meine Anweiseung nochmal mit Verstand durch und mach es so wies da steht ...

    OnLoad -> läd den in Settingsgespeicherten wert IN die PB