vb是不是不能调用资源文件中的jpg图片阿,到处搜索,没有找到答案,请高手帮忙。
解决方案 »
- 一个传说中的菜菜的问题
- 在sql server中运行正常的代码,为什么在用Oracel 9i的时候,却出现不支持addnew()的问题??
- MSChart问题
- 我用WM_GETTEXT可以获得qq聊天窗口的内容,为什么却获得不了qq专门聊天室窗口文本的内容?
- 请帮忙解释这个实现多重redo和undo的例子.
- 有个程序需要大量的时间来等待,我想用一个进度条来显示程序的执行进度,我不知道用什么方法来实现,是否可用一个线程来解决,或还有什么办法
- 急求installshield 6.1的下载地址
- 怎么学习?
- 我是不是一个大菜鸟?
- vb中怎样注释掉一段文字?
- 大家点评一下我这个帖子吧?
- 通用对话框导致程序死掉!
'-------加载GIF动画资源文件
Dim Gif() As Byte
Dim Gifpath As String
Gifpath = App.Path & "\temp.gif"
Gif = LoadResData(101, "CUSTOM") '读取资源文件,101号是个GIF图片
Open Gifpath For Binary Access Write As #1
Put #1, , Gif
Close #1
'定义AniGif1动画控件
AniGif1.BorderStyle = 0
AniGif1.FileName = Gifpath '加载动画
'在退出使用后可删除动画文件
Kill App.Path & "\temp.gif"