- Rongsen.Com.Cn 版权所有 2008-2010 京ICP备08007000号 京公海网安备11010802026356号 朝阳网安编号:110105199号
- 北京黑客防线网安工作室-黑客防线网安服务器维护基地为您提供专业的
服务器维护
,企业网站维护
,网站维护
服务 - （建议采用1024×768分辨率，以达到最佳视觉效果） Powered by 黑客防线网安 ©2009-2010 www.rongsen.com.cn
VBasic编程之路－如何让界面美化(2)
作者：黑客防线网安VB教程基地 来源：黑客防线网安VB教程基地 浏览次数：0 |
黑客防线网安网讯： PublicDeclareFunctionSendMessageLib"user32"Alias"SendMessageA"（ByValhwndAsLong，ByValwMsgAsLong，ByValwParamAsLong，lParamAsAny）AsLong’这个该不要俺多介绍了吧PublicConstHT...
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
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
黑客防线网安服务器维护方案本篇连接：http://www.rongsen.com.cn/show-14960-1.html
新闻栏目
| 我要申请本站：N点 | 黑客防线官网 | |
| 专业服务器维护及网站维护手工安全搭建环境，网站安全加固服务。黑客防线网安服务器维护基地招商进行中！QQ:29769479 |