Visual Basic unterstützt zwar seit der Version 5.0 das GIF-Bildformat, doch werden animierte GIF-Grafiken nicht als solche dargestellt, sondern vielmehr immer nur das erste Bild einer animierten GIF-Grafikfolge. Wie Sie dennoch animierte GIFs in Ihren Programmen anzeigen können, ohne auf zusätzliche Freeware/Shareware oder gar kommerzielle Komponenten zurückgreifen zu müssen, zeigt Ihnen der nachfolgende "weihnachtliche" Tipp Alles was Sie brauchen, sind ein Image- und ein WebBrowser-Control. Das Image-Control verwenden wir, um die Größe der GIF-Grafik zu ermitteln, das WebBrowser-Control übernimmt die Darstellung der animierten GIF-Grafik. Nun wird ja aber bekanntlich immer automatisch ein Scrollbalken im WebBrowser-Control angezeigt, sowie automatisch auch ein kleiner Rand freigehalten. Um diese "Einschränkungen" zu umgehen, schreiben wir eine kleine HTML-Seite mit folgendem Body-Attribut: <html> <body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll='no'> <img src="GIF-Datei.gif"></img> </body> </html> Und genau diesen kurzen HTML-Code übergeben wir dem Navigate-Befehl des WebBrowser-Controls. Zuvor müssen wir aber noch die Größe des Browser-Fensters entsprechend der Bildgröße anpassen. Hierzu laden wir die GIF-Grafik zunächst in ein unsichtbares Image-Control. Da sich die Größe des Image-Controls standardmässig immer der Grafik anpasst, können wir so ganz leicht die Größe an das WebBrowser-Control übetragen: ' Grafik-Größe ermitteln Image1.LoadPicture("GIF-Datei.gif") ' WebBrowser-Fenstergröße anpassen With WebBrowser1 .Width = Image1.Width + 45 .Height = Image1.Height + 45 End With Mit diesen paar Codezeilen können Sie also ab sofort Ihre animierte GIF-Grafiken anzeigen lassen. Hier der vollständige Code ' Animierte GIF-Grafik im WebBrowser-Control anzeigen Public Sub ShowAnimatedGIF(WB As Control, _ img As Control, ByVal sFileGIF As String) Dim sHTML As String ' Größe bestimmten img.Picture = LoadPicture(sFileGIF) With WB ' Größe: WebBrowser-Control .Width = img.Width + 45 .Height = img.Height + 45 ' HTML-Code für das Anzeigen der Grafik sHTML = "about:" & _ "<html>" & _ "<body leftMargin=0 topMargin=0 marginheight=0 " & _ "marginwidth=0 scroll='no'>" & _ "<img src=""" & sFileGIF & """></img></body></html>" .Silent = True .Navigate sHTML End With End Sub Dieser Tipp wurde bereits 71.059 mal aufgerufen. Voriger Tipp | Zufälliger Tipp | Nächster Tipp
Anzeige
Diesen und auch alle anderen Tipps & Tricks finden Sie auch auf unserer aktuellen vb@rchiv Vol.6 (einschl. Beispielprojekt!) Ein absolutes Muss - Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! - nahezu alle Tipps & Tricks und Workshops mit Beispielprojekten - Symbol-Galerie mit mehr als 3.200 Icons im modernen Look Weitere Infos - 4 Entwickler-Vollversionen (u.a. sevFTP für .NET), Online-Update-Funktion u.v.m. |
vb@rchiv CD Vol.6 Geballtes Wissen aus mehr als 8 Jahren vb@rchiv! Online-Update-Funktion Entwickler-Vollversionen u.v.m. Tipp des Monats April 2024 Skyfloy Chart von Microsoft und dazu noch gratis Tutorial für Microsoft Chart Controls für Microsoft .NET Framework 3.5 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. |
||||||||||||||||
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. |