该程序中运行后只有文件在拷贝，AVI没有播放

编号：QA003465
建立日期: 2000年10月26日 最后修改日期：2000年10月26日
所属类别：

Visual Basic - 磁盘、文件和目录

tinon:
    在一个窗体中有一个播放AVI的控件(vb自带），想实现如下功能：在拷贝文件时，AVI同时播放，但在该程序中运行后只有文件在拷贝，AVI没有播放的效果应修改？应修改？谢谢？
    Private Sub Form_Activate
     FileCopy "e:\test\datas\comm1998.mdb", "a:\abc"
    End Sub
    
    Private Sub Form_Load()
     copyavi.Open App.Path & "\avi\filecopy.avi"
     copyavi.Play
     DoEvents
    End Sub

回答:

    问题是VB在执行FileCopy时并没有调用DoEvents，所以你的AVI动画无法显示。一个办法时采用QA001742 "如何在文件拷贝中使用进度条"所提供的CopyFile函数，而不使用FileCopy。另一个办法是使用API函数SHFileOperation函数，可以参考微软的Knowledge Base的文章：“Q151799 OWTO: Use the Animated Copy Functions in Windows 95/98”。
    
    相关问题：
    QA002812 "哪里可以找到拷贝文件时的动画"

此问题由李海回答。

把这个问题推荐给朋友         您的意见类别 更好的答案 希望得到进一步解释 我有有关代码可以提供给网友 链接错误 文字错误 其他 您的名字 您的电子邮件 您的建议(请尽可能详细)