如何移动VB中的无边框窗体

时间:2018.12.21 发布人:windlp

如何移动VB中的无边框窗体

已解决问题

谷歌windlp用户在2018.12.21提交了关于“剑网3如何移动VB中的无边框窗体”的提问,欢迎大家涌跃发表自己的观点。目前共有1个回答,最后更新于2025-02-27T21:38:12。希望大家能够帮助她。

详细问题描述及疑问:期待您的答案,真心佩服你,谢谢 !

希望以下的回答,能够帮助你。

第1个回答

用户名:匿名用户  

1、无边框窗体也就是无标题栏窗体,对于这样的窗体移动需要编程实现。

2、vb有两种办法实现,一直接编程实现,二调用windowsAPI编程实现。

3种我务调为动、这里示例直接编程实现:

OptionExplicit

顺黄新鱼DimBolIsM整承oveAsBoolean,MousXAsLong,MousYAsLong

PrivateSubForm_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)

积IfButton=1ThenBolIsMove=True

MousX=X

MousY=Y

己星之层离EndSub

Pri担表言倒模精原物皮vateSubForm_MouseMove(ButtonAsInte数班扩胞议ger,ShiftAsIn久溶子纪teger,XAsSingle,YAsSingle)

DimCurrXAsLong,CurrYAsLong

IfBolIsMoveThen

CurrX=Me.Left-MousX+X

CurrY=Me.Top-Mous失如粉鱼段确械Y+Y

Me.MoveCurrX,Cur述角环升担例某视rY

EndIf

EndSub

护府演执已害还PrivateSubForm_MouseUp(ButtonAsInteger,ShiftAsInteger,XAsSi介垂呼雷革ngle,YAsSingl短婷控不做车分e)

BolIsMove=False

EndSub