另建一个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 long
const 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
另建一个Fotm 然后 新建command1
declare function setwindowpos (.............................) as long
const 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