Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Bild mit Text zuordnen über txt file?
Autor: Beili
Datum: 27.11.01 12:06
Erstelle eine Textdatei 'Textdatei.txt', die folgendermaßen aufgebaut ist: Bild C:BilderBild01.jpg 'Pfad der Bilder anpassen Bild C:BilderBild02.jpg Bild C:BilderBild03.jpg Auf Bild 1 sehen sie die wunderschöne und abwechslungsreiche Landschaft der Antarktis. Bild2 zeigt einen blubbernden Waschkessel. Und Bild 3 einen total betrunkenen Matrosen. Du erstellst ein Form mit einer Textbox mit 'Multiline = true' und einem Imagecontrol mit dem Index '0'. Im Quellcode liest du das folgendermaßen aus: dim DateiNr, BildNr as integer dim DateiInhalt, Bildpfad as string DateiNr = freefile open "C:BilderTextdatei.txt" for input as #DateiNr 'Pfad der Textdatei anpassen while not eof (DateiNr) line input #DateiNr, DateiInhalt if left(DateiInhalt,4) = "Bild" then Bildpfad = right(DateiInhalt,len(DateiInhalt)-5) Image1(BildNr).picture = loadpicture(Bildpfad) image1(BildNr).visible = true BildNr = BildNr +1 load image1(BildNr) 'Hier wird ein neues Imagecontrol erstellt, in das das nächste Bild geladen wird else Text1.text = Text1.text & DateiInhalt endif wend close #DateiNr

Bild mit Text zuordnen über txt file?	42	Timo	27.11.01 10:28
Re: Bild mit Text zuordnen über txt file?	24	Beili	27.11.01 12:06

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