vb.net 怎么播放.avi

Question

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try AxAnimation1.Open("D:\123.avi") AxAnimation1.Play() AxAnimation1.Refresh() Me.Cursor = System.Windows.Forms.Cursors.WaitCursor Catch ex As Exception Console.WriteLine(ex.ToString) End Try End Sub
就是想问vb.net怎么播放.avi文件
用AxMsComCtrl2.AxAnimation实现的，vb.net还未入门，最好能给了例子
谢谢！

Answer 1

给你个解决方案，用VB.net自带的AxWindowsMediaPlayer控件能解决
“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“Windows Media Player”组件，单击“确定”按钮。将该组件添加到指定的工具箱选项卡中 ，然后在工具箱里面找 Windows Media Player 控件，拉到form里面，拉出来的控件就是AxWindowsMediaPlayer
下面是使用方法：
AxWindowsMediaPlayer1.URL = "D:\123.avi" '--------只需要这么一句话就可以播放D盘123.avi
如果要暂停则： AxWindowsMediaPlayer1.Ctlcontrols.pause() '更多功能自己去摸索

追问

您这个效果不是我想要的，你试试下面这中方法
“工具箱”中单击右键，选择“选择项”菜单，打开“选择工具箱项”窗口，选择“COM组件”标签，在列表中找到并勾选“"Microsoft Animation Controlversion6.0 "组件单击“确定”按钮。将该组件添加到指定的工具箱选项卡中 ，然后在工具箱里面找 Microsoft Animation 控件，拉到form里面，
具体代码怎么写我不知道！o(╯□╰)o

追答

Animation控件只能播放没有声音的.avi文件，并且Animation控件只能播放解压缩的或使用RLE（行程长度编码，Run-Length Encoding）压缩的.avi文件。
所以当你用 AxAnimation1.Open("D:\123.avi")代码时，如果其avi文件不满足要求就会出现“不能打开AVi文件的错误提示”
不要一条道走到天黑，用别的控件实现又怎么不可以？

追问

谢谢啦。通过你的回答我解决啦，我还是用的Animation控件，不过把.avi文件给处理的一下，我播放的就是没声音的动画。