如何在VB中app加载动画 gifGIF动画，运行时可以显示动画效果？

来源：蜘蛛抓取(WebSpider) 时间：2017-04-18 21:55 标签： 加载gif动画 透明底
PictureBox显示GIF动画
PictureBox控件中显示GIF动画(图片)
VB显示GIF新方法句柄法&&
'引用 windows\system32\quartz.dll
'在PictureBox控件中显示GIF动画（图片）,凡有句柄hwnd的窗体控件均可以
'在窗体Form1上添加2个命令按钮Command1,Command2和1个图片框控件Picture1
Option Explicit
'调用运动图像播放类型库Quartz.dll,在c:\windows\system32目录下
Private pMC As FilgraphManager '定义pMC为 FilgraphManager 对象
Private pVW As IVideoWindow '定义pVW为 IVideoWindow 对象
'播放GIF动画
Private Sub Command1_Click()
On Error Resume Next
Set pMC = New FilgraphManager
pMC.RenderFile ""
'加载GIF文件
On Error GoTo Lhandle
pMC.RenderFile "d:\ddd.gif" '加载GIF动画（图片），并在PictureBox中播放
On Error Resume Next
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 '一直播放
MsgBox ("加载文件错误！")
'停止播放GIF动画
Private Sub Command2_Click()
Set pVW = Nothing
Set pMC = Nothing
Private Sub Form_Load()
Me.ScaleMode = 3
Picture1.ScaleMode = 3
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。天极传媒：天极网全国分站
您现在的位置： &&
好用的GIF动画播放控件
　　在《电脑报配套光盘第四辑》中有一个非常好用的在程序中播放GIF动画的控件??Animation
GIF OCX。它支持当今最流行的开发平台，包括VB、VC＋＋、、VBA、Access、Delphi等。它是OLE容器中一个显示GIF文件的OLE控件模块，支持所有Gif98a标准，包括透明、动画、循环、延时、逻辑屏幕、回复到上一幅图片或背景等。它的重要属性、方法及事件见附表。
　　下面举例介绍一下如何在VB5.0企业版中使用该控件：
　　1?将《电脑报配套光盘第四辑》上developvbanigifanigif.zip文件解压缩到你的上，并将其中的anigif.ocx拷贝到c:windowssystem(假设windows95位于C盘windows目录下)。
　　2?进入VB5.0系统。
　　3?选新建?标准EXE。
　　4?选菜单中的工程?部件?控件，将“Animation GIF OLE Control”一项选中，单击“确定”(或单击“浏览”，找到Anigif.ocx文件，单击“打开”，再单击“确定”)。此时，在“工具箱”中增加了一个外形像一张电影胶片写着GIF字样的控件。用它就可以在程序中控制GIF动画的播放。
　　5?在“GIF”控件上单击，在窗体上用拉出一个框(即对象Anigif1)，设置其属性如下：
　　Anigif1.GIF　／为你要播放的动画文件(＊?gif)
　　Anigif1.Speed=1　／1代表正常播放，2代表慢速播放
　　Anigif1.Transparent=True　／背景透明
　　6?再在窗体中分别建立两个按钮Command1和Command2，分别设置其属性：
　　Command1.Caption=“开始播放”
　　Command2.Caption=“停止播放”
　　7?在Command1的Click事件中输入：Anigif.Play
　　在Command2的Click事件中输入：Anigif.Stop
　　8?运行这个窗体，就可实现GIF动画播放。
　　你还可以用Anigif.ocx的其它方法设置符合你个人需要的播放过程和方法。(吉林　翟　辉)
责任编辑：）
欢迎在新浪微博上关注我们
笔记本手机数码家电10 个超酷的加载中的 Gif 动画
#1: Calming cat loading gif
#2: Stylish loading gif
#3: Shape changing loading gif
#4: Loading gif for ecommerce
#5:& Flipping book loading gif
#6: Pretty cool loading gif
#7: Bear climbing loading gif
#8: Structure loading gif
#9: Hand draw loading gif
#10: Flat design loading gif
转载请注明：文章转载自 开源中国社区
本文标题：10 个超酷的加载中的 Gif 动画
本文地址：温馨提示！由于新浪微博认证机制调整，您的新浪微博帐号绑定已过期，请重新绑定！&&|&&
LOFTER精选
网易考拉推荐
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
阅读(1093)|
用微信&&“扫一扫”
将文章分享到朋友圈。
用易信&&“扫一扫”
将文章分享到朋友圈。
历史上的今天
在LOFTER的更多文章
loftPermalink:'',
id:'fks_',
blogTitle:'在VC程序中加载GIF动画',
blogAbstract:'\n\n　　PictureEx图片显示类支持以下格式的图片：GIF (including animated GIF87a and GIF89a),\nJPEG, BMP, WMF, ICO, CUR等，我特别推崇的是可以做出动画，而且轻而易举，确实很COOL。\n下面是详细的编程过程：\n\n\n\n\n\n1. 新建项目：在VC6中用MFC新建一个基于对话框的GifDemo应用程序，接受所有缺省选项即可；\n\n2.在项目中插入文件：把PictureEx.h，PictureEx.cpp文件copy 到项目文件夹下，Project-＞Add to\nProject-＞Files中选上PictureEx.h，PictureEx.cpp， I',
blogTag:'vc',
blogUrl:'blog/static/',
isPublished:1,
istop:false,
modifyTime:0,
publishTime:4,
permalink:'blog/static/',
commentCount:0,
mainCommentCount:0,
recommendCount:0,
bsrk:-100,
publisherId:0,
recomBlogHome:false,
currentRecomBlog:false,
attachmentsFileIds:[],
groupInfo:{},
friendstatus:'none',
followstatus:'unFollow',
pubSucc:'',
visitorProvince:'',
visitorCity:'',
visitorNewUser:false,
postAddInfo:{},
mset:'000',
remindgoodnightblog:false,
isBlackVisitor:false,
isShowYodaoAd:false,
hostIntro:'',
hmcon:'0',
selfRecomBlogCount:'0',
lofter_single:''
{list a as x}
{if x.moveFrom=='wap'}
{elseif x.moveFrom=='iphone'}
{elseif x.moveFrom=='android'}
{elseif x.moveFrom=='mobile'}
${a.selfIntro|escape}{if great260}${suplement}{/if}
{list a as x}
推荐过这篇日志的人：
{list a as x}
{if !!b&&b.length>0}
他们还推荐了：
{list b as y}
转载记录：
{list d as x}
{list a as x}
{list a as x}
{list a as x}
{list a as x}
{if x_index>4}{break}{/if}
${fn2(x.publishTime,'yyyy-MM-dd HH:mm:ss')}
{list a as x}
{if !!(blogDetail.preBlogPermalink)}
{if !!(blogDetail.nextBlogPermalink)}
{list a as x}
{if defined('newslist')&&newslist.length>0}
{list newslist as x}
{if x_index>7}{break}{/if}
{list a as x}
{var first_option =}
{list x.voteDetailList as voteToOption}
{if voteToOption==1}
{if first_option==false},{/if}&&“${b[voteToOption_index]}”&&
{if (x.role!="-1") },“我是${c[x.role]}”&&{/if}
&&&&&&&&${fn1(x.voteTime)}
{if x.userName==''}{/if}
网易公司版权所有&&
{list x.l as y}
{if defined('wl')}
{list wl as x}{/list}

我要回帖

更多关于 加载gif动画 透明底 的文章

 

随机推荐