关于Open 方法（动画控件）示例(VBA)

gemini527

在下面示例中，用“打开”对话框打开一个 .avi 文件并自动播放。
要试用此例，在窗体上放置 Animation 控件和 CommonDialog 控件，并把代码粘贴到窗体的声明部分。
运行该例，并选择要打开的 .avi 文件。
Private Sub Animation1_Click ()
   With CommonDialog1
      .Filter = "avi (*.avi)|*.avi"
      .ShowOpen
   End With
   With Animation1
      .Autoplay = True
     .Open CommonDialog1.Filename
   End WithEnd Sub