另建一个Fotm 然后 新建command1 declare function setwindowpos (.............................) as longconst HWND_TOPMOST const HWND_NOTOPMOST const SWP_FRAMECHANGED comst SWP_DRAWFRAME=SWP_PRAMECHENGED const SWP_NOMOVE const SWP_NOSIZE Const Flages=SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE'我有试过可行,不过mediaplayer9.0 没有试过 private sub command1_Click() Form1.mediaplayer1.displaysize=fullscreen'先把mediaplayer满屏 call setwindowspor(me.hwnd,HWND_TOPMOST,0,0,0,0,Flages)'把窗口悬挂起来 end sub
另建一个Fotm 然后 新建command1 declare function setwindowpos Lib "user32"(Byval Hwnd as long,Byval hWndInsertAfter _ as long,byval x as long,Byval y as long,byval _ cx as long,Byval cy as long,byval wFlags _ as long ) as longconst HWND_TOPMOST=-1 const HWND_NOTOPMOST=-2 const SWP_FRAMECHANGED=&H20 const SWP_NOMOVE=&H2 const SWP_NOSIZE=&H1 const SWP_DRAWFRAME=SWP_PRAMECHENGED Const Flages=SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE'我有试过可行,不过mediaplayer9.0 没有试过 private sub command1_Click() Form1.mediaplayer1.displaysize=fullscreen'先把Form1的mediaplayer满屏 call setwindowspor(me.hwnd,HWND_TOPMOST,0,0,0,0,Flages)'然后把窗口2悬挂起来 end sub
declare function setwindowpos (.............................) as longconst HWND_TOPMOST
const HWND_NOTOPMOST
const SWP_FRAMECHANGED
comst SWP_DRAWFRAME=SWP_PRAMECHENGED
const SWP_NOMOVE
const SWP_NOSIZE
Const Flages=SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE'我有试过可行,不过mediaplayer9.0 没有试过
private sub command1_Click()
Form1.mediaplayer1.displaysize=fullscreen'先把mediaplayer满屏
call setwindowspor(me.hwnd,HWND_TOPMOST,0,0,0,0,Flages)'把窗口悬挂起来
end sub
const HWND_TOPMOST
const HWND_NOTOPMOST
const SWP_FRAMECHANGED
comst SWP_DRAWFRAME=SWP_PRAMECHENGED
const SWP_NOMOVE
const SWP_NOSIZE
的具体定义是什么??好像没有写完是不是啊??请再具体一点好吗
WMP9默认支持字幕,但是字幕需要作为Script类型的流存在于流媒体文件中。一个替代的解决方案是使用vodsub之类的字幕插件。
======================WMP9的字幕会滚动?
怎么用??还有没有其他的办法啊,如果能依靠vb最好了,谢谢!!!
declare function setwindowpos Lib "user32"(Byval Hwnd as long,Byval hWndInsertAfter _
as long,byval x as long,Byval y as long,byval _
cx as long,Byval cy as long,byval wFlags _
as long ) as longconst HWND_TOPMOST=-1
const HWND_NOTOPMOST=-2
const SWP_FRAMECHANGED=&H20
const SWP_NOMOVE=&H2
const SWP_NOSIZE=&H1
const SWP_DRAWFRAME=SWP_PRAMECHENGED
Const Flages=SWP_DRAWFRAME or SWP_NOMOVE or SWP_NOSIZE'我有试过可行,不过mediaplayer9.0 没有试过
private sub command1_Click()
Form1.mediaplayer1.displaysize=fullscreen'先把Form1的mediaplayer满屏
call setwindowspor(me.hwnd,HWND_TOPMOST,0,0,0,0,Flages)'然后把窗口2悬挂起来
end sub
是不是应该为:const SWP_DRAWFRAME=SWP_FRAMECHANGED啊???
在mwp9好像不行啊,不知道还没有其它的办法!!
应该可以的你再试试,
Form2 到底有没有悬挂起来呢?(就是总是显示在最前面啊?)
不过全屏好像不行,
我用的是 player.stretchToFit美中不足的是好像边上有一点距离!~~ :(