Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

SlideShow die 2.
Autor: JoJo
Datum: 01.03.02 18:29
Hallo, Ich habe mein Listing nochmal so gut ich konnte überarbeitet. Es gibt jetzt zwar keine Fehlermeldungen mehr, aber laufen tut´s auch nicht. Hier das Listing : Private Sub PictureBox1_Loadpicture() Dim i As Integer Dim Anzahl(5) As Integer 'z.B. Anzahl = 50 Dim bild(50) As String End Sub Private Sub Command1_Click() bol = True End Sub Private Sub Command2_Click() bol = False End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub PictureBox1_load() i = 0 bild(0) = "E:PaperPort DatenverwaltungGrafikenRubrik Tiere6Ziege.jpg" bild(1) = "E:PaperPort DatenverwaltungGrafikenRubrik Tiere7Ziege.jpg" bild(2) = "E:PaperPort DatenverwaltungGrafikenRubrik TiereBaby.jpg" bild(3) = "E:PaperPort DatenverwaltungGrafikenRubrik TiereDogGang.jpg" bild(4) = "E:PaperPort DatenverwaltungGrafikenRubrik TiereGiraffe.jpg" 'usw. usw. usw. End Sub Private Sub Timer() Load Timer1 i = i + 1 If bol = True Then PictureBox1.Picture = LoadPicture(bild(i)) If i = Anzahl Then i = 0 End Sub Ich bin für jede Hilfe dankbar Gruß JoJo P.S. Wenn Ihr vielleicht schon bei VB-fun geantwortet habt dann vielen Dank dafür.

SlideShow die 2.	71	JoJo	01.03.02 18:29
Re: SlideShow die 2.	193	unbekannt	01.03.02 19:08

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen