| |
Visual-Basic EinsteigerRuntime-Error 481 - Invalid Picture | | | Autor: crosstravel | Datum: 24.12.16 10:37 |
| Hallo,
ich habe meine Applikation auf einem Kundenrechner installiert und beim antesten des Programmes kommte der obige Fehler. Trotz intensiver Suche im Web habe ich noch keine Lösung des Problems gefunden.
Die Konfiguration ist wie folgt:
- PC mit Windows 7 Professional, 64 Bit
- Icons liegen im eigenen folder in C:\Program Files (x86)\Icons\
sobald die Kontrolle im Programm auf das LoadPicture übergeht, knallt es.
With sevGrid
.Clear True
.LockUpdate True
.DataMode = Mode_List
.Icons.Add LoadPicture (Pfad & "Einstieg.ico") Habe das auch auf einer "frischen" Windows 10 Installation getestet - gleiches negatives Resultat!
Auf unseren Etwicklungsrechnern (32-Bit und 64-Bit Windows 7) funktioniert alles korrekt. Ich sehe
nicht, wo das Problem seine Ursache hat und was für eine Lösung (evtl. Umgehungslösung) möglich wäre.
vielleicht hat auch schon jemand das Problem gehjabt und kann helfen?
Danke und ein schönes Weihnachtsfest
Rainer | |
Re: Runtime-Error 481 - Invalid Picture | | | Autor: Zardoz | Datum: 25.12.16 23:57 |
| Hallo Rainer,
für Fragen zu Sev-Controls gibt es hier ein eigenes Forum:
http://www.vbarchiv.net/forum/list_20_sev-komponenten.html
Ist in der IDE unter Projekt -> Verweise das
Häkchen vor OLE-Automation gesetzt?
Hat der in der Variablen Pfad stehende Dateipfad
am Ende ein "\"?
Grundsätzlich würde ich bei einem gewerblich
genutzten Programm jede Datei vor dem Laden
mit Dir$(...) auf Existenz prüfen und gegebenenfalls
eine Fehlermeldung ausgeben.
Funktioniert denn das Laden der Datei außerhalb
der Sev-Komponente? Probier' mal diesen Code
unter Windows10:
Dim P As StdPicture, Pfad As String
Pfad = "C:\Program Files (x86)\Icons\Einstieg.ico"
If Dir$(Pfad) = "" Then
MsgBox "Datei nicht gefunden:" & vbCr & Pfad, vbExclamation + vbOKOnly
Exit Sub
End If
Set P = LoadPicture(Pfad) Ansonsten probier' mal eine andere Icon-Datei.
Gruss,
Zardoz | |
Re: Runtime-Error 481 - Invalid Picture | | | Autor: crosstravel | Datum: 26.12.16 12:15 |
| Hallo Zardoz,
danke für Dein Posting. Ich habe es so einmal eingebaut - leider brachte es keinen Erfolg. Aber im Zusammenhang mit dem Test Deines Codeschnipsels fand ich doch die Lösung.
Ich stellte fest, dass einige der verwendeten Icons eine Farbtiefe von 256 aufwiesen. Immer wenn das LoadPicture auf ein solches Icon traf, knallte es mit dem Error 481. In der Folge reduzierte ich
die Farbtiefe auf 16 und siehe da, das Programm lief durch.
Bei einem solchen Fehler ist es sehr schwierig die Ursache zu finden. Komisch ist auch, dass die
Programme bisher problemlos gelaufen sind. Ich vermute, da spielt irgendein Windows-Update eine
Rolle.
Nochmals vielen Dank
Rainer | |
Re: Runtime-Error 481 - Invalid Picture | | | Autor: Franki | Datum: 27.12.16 01:42 |
| Hallo Rainer,
mir hat damals das hier geholfen und der dort verlinkte Workshop.
http://www.vbarchiv.net/tipps/details.php?id=1392
Ansonsten noch der Hinweis, dass ich benötigte Icons immer aus einer ImageList lade und nicht aus dem Dateisystem des Rechners auf dem meine App läuft. Da kann viel schief gehen (Datei nicht vorhanden, Pfad falsch usw.) Bei einer ImageList ist die Gefahr wesentlich geringer, dass das passiert und man kann vorher telsten ob alle Icons auch funktionieren.
Gruß
Frank | |
Re: Runtime-Error 481 - Invalid Picture | | | Autor: crosstravel | Datum: 27.12.16 08:58 |
| Hallo Franki,
danke für Deinen Hinweis. Ich werde als nächsten Schritt die betroffenen Programme umbauen und die benötigten Icons aus einer imagelist beziehen. Aus Fehlern wird man klug.
Einen schönen Tag und herzliche Grüsse
Rainer | |
Re: Runtime-Error 481 - Invalid Picture | | | Autor: Franki | Datum: 28.12.16 00:11 |
| Hallo Rainer,
na ja, ein Fehler war das ja nicht von dir, das was du gemacht hast ist durchaus übliche Praxis. Aber aus Erfahrung wird man klug, aber die Erfahrung muss man selbst machen. Also kontrolliere das anhand eines Testprojekt, eines (problematischen) Testicons oder was auch immer bevor du da x Programme anfängst umzuschreiben.
Ich wünsche dir viel Glück bei der Umstellung und schon mal einen guten Rutsch ins neue Jahr,
Gruß
Frank | |
| 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 |
|
|
vb@rchiv CD Vol.6 vb@rchiv Vol.6
Geballtes Wissen aus mehr als 8 Jahren vb@rchiv!
Online-Update-Funktion Entwickler-Vollversionen u.v.m.Jetzt zugreifen Tipp des Monats sevAniGif (VB/VBA)
Anzeigen von animierten GIF-Dateien
Ab sofort lassen sich auch unter VB6 und VBA (Access ab Version 2000) animierte GIF-Grafiken anzeigen und abspielen, die entweder lokal auf dem System oder auf einem Webserver gespeichert sind. Weitere Infos
|
|
|
Copyright ©2000-2024 vb@rchiv Dieter Otter Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.
Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel
|
|