Problem mit OpenFileDialog

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von Button1_click.

    Problem mit OpenFileDialog

    Ich bin es wieder
    Ich arbeite gerade an einem Programm :
    Es gibt eine große PictureBox und unten mehrere kleine.
    Wenn man unten auf eine der Kleinen klickt soll sich der OpenfileDialog öffnen und man
    sucht sich ein Bild von seinem Computer das geöffnet werden soll und in der PicBox die man angeklickt hat
    angezeigt werden soll. Wenn man einen Button klickt sollen alle Bilder nacheinander in der großen PicBox (PictureBox1) angezeigt werden.
    Jetzt kommt das Problem :
    Wenn sich der Openfile Dialog öffnet schließt er sich nicht mehr
    Hier der Code:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
    4. Timer1.Start()
    5. Timer1.Interval = 150
    6. End Sub
    8. Dim ee = 0
    10. Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    11. ee += 1
    12. If ee = 1 Then
    13. PictureBox1.Image = PictureBox2.Image
    14. ElseIf ee = 2 Then
    15. PictureBox1.Image = PictureBox3.Image
    16. ElseIf ee = 3 Then
    17. PictureBox1.Image = PictureBox4.Image
    18. ElseIf ee = 4 Then
    19. PictureBox1.Image = PictureBox5.Image
    20. ElseIf ee = 5 Then
    21. PictureBox1.Image = PictureBox6.Image
    22. ElseIf ee = 6 Then
    23. PictureBox1.Image = PictureBox7.Image
    24. ElseIf ee = 7 Then
    25. PictureBox1.Image = PictureBox8.Image
    26. ElseIf ee = 8 Then
    27. PictureBox1.Image = PictureBox9.Image
    28. ElseIf ee = 12 Then
    29. Timer1.Stop()
    30. PictureBox1.Image = Nothing
    31. End If
    33. End Sub
    36. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    38. End Sub
    40. Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
    41. Dim FilenameX As String
    42. If Me.OpenFileDialog1.ShowDialog = _
    43. Windows.Forms.DialogResult.OK Then
    44. FilenameX = Me.OpenFileDialog1.FileName
    45. Me.PictureBox1.Image = Image.FromFile(FilenameX)
    47. End If
    48. End Sub
    49. End Class


    Den letzten Teil hab ich mit den anderen PicBoxen auch gemacht.
    Weiß jemand wo der Fehler ist ?

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