还有
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
->
如果您对本文有任何疑问或者建议，请到讨论区发表您的意见:
>>
论坛入口 <<
上一篇：
VB驱动pcAnyWhere进行文件传输 下一篇：
浅谈用VB6.0编写木马程序
【文章评论】
【收藏本文】
【推荐好友】
【打印本文】
【我要投稿】 【论坛讨论】
