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:
Den letzten Teil hab ich mit den anderen PicBoxen auch gemacht.
Weiß jemand wo der Fehler ist ?
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
- Public Class Form1
- Private Sub PlayToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PlayToolStripMenuItem.Click
- Timer1.Start()
- Timer1.Interval = 150
- End Sub
- Dim ee = 0
- Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
- ee += 1
- If ee = 1 Then
- PictureBox1.Image = PictureBox2.Image
- ElseIf ee = 2 Then
- PictureBox1.Image = PictureBox3.Image
- ElseIf ee = 3 Then
- PictureBox1.Image = PictureBox4.Image
- ElseIf ee = 4 Then
- PictureBox1.Image = PictureBox5.Image
- ElseIf ee = 5 Then
- PictureBox1.Image = PictureBox6.Image
- ElseIf ee = 6 Then
- PictureBox1.Image = PictureBox7.Image
- ElseIf ee = 7 Then
- PictureBox1.Image = PictureBox8.Image
- ElseIf ee = 8 Then
- PictureBox1.Image = PictureBox9.Image
- ElseIf ee = 12 Then
- Timer1.Stop()
- PictureBox1.Image = Nothing
- End If
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub PictureBox2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox2.Click
- Dim FilenameX As String
- If Me.OpenFileDialog1.ShowDialog = _
- Windows.Forms.DialogResult.OK Then
- FilenameX = Me.OpenFileDialog1.FileName
- Me.PictureBox1.Image = Image.FromFile(FilenameX)
- End If
- End Sub
- 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“ ()