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
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
- Public Class Form1
- Public Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- CheckBox1.Checked = My.Settings.Musik
- CheckBox2.Checked = My.Settings.Bilder
- CheckBox3.Checked = My.Settings.Text
- RadioButton1.Checked = My.Settings.Herunterfahren
- RadioButton2.Checked = My.Settings.Neustarten
- RadioButton3.Checked = My.Settings.Abmelden
- Label1.Text = My.Settings.Ordnerpfad
- 'Speicherstände einspielen
- End Sub
- Public Async Sub Button2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button2.Click
- Dim imageList1 As System.Windows.Forms.ImageList
- My.Settings.Musik = CheckBox1.Checked
- My.Settings.Bilder = CheckBox2.Checked
- My.Settings.Text = CheckBox3.Checked
- My.Settings.Herunterfahren = RadioButton1.Checked
- My.Settings.Neustarten = RadioButton2.Checked
- My.Settings.Abmelden = RadioButton3.Checked
- My.Settings.Save()
- My.Settings.Reload()
- 'Speicherstände speichern
- If CheckBox1.Checked Then
- 'Musik die im Programm abgespielt wird
- My.Computer.Audio.Play(My.Resources.geil, AudioPlayMode.Background)
- End If
- If CheckBox2.Checked Then
- 'Bilder funktionierender versuch jedoch mit fest eingestellten Bildern
- Dim Wert2
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert2 = Int((4 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert2
- Case 1
- PictureBox1.Image = My.Resources.DSC_0101
- PictureBox1.Refresh()
- Case 2
- PictureBox1.Image = My.Resources.DSC_0079
- PictureBox1.Refresh()
- Case 3
- PictureBox1.Image = My.Resources.DSC_0067
- PictureBox1.Refresh()
- Case 4
- PictureBox1.Image = My.Resources.DSC_0103
- PictureBox1.Refresh()
- Case Else
- End Select
- End If
- If CheckBox3.Checked Then
- 'Textausgabe mit Kleiner Nachricht
- Dim Wert1
- Dim Ausgabe As String
- Randomize() ' Zufallszahlengenerator initialisieren.
- Wert1 = Int((10 * Rnd()) + 1) ' Zufallszahlen im Bereich von 1 bis 10 generieren.
- Select Case Wert1
- Case 1
- Ausgabe = "Text hier denken"
- Case 2
- Ausgabe = "Text hier denken"
- Case 3
- Ausgabe = "Text hier denken"
- Case 4
- Ausgabe = "Text hier denken"
- Case 5
- Ausgabe = "Text hier denken"
- Case 6
- Ausgabe = "Text hier denken"
- Case 7
- Ausgabe = "Text hier denken"
- Case 8
- Ausgabe = "Text hier denken"
- Case 9
- Ausgabe = "Text hier denken"
- Case 10
- Ausgabe = "Text hier denken"
- Case Else
- MsgBox("Hoppala da ist was schief gegangen...")
- End Select
- Dim whshell As Object
- whshell = CreateObject("Wscript.shell")
- Dim i As Integer = whshell.popup(Ausgabe, 3, "Kleine Nachricht")
- Debug.Print(i)
- End If
- ProgressBar1.Maximum = 50
- ProgressBar1.Value = 10
- Await Task.Delay(1000)
- ProgressBar1.Value = 20
- Await Task.Delay(1000)
- ProgressBar1.Value = 30
- Await Task.Delay(1000)
- ProgressBar1.Value = 40
- Await Task.Delay(1000)
- ProgressBar1.Value = 50
- Await Task.Delay(1000)
- 'Progressbar weil man es kann und es zeigt das noch was Läuft
- If RadioButton1.Checked = True Then
- 'herrunterfahren
- Shell("shutdown -s -t 5")
- ElseIf RadioButton2.Checked = True Then
- 'neustart
- Shell("shutdown -r -t 5")
- ElseIf RadioButton3.Checked = True Then
- 'abmelden
- Shell("shutdown -l -t 5")
- ElseIf RadioButton4.Checked = True Then
- 'abbrechen
- Shell("shutdown -a")
- End If
- End Sub
- Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- '****** HIER NOCH WEITER MACHEN*********
- Dim fbd As FolderBrowserDialog = New FolderBrowserDialog
- If (fbd.ShowDialog() = System.Windows.Forms.DialogResult.OK) Then
- Label1.Text = fbd.SelectedPath
- End If
- My.Settings.Ordnerpfad = fbd.SelectedPath
- PictureBox1.Image = Image.FromFile(fbd.SelectedPath)
- PictureBox1.Refresh()
- End Sub
- '********Ich bin zu doof dafür
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „HappyHippoSnack“ ()