PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"（ByValhwndAsLong，ByValwMsgAsLong，ByValwParamAsLong，lParamAsAny）AsLong’这个该不要俺多介绍了吧
PublicConstHTCAPTION＝2’代表窗体的标题区
PublicConstWM_NCLBUTTONDOWN＝&HA1’表示非工作区左键按下
　　原理很简单，卸下鼠标追踪器后向Form发送一个移动窗体的消息，其实做到这一点的方法很多，但俺个人认为这一种最简单，添加一个过程:
PublicSubMoveForm（hWndAsLong）
DoEvents
ReleaseCapture
SendMessagehWnd，WM_NCLBUTTONDOWN，HTCAPTION，0&
EndSub
在Form的MouseMove事件中:
PrivateSubForm_MouseMove（ButtonAsInteger，ShiftAsInteger，XAsSingle，YAsSingle）
IfButton＝vbLeftButtonThenMoveFormhWnd’如果按下鼠标左键就移动窗体
EndSub
台下的这位小姐又纳闷了，可是光秃秃的窗体没有了标题栏也不好看，俺要向这为小姐推荐俺的东东－ActiveX控件，ToolSign，需要的人可以写信给俺联系，
该控件需要在代码编辑区域内添加一下代码:
’一下声明是用在ToolSign的AutoQuit属性的
PublicConstEXIT_FORCE＝2’注意，在VB中运行的时候如果选用此退出方式，VB也会退出
PublicConstEXIT_MESSAGE＝1’由操作系统发送关闭消息
PublicConstEXIT_CUSTOM＝Not（EXIT_FORCEOrEXIT_MESSAGE）’自定义
将其注册后在部件栏中把e－DogkidStudioToolsSign打钩，添加到工具箱中，双击加入到窗体中，
在Form的Load事件中添加一下初始化代码:
PrivateSubForm_Load（）
WithSign1
.AutoQuit＝EXIT_CUSTOM
.ParentsHWND＝hWnd’填了此属性可以直接用ToolSign来移动窗体而不需要前面的代码
EndWith
EndSub
Sign1的Click事件
PrivateSubSign1_Click（）
End’关闭程序
EndSub
在Form的Resize事件中添加一下代码:
PrivateSubForm_Resize（）
Sign1.Width＝Width
EndSub
如果想让窗体可以改变大�。梢孕薷囊幌率粜�
Caption""
BorderStyle2或5
ControlBoxFalse
　　不知道各位看关见过爆炸试的窗体没有?，没有见过可以从俺要另外一个俺自己的ActiveXDLL，我的那个东东其实是给我的Software作运行库的，各位若不嫌弃，可以用用，注册后在工程－>引用－>e－DogkidRuntimeLibrary
然后在窗体Load事件中输入:
PrivateSubForm_Load(）
DimSystemAse_Dogkid_Runtime_Library.System
SetSystem＝Newe_Dogkid_Runtime_Library.System
Show
System.BoomIthDC，60，Width，Height，Left，Top
SetSystem＝Nothing
EndSub
    希望这篇VBasic编程之路－如何让界面美化(2)的文章能够对您有所帮助，如果您觉得这篇网站维护教程有用的话，别忘了推荐给您的朋友哦！如果您有好的经验方法，不妨拿出来和大家一起分享：假如每个人都拿出一个经验，那么我们都将额外的获取一堆他人的经验。
请记住本站永久域名：（黑客防线网安服务器维护方案维护基地）Www.Rongsen.Com.Cn