Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Ungültiges Bild
Autor: Prian0815
Datum: 25.05.04 10:28
hallo an Alle! ich versuche gerade ein Prog zum Bilder ein- und auslesen zu erstellen. Auf meiner Form liegt unter anderem ein Image(Picture1), welches so gefüllt wird: ShowPicture Picture1, sInhalt Public Sub ShowPicture(Picture1 As Control, _ ByVal sInhalt As String) Dim F As Integer ' Bilddatei temporär erstellen F = FreeFile Open App.Path & "\Bild.tmp" For Output As #F Print #F, sInhalt; Close #F ' Bild anzeigen Picture1.Picture = LoadPicture(App.Path & "\Bild.tmp") ' temporäre Datei löschen Kill App.Path & "\Bild.tmp" End Sub Beim Ereigniss Form load krieg ich immer die Fehlermeldung: "ungültiges Bild" in der Variablen sInhalt steht der Inhalt des Access - MemoFelds, in welchem vorher das Bild so eingelesen wurde: ' Bild in Variable (String) lesen Public Function ReadPicture(sFilename As String) _ As String Dim F As Integer Dim sInhalt As String F = FreeFile Open sFilename For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F ReadPicture = sInhalt End Function Ich hoffe mir kann jemand sagen wo der Fehler liegt, da ich absolut nicht weiterkomme Im vorraus vielen Dank für eure Mühe Armin P.S.: always look on the bright side of Life!

Ungültiges Bild	1.184	Prian0815	25.05.04 10:28
Vielleicht eine Idee...	610	Wookiehuhn	25.05.04 10:52
Re: Vielleicht eine Idee...	639	Prian0815	25.05.04 11:00

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