知识大全窗体迁移大法

Posted 2022-07-16 位置

篇首语：韬略终须建新国，奋发还得读良书。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全窗体迁移大法相关的知识，希望对你有一定的参考价值。

　　有很多软件为了实现特殊的显示效果采用非矩形的窗体而这些窗体往往没有标题栏想要移动一个没有标题栏的窗口是不那么容易的下面我介绍两种在VB中采取不同原理的方法移动一个没有标题栏的窗口

　　方法一

　　这种方法是在窗体的MouseDown MouseUp和MouseMove等事件的处理过程中添加代码实现在鼠标左键按下后移动时改变窗体的Left和Top属性实现移动无标题栏的窗体

　　进入VB 把窗体Form 的BorderStyle属性设置为 None（无标题栏）再窗体上添加一个ButtonCommand组件用来关闭程序代码如下

　　　　PrivateTypePOINT

　　　　XAsSingle

　　　　YAsSingle

　　　　EndType

　　　　DimFormPAsPOINT

　　　　记录窗体原始位置

　　　　DimMousePAsPOINT

　　　　记录鼠标按下时的位置

　　　　DimMouseLButtonDownAsBoolean

　　　　记录鼠标左键是否按下

　　　　PrivateSubCommand _Click()

　　　　End 退出程序

　　　　EndSub

　　　　PrivateSubForm_MouseDown(ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle)

　　　　FormP X=Form Left

　　　　记下窗体原始坐标位置

　　　　FormP Y=Form Top

　　　　MouseP X=X

　　　　记下鼠标按下时的位置

　　　　MouseP Y=Y

　　　　IfButton= Then

　　　　MouseLButtonDown=True

　　　　鼠标左键按下

　　　　EndIf

　　　　EndSub

　　　　PrivateSubForm_MouseMove(ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle)

　　　　IfMouseLButtonDownThen

　　　　Form Left=FormP X (X MouseP X) 移动窗体

　　　　Form Top=FormP Y (Y MouseP Y)

　　　　EndIf

　　　　EndSub

　　　　PrivateSubForm_MouseUp(ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle)

　　　　MouseLButtonDown=False

　　　　鼠标左键弹起

　　　　EndSub

　　上述方法不是很完善制作出的窗体被拖动时窗体会随鼠标的移动而移动而在默认的Windows设置中拖动窗体时被拖动的窗体不会随窗体的移动而移动随窗体移动的仅是一个与窗体形状大小一样的虚框只有释放鼠标后窗体才会移动到释放鼠标时虚框的所在处要实现这种效果请看第二种方法

　　方法二

　　这种方法通过消息的发送实现移动无标题窗体当鼠标按下移动或释放时将鼠标在窗体上按下的消息（消息值为HTCAPTION）发出就可以拖动窗体了代码如下

　　　　PrivateDeclareFunctionReleaseCaptureLib user ()AsLong

　　　　PrivateDeclareFunctionSendMessageLib user Alias SendMessageA (ByValhwndAsLong

　　　　ByValwMsgAsLong ByValwParamAsLong lParamAsAny)AsLong

　　　　PrivateConstWM_NCLBUTTONDOWN=&&HA

　　　　PrivateConstHTCAPTION=

　　　　以上API函数和常数的声明可在VB自带的 API浏览器中找到

　　　　PrivateSubForm_MouseDown(ButtonAsInteger ShiftAsInteger XAsSingle YAsSingle)

　　　　在窗体的MouseDown事件中添加以下代码

　　　　IfButton= Then

　　　　CallReleaseCapture

　　　　CallSendMessage(hwnd WM_NCLBUTTONDOWN HTCAPTION )

　　　　EndIf

　　　　EndSub

　　　　PrivateSubCommand _Click()

　　　　End　　　退出程序

　　　　EndSub

　　　　这种方法实现起来比第一种方法更容易只有几行代码并且没有那么多的变量窗体被拖动时与普通窗体一样只有一个虚框随鼠标的移动而移动当释放鼠标时窗体才移动到相应的位置用到了两个API函数

cha138/Article/program/net/201311/15590

知识大全 窗体迁移大法

知识大全窗体迁移大法