807
社区成员
发帖
与我相关
我的任务
分享vb录制视频
我用picturebox实现了一个动画效果，我想通过vb把这段动画录制下来，请问：哪位高手帮我解决这个问题？急急急.....................谢谢了。我的邮箱是bxf_fxb@126.com
...全文
请发表友善的回复…
发表回复
thirdapple 2004-12-04
- 打赏
- 举报
在www.applevb.com上找，有个连接是一个专门用vb做avi录制的网站
wwqna 2004-12-03
- 打赏
- 举报
这种方法只适合少量视频的录制，多了根本放不下了
莫情莫钱 2004-12-03
- 打赏
- 举报
是啊,总有人那么聪明的,是很想和他们交个朋友,不过^……
zhaimeiyu 2004-12-03
- 打赏
- 举报
聪明， baoaya(点头)，谢谢指点， 怎么和你联系？
行云边 2004-11-29
- 打赏
- 举报
对不起 SavePicture App.Path & "\" & m_count & ".bmp", Picture1.Image 应该是
SavePicture Picture1.Image,App.Path & "\" & m_count & ".bmp"
SavePicture Picture1.Image,App.Path & "\" & m_count & ".bmp"
行云边 2004-11-29
- 打赏
- 举报
晕 放一个timer 设置好timer 的Interval 属性（保存的频率） 然后保存
Dim m_count As Integer
Dim m_pic As New StdPicture
Private Sub Timer1_Timer()
If m_pic <> Picture1.Picture Then
SavePicture App.Path & "\" & m_count & ".bmp", Picture1.Image
m_count = m_count + 1
m_pic = Picture1.Picture
End If
End Sub
Dim m_count As Integer
Dim m_pic As New StdPicture
Private Sub Timer1_Timer()
If m_pic <> Picture1.Picture Then
SavePicture App.Path & "\" & m_count & ".bmp", Picture1.Image
m_count = m_count + 1
m_pic = Picture1.Picture
End If
End Sub
lndlwwh830 2004-11-24
- 打赏
- 举报
中国真正的 高手少呀！！！
AprilSong 2004-11-21
- 打赏
- 举报
如果只是一小段的话……
单帧存成文件后再用Ulead GIF Animator一类的软件连成动画
或者用SnagIt直接抓成视频也行
直接用VB做不大现实～
单帧存成文件后再用Ulead GIF Animator一类的软件连成动画
或者用SnagIt直接抓成视频也行
直接用VB做不大现实～
Coyozo 2004-11-21
- 打赏
- 举报
这个很麻烦的
tomclose 2004-11-18
- 打赏
- 举报
up
gz
gz
zhaimeiyu 2004-10-23
- 打赏
- 举报
请问：在中国就真的就没有这方面的高手吗？
还是中国的高手就不上csdn？
还是中国的高手就不上csdn？
zhaimeiyu 2004-10-21
- 打赏
- 举报
谢谢上楼的。
帖子发了一天了，有没有高手帮忙解决一下了呀？？？
帖子发了一天了，有没有高手帮忙解决一下了呀？？？
jam021 2004-10-20
- 打赏
- 举报
关注,帮你顶!
