Display an animated GIF using the WebBrowser control

Display an animated GIF using the WebBrowser control

The standard PictureBox control doesn’t support the Animated GIF graphic format. However, you can display these images by using a WebBrowser control:

WebBrowser1.Navigate "c:ImagesAnimated.Gif"

The only problem of this technique is that the WebBrowser control also displays a vertical and/or horizontal scroll bar. You can hide these scrollbars, if you wish, simply by putting the WebBrowser control inside a PictureBox control, whose width and height is smaller than the WebBrowser control. The following code snippet does that programmatically via the Add method of the Controls collection (requires VB6):

Private Declare Function GetSystemMetrics Lib "user32" Alias "GetSystemMetrics" _    (ByVal nIndex As Long) As LongPrivate Const SM_CXVSCROLL = 2Private Const SM_CYHSCROLL = 3' create a new PictureBoxDim picBox As PictureBoxSet picBox = Controls.Add("VB.PictureBox", "picBox")' resize the picture box so that it can hide the ' WebBrowser's scroll bars    With WebBrowser1    picBox.Move .Left, .Top, .Width - ScaleX(GetSystemMetrics(SM_CXVSCROLL), _        vbPixels), .Height - ScaleY(GetSystemMetrics(SM_CYHSCROLL), vbPixels)    ' move the WebBrowser inside the picture box    Set WebBrowser1.Container = picBox    ' ensure that the WebBrowser's border isn't visible    .Move -ScaleX(2, vbPixels), -ScaleY(2, vbPixels)End With' all controls are created invisiblepicBox.Visible = True


Share the Post: