# Re: 问一个粉笨的问题~~

Posted by 小瓜瓜 on October 21, 1999 at 12:37:52:

In Reply to: Re: 问一个粉笨的问题~~ posted by Mikasa on October 12, 1999 at 22:16:01:

: : 放Unload第一个form前面就可以。

: ㄟ..我的意思是
: 我第一个form的form_load()程式码是
: .......
: MMControl1.Command = "Open"
: MMControl1.Command = "Play"
: 我想要avi档run完之后,程式"自动"换到下一个from去
: 但是"unload form1
: form2.show"
: 这一段程式码不知道要放在什么事件之后,才有办法自动
: 跳到下一个form画面?

我的上一个回答错了!!抱歉没看清楚你的题目
在Form1里加入Timer物件以判断AVI是否播完
Private Sub Timer1_Timer()
If MMControl1.Position >= MMControl1.TrackLength 'AVI是否播完的判断 Then
Form2.Show
Unload ME
End If
End Sub

Follow Ups: