VB代码不起作用

来源:百度知道 编辑:UC知道 时间:2024/05/27 18:02:26
Result = mciSendString("window AVI hwndvideo", ReturnStr, 1024, 0)
Result = mciSendString("play D:\\file\\1.avi window", ReturnStr, 1024, 0) '其中ReturnStr为某些MCI指令执行后传送给程序的文字信息
Result = mciSendString("window AVI state minimize", ReturnStr, 1024, 0)
为什么这些语句只有play那句起作用,其他语句这样用不对吗?
如何获得这个播放窗口的句柄,控制这个新打开的播放进程啊

问题可以这样解决:

1:如何获得窗口的句柄,使用一下两个api函数可以得到窗口的句柄

a: Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

b:Public Declare Function FindWindowEx Lib "user32" Alias "FindWindowExA" (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, ByVal lpsz2 As String) As Long

2:为什么这些语句只有play那句起作用

看看mcisendstring这个api函数的使用说明,特别是函数的第一个参数的使用,以及类型。