ScottF
Mar 19th, 2000, 12:40 AM
There is a way to make an animated GIF appear on your Form without it looking like you're using the WebBrowser Control, but of course, you do...
Place a WebBrowser Control Within a Picturebox Control..
I'm getting a Error Sub Are Function not defined on WebBrowser1.Move
code:--------------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Load_Cancel
With CommonDialog1
.CancelError = True
.DialogTitle = "Open an Animated GIF"
.Filter = "GIFS (*.GIF)|*.GIF"
.ShowOpen
WebBrowser1.Navigate .FileName
WebBrowser1.Move ScaleX(-12, vbPixels, vbTwips), ScaleY(-19, vbPixels, vbTwips), Width, Height
Picture1 = LoadPicture(.FileName)
Picture1.AutoSize = True
End With
Load_Cancel:
End Sub
Place a WebBrowser Control Within a Picturebox Control..
I'm getting a Error Sub Are Function not defined on WebBrowser1.Move
code:--------------------------------------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Load_Cancel
With CommonDialog1
.CancelError = True
.DialogTitle = "Open an Animated GIF"
.Filter = "GIFS (*.GIF)|*.GIF"
.ShowOpen
WebBrowser1.Navigate .FileName
WebBrowser1.Move ScaleX(-12, vbPixels, vbTwips), ScaleY(-19, vbPixels, vbTwips), Width, Height
Picture1 = LoadPicture(.FileName)
Picture1.AutoSize = True
End With
Load_Cancel:
End Sub