6个回答
2013-09-21
展开全部
Private Sub Form_Load()
Image1.Picture = LoadPicture(App.Path & "\13.gif")
WebBrowser1.Navigate (App.Path & "\13.gif") '播放gif动画
End SubPrivate Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Picture1.Visible = True
Image1.Visible = False
End SubPrivate Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Picture1.Visible = False
Image1.Visible = True
End SubPrivate Sub Command3_Click()
End
End Sub 本程序使用了ie控件 也就是webbrowser控件来显示动态的gif图片的 其实还有一个方法就是用anigif控件,不过那个控件是收费的控件。
Image1.Picture = LoadPicture(App.Path & "\13.gif")
WebBrowser1.Navigate (App.Path & "\13.gif") '播放gif动画
End SubPrivate Sub Command1_Click()
Command1.Enabled = False
Command2.Enabled = True
Picture1.Visible = True
Image1.Visible = False
End SubPrivate Sub Command2_Click()
Command2.Enabled = False
Command1.Enabled = True
Picture1.Visible = False
Image1.Visible = True
End SubPrivate Sub Command3_Click()
End
End Sub 本程序使用了ie控件 也就是webbrowser控件来显示动态的gif图片的 其实还有一个方法就是用anigif控件,不过那个控件是收费的控件。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2013-09-21
展开全部
巨无语版:整两个timer,interval都是1,一个启动后自己的Enabled=f,图片=XXX1,另一个的enable=t,另一个启动后自己的Enabled=f,图片=XXX2,第一个的enable=t,
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
很简单,首先在窗体需要添加gif图片的地方拖入picturebox控件,然后在picturebox的image属性里添加gif图片路径就可以了。不要添加到backgroundimage里面,否则gif就不会动了。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |