`

vb添加GIF动态图片

 
阅读更多

众说周知,GIF格式动画文件具有小巧、制作方便等特点,因此在网上得到广泛应用,在vb的picturebox和image控件添加图片后变成静止的了,这给我们设计VB应用程序带来了不便。原来以为实现起来特别的麻烦,又要注册控件,还得添加部件。通过学习方法特别很多,而且并没有多麻烦:

一、最简单的方法

1、在picturebox控件中添加gif格式图片

首先、需要注册,注册方法:在工程中选中“引用”→引用项目ActiveMovie Control type Libray→然后点击“确定”键即可。

其次、'在PictureBox控件中显示GIF动画(图片),凡有句柄hwnd的窗体控件均可以;在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1。

(1)、在代码窗口的通用段添加:

'调用运动图像类型库Quartz.dll,在c:\windows\system32目录下

Private pMC As FilgraphManager '定义pMC为FilgraphManager对像

Private pVW As IVideoWindow '定义pVW为IVideoWindow对像 

(2)、command1的单击事件

PrivateSub Command1_Click()

On Error Resume Next

    Set pMC = New FilgraphManager

    pMC.Stop

    pMC.RenderFile ""

    '加载GIF文件

    OnErrorGoTo Lhandle

'    pMC.RenderFile App.Path & "\enter.gif" '加载GIF动画(图片)

    pMC.RenderFile App.Path & "\20110606.jpg"

    OnErrorResumeNext

    Set pVW = pMC

    pVW.WindowStyle = CLng(&H6000000)

    '限定动画在Picture1的大小中

    pVW.Left = 0

    pVW.Top = 0

    pVW.Width = Picture1.ScaleWidth

    pVW.Height = Picture1.ScaleHeight

    pVW.Owner = Picture1.hWnd '在Picture1中显示

    pVW.MessageDrain = Picture1.hWnd '此行非常重要,用来定义动画的右键菜单所必须

    pMC.Run

Exit Sub

Lhandle:

    MsgBox ("Load Error!")

End Sub

(3)、command2的单击事件

Private Sub Command2_Click()

         pMC.Stop

         Set pVW = Nothing

         Set pMC = Nothing

End Sub

(4)、窗体的下载事件

PrivateSub Form_Load()

    Me.ScaleMode = 3

    Picture1.ScaleMode = 3

End Sub

2、在image控件中添加gif格式图片中

由于image控件没有句柄,实现起来有点麻烦,而且效果不是很好,基本的过程和代码是一样,只是有点稍微的区别

首先、注册跟上面一样。

其次、在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件image1

(1)、在代码窗口的通用段添加:

'调用运动图像类型库Quartz.dll,在c:\windows\system32目录下

Private pMC As FilgraphManager

Private pVW As IVideoWindow

(2)、command1的单击事件

Private Sub Command1_Click()

         On Error Resume Next

         Set pMC = New FilgraphManager

         pMC.Stop

         pMC.RenderFile ""

         '加载GIF文件

         On Error GoTo Lhandle

         pMC.RenderFile "c:\1.gif"        '加载GIF动画(图片)

         'On Error Resume Next

         Set pVW = pMC

         pVW.WindowStyle = CLng(&H6000000)

         pVW.Left = 0

         pVW.Top = 0

         pVW.Width = Image1.Width / Screen.TwipsPerPixelX

         pVW.Height = Image1.Height / Screen.TwipsPerPixelY

         pVW.Owner = 0

         pVW.MessageDrain = 0

         pMC.Run

         Exit Sub

Lhandle:

         MsgBox ("加载文件错误!")

End Sub

(3)、command2的单击事件

Private Sub Command2_Click()

         pMC.Stop

         Set pVW = Nothing

         Set pMC = Nothing

End Sub

(4)、窗体的初始化

Private Sub Form_Load()

     Image1.Visible = False

     Image1.Width = Screen.TwipsPerPixelX

     Image1.Height = Screen.TwipsPerPixelY

     Set Image1.Picture = LoadPicture("c:\1.gif")

End Sub

绿色是代码不相同的地方,控件不同,添加的gif的图片最终实现的效果也不相同。

二、一个全新的处理方案:通过在VB中调用IE浏览器来实现GIF动画的播放,实际使用表明:效果甚好。

具体方法如下:

1.由于WebBrowser控件并不是VB的基本控件,因此在使用该控件之前必须先将其装入工具箱中。装入方法:在工具箱中点击鼠标右键→选中“部件”→复选Microsoft Internet Controls→然后点击“确定”键即可或在工程中选中“部件”→复选Microsoft Internet Controls→然后点击“确定”键即可。

2.选取WebBrowser控件,添加到窗体的相应位置上。

3.设计相应代码,通过使用WebBrowser控件的Navigate方法播放GIF动画文件。

Navigate方法的语法格式为:

WebBrowser控件名.NavigateURL[Flags,][TargetFrameName,][PostData,][Headers]

WebBrowser控件支持的主要方法有:

GoBack: 回退到上一屏。

GoForward: 进入到下一屏。

GoHome: 回家。即回到主页。

Stop: 停止导航。

Refresh: 刷新。

Navigate:导航。

WebBrowser控件所响应的事件:

BeforeNavigate事件: 在开始导航前发生。一般在此获取完整的URL字符串。

WebBrowser控件最主要的参数: URL: 获得导航用的标准URL字符串。例如:它能将”www.MicroSoft.Com”自动翻译为http://www.MicroSoft.com”.URL是Uniform Resource Locator的缩写,是在Internet的WWW服务程序上用于指定信息位置的表示方法。

下面我们结合一个实例进行具体说明:动画用WebBrowser控件实现播放。

所需控件: WebBrowser控件

Private   Sub   Form_Load()  ’在Form_Load()事件中进行初始化工作

      WebBrowser1.Navigate(App.Path& "new1.gif ")

end sub

三、最麻烦的方法

用PictureBox控件或Image控件或窗体的背景图片来显示动的图片,可以考虑用Timer控件使每隔一定的时间就更改一次控件的Picture属性来切换控件的图片以达到动画的效果。

首先要用Gif编辑软件将Gif图片中的一个个小图片另存到“C:\新建文件夹\”中,并依次重命名为0.gif、1.gif、2.gif……

然后写代码:

Dim i As Integer

Private Sub Timer1_Timer()
On Error Goto Err
url = "C:\新建文件夹\" & i & ".gif"
Me.Picture = LoadPicture url
i = i + 1
Exit Sub
Err:
i = 0
Exit Sub
分享到:
评论

相关推荐

    VB 播放Gif动画

    然而,由于Image控件本身并不支持动态Gif,因此我们不能直接用它来播放Gif动画。为了解决这个问题,我们可以借助第三方库或者ActiveX控件,例如Microsoft的MSComctlLib库中的Animation控件。 1. 添加Animation控件...

    vb中添加gif图片

    在VB6.0(Visual Basic 6.0)中,如果你想要添加并显示GIF动态图像,确实需要利用一些特定的控件,因为标准的VB控件如PictureBox并不支持GIF格式的动态显示。这里我们将深入探讨如何在VB6.0中实现这个功能。 首先,...

    vb.net创建GIF动画的DLL,C#创建GIF动画

    首先,标题中的"vb.net创建GIF动画的DLL"指的是在VB.NET环境中开发一个动态链接库(DLL),该库包含了处理和生成GIF动画的函数和类。DLL是一种共享代码的机制,可以被多个应用程序同时使用,从而节省内存并提高程序...

    vb添加gif图片源码啊

    在VB(Visual Basic)编程中,添加GIF动态图片是一项常见的任务,特别是在开发GUI(图形用户界面)应用程序时。GIF格式支持动画,因此能够为应用程序增添动态效果。以下是一些关于如何在VB中添加和处理GIF图片的关键...

    VB播放Gif 动画

    PictureBox是VB中的一个基本控件,它可以用于显示静态图片,但通过适当的编程,也可以用来播放GIF动画。首先,将PictureBox添加到窗体上,然后设置其SizeMode属性为StretchImage或AutoSize,以便适应GIF图像。接着...

    本实例讲如何用vb播放gif动画

    1. **GDI+库**:VB6及更早版本不直接支持GIF动画,但可以利用Windows图形设备接口(GDI)或GDI+库来处理图像,包括动态GIF。GDI+提供了丰富的图形绘制和处理能力,可以用来加载和显示GIF。 2. **Image对象**:在VB...

    VB6-GIF动画

    在VB6(Visual Basic 6)中,要实现GIF动画的加载和显示,开发者需要了解几个关键知识点。GIF是一种支持多帧动画的图像格式,广泛用于网页和其他应用程序中。下面将详细介绍如何在VB6中处理GIF动画以及相关的编程...

    VB基于WebBrowser打开播放GIF 动画文件

    在本主题中,我们将详细探讨如何利用VB和WebBrowser控件来播放GIF动画文件。 GIF是一种支持动画的图像格式,常用于创建简单的动态效果。在VB中,我们可以借助WebBrowser控件来展示这些动态效果,因为WebBrowser控件...

    VB将多个BMP图片合成GIF图片

    在VB6.0环境下,将多个BMP图片合成为GIF动态图是一项常见的图像处理任务。这个过程涉及到图像处理库的使用,特别是第三方组件——wsAniGif.dll。这个DLL文件提供了创建、编辑和保存GIF动画的功能,使得VB6.0能够支持...

    VB GIF控件

    VB GIF控件是一种在Visual Basic (VB) 应用程序中用于显示GIF格式的透明动态图片的组件。这个控件使得开发者无需深入了解图形处理的底层细节,就能够轻松地在VB程序中集成GIF动画。在VB环境中,控件通常是通过“部件...

    VB6.0 在图片框中显示PNG图片

    在VB6.0环境下,显示PNG图片可能会遇到一些挑战,因为PNG格式支持透明度和24位真彩色,而VB6.0的标准控件图片框(PictureBox)原生只支持GIF、BMP等不带Alpha通道的图像格式。不过,通过引入第三方库或使用特定方法...

    如何在Word和Excel里插入gif动态图片

    Office Excel 和 Word 文档中插入图片很容易做到,但是要插入 GIF 动画,并且还要能让这个动画动起来, 就不能依照普通的“插入 → 图片 → 来自文件”的方法了,否则的话即便是把 GIF 插入进去,也只是个静态的画面...

    通明GIF动画控件 半通明GIF动画控制 VB透明动画控件

    在VB(Visual Basic)编程环境中,开发人员经常需要处理各种用户界面元素,其中包括动态图像,如GIF动画。"通明GIF动画控件"是一个专门为此目的设计的组件,它允许开发者在VB应用程序中轻松地集成半透明的GIF动画。...

    VB中利用GIF生成动画的控件及示例.rar

    本资源“VB中利用GIF生成动画的控件及示例.rar”提供了一个专用的控件,用于在VB应用程序中实现GIF动画的创建和展示。这个控件使得开发者能够轻松地将一系列连续的GIF图片串连起来,形成流畅的动画效果,并且还支持...

    有了这个控件,你就可以在VB中使用GIF动画了(144KB)

    标题中的“有了这个控件,你就可以在VB中使用GIF动画了”表明这是一个关于Visual Basic(VB)的开发资源,特别是一个控件,能够支持GIF动画的展示。这通常意味着开发者可以通过集成这个控件到他们的VB应用程序中,...

    使程序中可以使用Gif动画,而不是静态的图片

    总之,通过使用AniGIF控件,开发者能够在VB或其他支持ActiveX技术的环境中方便地集成Gif动画,为用户界面增添动态元素,提升用户体验。无论是简单的演示还是复杂的交互,掌握这一技巧都将对你的编程事业大有裨益。

    VB.NET提取图像 支持BMP、JPG、GIF等格式.rar

    VB.NET的Image类同样可以处理GIF图像,但若要处理动画GIF,我们需要使用GifDecoder类或其他第三方库,如FreeImage或ImageMagick。 ICO是Windows系统下的图标文件格式,可以包含多个不同尺寸和颜色深度的图标。VB...

    VB 用Picture属性加载图片

    这篇详细讲解将深入探讨如何利用Picture属性在VB中加载图片,以及相关的编程技巧。 首先,理解Picture属性。在VB中,Picture属性通常与PictureBox控件一起使用,用于设置或获取PictureBox控件显示的图像。这个属性...

    VB6给文本框添加背景图片

    在VB6(Visual Basic 6.0)编程环境中,为文本框(TextBox)添加背景图片是一种常见的美化界面的方法。这个项目提供了一种解决方案,通过自定义控件和一些辅助类来实现这一功能。以下是相关知识点的详细说明: 1. *...

    VB6.0图片资源

    在VB6.0中,图片资源是非常重要的组成部分,它们可以用于创建用户友好的界面,增强程序的视觉效果,或者作为游戏、教学软件等各类应用中的图标、背景和动态元素。 这个图片素材库可能包含各种格式的图片,如BMP...

Global site tag (gtag.js) - Google Analytics