发信人: flashboy()
整理人: cobe(1999-12-15 16:19:11), 站内信件
|
一、如何在VB中使窗口恒为最前窗口，不被覆盖？
API:SetWindowPos (注：具体申明见VB中的API查看器)
常量：const SWP_NOSIZE=&H1 const SWP_NOMOVE=&H2
const HWND_TOP=0 const HWND_NOTOPMOST=-2
CONST HWND_BOTTOM=1 CONST HWND_TOPMOST=-1
置前：
SetWindowPos form1.hwnd,HWND_TOPMOST,0,0,0,0,SWP_NOMOVE_
OR SWP_NOSIZE
取消:
SetWindowPos form1.hwnd,HWND_NOTOPMOST,0,0,0,0,SWP_NOMOVE_
OR SWP_NOSIZE
二、怎样在VB中限定鼠标移动范围?
API:ClipCursor(lpRect As Any)
结构：RECT （具体定义见VB中的API查看器)
代码：
dim R as RECT
Private Sub command1_click() '限定生效
R.left=form1.left/screen.twipsperpixelX
R.top=form1.top/screen.twipsperpixelY
R.right=R.left+form1.width/screen.twipsperpiexlX
R.bottom=R.top+form1.height/screen.twipsperpixelY
CAll clipCursor(R) '调用函数
END SUB
Private command2_click()'取消限定
R.left=0
r.top=0
R.RIGHT=SCREEN.WIDTH/SCREEN.twipsperpixelX
R.Bottom=SCREEN.WIDTH/SCREEN.twipsperpixelY
CAll clipCursor(R) '调用函数
END SUB
TO BE CONTINUE。。。。。
--
真诚加上信赖这是我的网上原则！
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 202.103.32.101]
|
|