谢谢二楼朋友,已自己解决了
先把浏览器搞成窗口显示,不要全屏显示,然后把浏览器右上角放在屏幕右上角重合就可以操作了,还有其它办法
const HWND_TOPMOST=-1
const HWND_NOTOPMOST=-1
private structure POINTAPI
dim x as string
dim y as string
end structure
private sub button1_click()
dim P as POINTAPI
p.X=10
p.Y=10
dim myhwnd as integer
myhwnd=WindowFromPoint(P.x,P.y)
dim mywin as integer
mywin=SetWindowPos(myhwnd,HWND_TOPMOST,200,100,800,600,0)
这样做了后你的浏览器就只显示一个窗口,并总在最前面,这样省得你去关以前开的窗。如果你想把它恢复原样,用HWND_NOTOPMOST=-1,搞不好别怪我。
根椐这个思路,其它windows 窗体应都能控制,不成问题了,。。。
[[it] 本帖最后由 nhhykly9d2009 于 2008-3-14 18:22 编辑 [/it]]