Auslesen von Bildern und Wiedergabe

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von VB1963.

    Auslesen von Bildern und Wiedergabe

    Hallo liebes Forum,
    wahrscheinlich es es für euch ein leichtes aber ich beiße mir die Zähne aus. Ich versuche in meinem Programm Bilder aus einem Ordner auszulesen und dann im Programm wiederzugeben. Das ganze habe ich bisher so geregelt das die Bilder fest im Programm Resourcen drin sind. Klappt auch ganz passabel, nur will ich die Bilder frei aus einem Zufälligen Ordner wählen. Im folgenden mein Code, wie Ihr erkennen werdet: ICH BIN EIN ANFÄNGER! Also seid nicht Sauer wenn das ganze nicht so schön aussieht...

    Zusammengefasst:
    Ordner angeben
    Bilder aus Ordner wählen
    Bild Zufällig auswählen
    Bild Anzeigen in PictureBox1

    *Hippo wieder Glücklich*

    Hier die Forms Ansicht: imgur.com/D24gVWk

    VB.NET-Quellcode

    1. Public Class Form1
    3. Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    5. CheckBox1.Checked = My.Settings.Musik
    6. CheckBox2.Checked = My.Settings.Bilder
    7. CheckBox3.Checked = My.Settings.Text
    8. RadioButton1.Checked = My.Settings.Herunterfahren
    9. RadioButton2.Checked = My.Settings.Neustarten
    10. RadioButton3.Checked = My.Settings.Abmelden
    11. Label1.Text = My.Settings.Ordnerpfad
    12. 'Speicherstände einspielen
    13. End Sub
    15. Public Async Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    16. Dim imageList1 As System.Windows.Forms.ImageList
    18. My.Settings.Musik = CheckBox1.Checked
    19. My.Settings.Bilder = CheckBox2.Checked
    20. My.Settings.Text = CheckBox3.Checked
    21. My.Settings.Herunterfahren = RadioButton1.Checked
    22. My.Settings.Neustarten = RadioButton2.Checked
    23. My.Settings.Abmelden = RadioButton3.Checked
    24. My.Settings.Save()
    25. My.Settings.Reload()
    26. 'Speicherstände speichern
    28. If CheckBox1.Checked Then
    29. 'Musik die im Programm abgespielt wird
    30. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    31. End If
    33. If CheckBox2.Checked Then
    34. 'Bilder funktionierender versuch jedoch mit fest eingestellten Bildern
    36. Dim Wert2
    38. Randomize() ' Zufallszahlengenerator initialisieren.
    40. Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    42. Select Case Wert2
    44. Case 1
    45. PictureBox1.Image = My.Resources.DSC_0101
    46. PictureBox1.Refresh()
    48. Case 2
    49. PictureBox1.Image = My.Resources.DSC_0079
    50. PictureBox1.Refresh()
    52. Case 3
    53. PictureBox1.Image = My.Resources.DSC_0067
    54. PictureBox1.Refresh()
    56. Case 4
    57. PictureBox1.Image = My.Resources.DSC_0103
    58. PictureBox1.Refresh()
    60. Case Else
    62. End Select
    64. End If
    66. If CheckBox3.Checked Then
    67. 'Textausgabe mit Kleiner Nachricht
    68. Dim Wert1
    69. Dim Ausgabe As String
    71. Randomize() ' Zufallszahlengenerator initialisieren.
    73. Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    75. Select Case Wert1
    76. Case 1
    77. Ausgabe = "Text hier denken"
    79. Case 2
    80. Ausgabe = "Text hier denken"
    82. Case 3
    83. Ausgabe = "Text hier denken"
    85. Case 4
    86. Ausgabe = "Text hier denken"
    88. Case 5
    89. Ausgabe = "Text hier denken"
    91. Case 6
    92. Ausgabe = "Text hier denken"
    94. Case 7
    95. Ausgabe = "Text hier denken"
    97. Case 8
    98. Ausgabe = "Text hier denken"
    100. Case 9
    101. Ausgabe = "Text hier denken"
    103. Case 10
    104. Ausgabe = "Text hier denken"
    106. Case Else
    107. MsgBox("Hoppala da ist was schief gegangen...")
    108. End Select
    110. Dim whshell As Object
    111. whshell = CreateObject("Wscript.shell")
    112. Dim i As Integer = whshell.popup(Ausgabe, 3, "Kleine Nachricht")
    113. Debug.Print(i)
    115. End If
    116. ProgressBar1.Maximum = 50
    117. ProgressBar1.Value = 10
    118. Await Task.Delay(1000)
    119. ProgressBar1.Value = 20
    120. Await Task.Delay(1000)
    121. ProgressBar1.Value = 30
    122. Await Task.Delay(1000)
    123. ProgressBar1.Value = 40
    124. Await Task.Delay(1000)
    125. ProgressBar1.Value = 50
    126. Await Task.Delay(1000)
    127. 'Progressbar weil man es kann und es zeigt das noch was Läuft
    129. If RadioButton1.Checked = True Then
    130. 'herrunterfahren
    131. Shell("shutdown -s -t 5")
    133. ElseIf RadioButton2.Checked = True Then
    134. 'neustart
    135. Shell("shutdown -r -t 5")
    137. ElseIf RadioButton3.Checked = True Then
    138. 'abmelden
    139. Shell("shutdown -l -t 5")
    141. ElseIf RadioButton4.Checked = True Then
    142. 'abbrechen
    143. Shell("shutdown -a")
    145. End If
    147. End Sub
    149. Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    151. '****** HIER NOCH WEITER MACHEN*********
    153. Dim fbd As FolderBrowserDialog = New FolderBrowserDialog
    155. If (fbd.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
    156. Label1.Text = fbd.SelectedPath
    157. End If
    159. My.Settings.Ordnerpfad = fbd.SelectedPath
    161. PictureBox1.Image = Image.FromFile(fbd.SelectedPath)
    162. PictureBox1.Refresh()
    164. End Sub
    165. '********Ich bin zu doof dafür
    166. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HappyHippoSnack“ ()

    HappyHippoSnack schrieb:

    nur will ich die Bilder frei aus einem Zufälligen Ordner wählen
    Schaue dir dazu einmal die PictureBox.ImageLocation-Eigenschaft an...
    Du musst dort nur einen zufälligen Pfad eines Bildes aus einem bestimmten Ordner zuweisen - in etwa so (ungetestet):

    VB.NET-Quellcode

    1. Dim di = New DirectoryInfo("DeinPfad")
    2. Dim fi = di.GetFiles("*.jpg")
    3. Dim r As New Random
    4. Me.PictureBox1.ImageLocation = fi(r.Next(0, fi.Count - 1)).FullName

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „VB1963“ ()

    @VB1963 SUPER :) Das läuft schon Super, manchmal steht man echt auf dem Schlauch. Vielen vielen Dank :thumbsup:

    Leider habe ich nur noch das Problem wenn ich den Code in die "Bildauswahl" packe das dann gemeckert wird weil fbd (Also der Pfad Auswahl Teil) nicht läuft. Wenn ich das ganze direkt hinter die Ordnerwahl packe geht es.
    Fehler: "fbd wurde nicht Deklariert" Nun stelle ich mir die Frage wie das kommt da es ja extra eine Public ist und so der Wert in fbd ausgelesen werden müsste. Oder habe ich da was vercheckt?

    @HappyHippoSnack

    VB.NET-Quellcode

    1. Using fbd As FolderBrowserDialog = New FolderBrowserDialog
    2. ' hier muss alles rein, mindestens bis zur Erstellung der DirectoryInfo-Instanz
    3. End Using

    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Es ist vollbracht, der letzte Fehler war meine eigene Doofheit. Ich habe den Pfad direkt angegeben (aus den My.Resources....)

    Visual Basic-Quellcode

    1. Imports System
    2. Imports System.IO
    4. Public Class Form1
    6. Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    8. CheckBox1.Checked = My.Settings.Musik
    9. CheckBox2.Checked = My.Settings.Bilder
    10. CheckBox3.Checked = My.Settings.Text
    11. RadioButton1.Checked = My.Settings.Herunterfahren
    12. RadioButton2.Checked = My.Settings.Neustarten
    13. RadioButton3.Checked = My.Settings.Abmelden
    14. Label1.Text = My.Settings.Ordnerpfad
    16. End Sub
    18. Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    20. Dim fbd As FolderBrowserDialog = New FolderBrowserDialog
    22. If (fbd.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
    23. Label1.Text = fbd.SelectedPath
    24. End If
    26. My.Settings.Ordnerpfad = fbd.SelectedPath
    27. My.Settings.Save()
    28. My.Settings.Reload()
    30. End Sub
    32. Public Async Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
    34. My.Settings.Musik = CheckBox1.Checked
    35. My.Settings.Bilder = CheckBox2.Checked
    36. My.Settings.Text = CheckBox3.Checked
    37. My.Settings.Herunterfahren = RadioButton1.Checked
    38. My.Settings.Neustarten = RadioButton2.Checked
    39. My.Settings.Abmelden = RadioButton3.Checked
    40. My.Settings.Save()
    41. My.Settings.Reload()
    43. If CheckBox1.Checked Then
    44. 'Musik
    45. My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
    46. End If
    48. If CheckBox2.Checked Then
    49. 'Bilder
    51. Dim di = New DirectoryInfo(My.Settings.Ordnerpfad)
    52. Dim fi = di.GetFiles("*.jpg")
    53. Dim r As New Random
    54. Me.PictureBox1.ImageLocation = fi(r.Next(0, fi.Count - 1)).FullName
    56. End If
    58. If CheckBox3.Checked Then
    59. 'Text
    60. Dim Wert1
    61. Dim Ausgabe As String
    62. Ausgabe = 1
    64. Randomize() ' Zufallszahlengenerator initialisieren.
    66. Wert1 = Int((20 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
    68. Select Case Wert1
    69. Case 1
    70. Ausgabe = "XXXXXXXXX"
    72. Case 2
    73. Ausgabe = "XXXXXXXXX"
    75. Case 3
    76. Ausgabe = "XXXXXXXXX"
    78. Case 4
    79. Ausgabe = "XXXXXXXXX"
    81. Case 5
    82. Ausgabe = "XXXXXXXXX"
    84. Case 6
    85. Ausgabe = "XXXXXXXXX"
    87. Case 7
    88. Ausgabe = "XXXXXXXXX"
    90. Case 8
    91. Ausgabe = "XXXXXXXXX"
    93. Case 9
    94. Ausgabe = "XXXXXXXXX"
    96. Case 10
    97. Ausgabe = "XXXXXXXXX"
    99. Case 11
    100. Ausgabe = "XXXXXXXXX"
    102. Case 12
    103. Ausgabe = "XXXXXXXXX"
    105. Case 13
    106. Ausgabe = "XXXXXXXXX"
    108. Case 14
    109. Ausgabe = "XXXXXXXXX"
    111. Case 15
    112. Ausgabe = "XXXXXXXXX"
    114. Case 16
    115. Ausgabe = "XXXXXXXXX"
    117. Case 17
    118. Ausgabe = "XXXXXXXXX"
    120. Case 18
    121. Ausgabe = "XXXXXXXXX"
    123. Case 19
    124. Ausgabe = "XXXXXXXXX"
    126. Case 20
    127. Ausgabe = "XXXXXXXXX"
    129. Case Else
    130. MsgBox("Hoppala da ist was schief gegangen...")
    131. End Select
    133. Dim whshell As Object
    134. whshell = CreateObject("Wscript.shell")
    135. Dim i As Integer = whshell.popup(Ausgabe, 3, "Kleine Nachricht")
    136. Debug.Print(i)
    138. End If
    139. ProgressBar1.Maximum = 50
    140. ProgressBar1.Value = 10
    141. Await Task.Delay(1000)
    142. ProgressBar1.Value = 20
    143. Await Task.Delay(1000)
    144. ProgressBar1.Value = 30
    145. Await Task.Delay(1000)
    146. ProgressBar1.Value = 40
    147. Await Task.Delay(1000)
    148. ProgressBar1.Value = 50
    149. Await Task.Delay(1000)
    151. If RadioButton1.Checked = True Then
    152. 'herrunterfahren
    153. Shell("shutdown -s -t 5")
    155. ElseIf RadioButton2.Checked = True Then
    156. 'neustart
    157. Shell("shutdown -r -t 5")
    159. ElseIf RadioButton3.Checked = True Then
    160. 'abmelden
    161. Shell("shutdown -l -t 5")
    163. ElseIf RadioButton4.Checked = True Then
    164. 'abbrechen
    165. Shell("shutdown -a")
    167. End If
    169. End Sub
    171. End Class

    Um es zu vervollständigen:
    Das Programm soll quasi ein mini tool sein um das Herunterfahren zu "verbessern" und es Persönlicher zu machen. Heißt ein nettes Bild am ende oder eine kleine Liebe Botschaft. Das war die Aufgabe vom ganzen und jene wurde erfüllt. danke an die Helfer. Top Forum!! :thumbsup: :thumbup:

    Ich habe mir jetzt nur den Teil mit den Settings angeschaut, da könntest du dir einigen Usercode ersparen:
    • z.b. kannst du die Settingseigenschaften direkt an das Control (Checkbox.Checked, Label.Text) via Designer binden
    • das Settings.Load/Save kannst du weglassen...

Facebook
Telefonspende