Geschrieben von browserdune am 16.03.2005, 11:14

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

Bewertung Anzahl
6
33,3 %
1 Bewertungen
4
33,3 %
1 Bewertungen
3
33,3 %
1 Bewertungen