如何控制flash的关闭按纽？在线等待！！！！！！！

Question

我用webbrowser控件导入了一个flash，flash中有个关闭按扭，请问当用点击这个按扭的时候，怎样由vb程序来实现关闭，是不是跟关闭html业面一样啊，能不能给出代码，非常感谢！！！！！

Answer 1

你的flash应该有个下面的事件Private Sub flash_FSCommand(ByVal command As String, ByVal args As String)
    Select Case LCase(args)
    Case "down"
        rtf.SetFocus
        SendKeys "{PGDN}"
    Case "up"
        rtf.SetFocus
        SendKeys "{PGUP}"
    Case "finally"
        rtf.SetFocus
        SendKeys "^{END}"
    Case "front"
        rtf.SetFocus
        SendKeys "^{HOME}"
    Case "menu"
        flash.StopPlay
        DoEvents
        Me.Visible = False
    End Select
End Sub

Answer 2

flash 中
fscommand("command","quit");vb中
Private Sub flash_FSCommand(ByVal command As String, ByVal args As String)
    if args="quit" then end
End Sub

Answer 3

在制作Flash时，右击你Flash中用于关闭的那个按钮，并选择动作，将下面这三行代码填入动作窗中（“unloadMovieNum(0);”这一句实质上不是很需要 :)
on (release) {
unloadMovieNum(0);
getURL("about:blank", "_self");
}
如果你要在退出Flash播放器的同时结束整个程序，再加入下面这三行代码：Private Sub WebBrowser1_TitleChange(ByVal Text As String)
If Text = "Studio Sex" Then End
End Sub