Wer kennt ncht das leidige Thema das man keine animierten .gif-Dateien mit VB6 darstellen kann. Da kommt und die Eigenschaft des WebBrowser-Control gerade recht. ( Info: Es arbeitet mit den Interneteinstellungen des Internet-Explorers / Der sollte also installiert sein ). Das ganze kann auch mit normalen .gif-Dateien gemacht werden, wäre dann aber irgendwie Sinnlos.
Wir brauchen
- eine Form ( um damit man auch was sieht ;)
- ein Image-Control ( Um die Grö0e der Grafik zu ermitteln )
- ein WebBrowser-Control ( Um die Grafik zu animieren )
Für die ganze Darstellung schreiben wir und eine kleine HTML-Seite.
<html>
<body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll='no'>
<img src="GIF-Datei.gif"></img>
</body>
</html>
Dieser Code wird direkt an das Navigate-Ereignis des WebBrowser-Control übergeben.
Damit die Grösse des WebBrowser-Control stimmt wird diese mit Hilfe des Image-Contols ermittelt und angepasst.
Image1.LoadPicture("GIF-Datei.gif")
With WebBrowser1
.Width = Image1.Width + 45
.Height = Image1.Height + 45
End With
-----
Hier das ganze in einer Prozedur: "ShowAnim"
' Anzeigen von animierten .gif Dateien
' Es wird übergeben:
' - Der Name der WebBrowser-Control
' - Der Name des Image-Control
' - Der Name der .gif-Datei
Public Sub ShowAnim( CTRL_WB As Control, CTRL_Img As Control, ByVal STR_Image As String)
Dim STR_HTML As String
' Bild laden ( Größe )
CTRL_Img.Picture = LoadPicture( STR_Image )
With CTRL_WB
' Größe an WebBrowser-Control "übergeben"
.Width = CTRL_Img.Width + 45
.Height = CTRL_Img.Height + 45
' HTML-Code
STR_HTML = "about:<html><body leftMargin=0 topMargin=0 marginheight=0 marginwidth=0 scroll='no'><img src=""" & STR_Image & """></img></body></html>"
.Silent = True
.Navigate STR_HTML
End With
End Sub