VB 源代码大全 适合初学者

'********************************用户须知************************************************************ ' ' CurtButton v1.0.4 有条件免费使用！ ' 版权归所有:CurtSoft 保留一切权利! http://www.curtsoft.com ' ' 我们只想把时间用于更多更好作品的开发，请使用者自觉遵守下面的用户协议： ' 如果您未将本控件用与商业目的，可以免费使用本控件！否则请付费：个人用户￥29，单位用户￥99。 ' ' 注册方法：将注册费和注册信息发给我，收到注册协议后即注册成功。 ' 联系方式： Email：Inthenet@163.net Mobile：13670102745 QQ：121728839 ' 开户行：深圳招商银行振华路分行 帐号：0755-36387681 ' 地址：深圳市福田区振华路78号电子器材大厦东418 邮编：518031 ' 欢迎您对本控件提出宝贵意见，我将认真改正！谢谢使用！ ' 注意：您发出注册费后请用电子邮件告诉我您的注册信息（用户名、证件号码、联系地址）！ '*******************************功能概要*************************************************************** ' '本控件特点如下： ' 1-拥有XPplus（适合做按钮）、XP、3D（适合做工具栏）、Label（可做标签）四种风格。 ' 2-提供完美的事件过程(MouseEnter,MouseLeave等），极大方便编程(见事件说明）。 ' 3-XP、XPplus风格的阴影效果生动活泼，通过几个属性就可灵活控制按钮外观。 ' '******************************最新更新记录***************************************************************** ' '本控件特点如下： ' 1-拥有多种风格，可用于按钮，工具拦，标签等，用途广泛； ' 2-提供完美的事件过程，例如MouseLeave，极大方便编程； ' 3-显示效果生动活泼，外观控制简单灵活； ' '******************************最新更新记录***************************************************************** '2002-02-25：修正了填充效果设置为hsLtlByLtl时应用程序无法正常显示的问题； ' '2002-02-17:增加HoverFillStyle属性，按钮效果更加丰富； ' 修正了点击按钮弹出对话框后按钮无法复原的BUG。 ' '2002-01-28：控件发布，版本v1.0.0 ' '******************************使用说明**************************************************************** '==================属性================= ' '所有风格按钮都使用的属性： 'Appearance--返回/设置按钮风格 'Caption--返回/显示按钮文本 'Picture--返回/显示按钮显示的图片（btLabel风格将忽略该属性） 'BackColor--返回/设置按钮的背景颜色 'ForeColor--返回/设置按钮的前景颜色 'Font--返回/设置显示文本使用的字体 'Enabled--返回/设置按钮是否可用 'MouseIcon--返回/设置按钮的自定义鼠标 'MousePointer--返回/设置按钮的系统鼠标 'Cancel--返回/设置按钮是否为窗体的“取消”按钮 'Default--返回/设置按钮是否为窗体的缺省按钮 ' 'XP和XPplus风格按钮使用的属性： 'HoverFillStyle返回/设置鼠标在按钮上时的填充类型 'HoverColor--返回/显示鼠标移动到按钮上的填充颜色 'MouseDownColor--返回/设置鼠标键按下时的填充颜色 'EdgeColor--返回/显示鼠标移动到按钮上的边框颜色 'ShadowOffSet--返回/设置图标和阴影的位移量 'ShadowColor--返回/设置阴影颜色 ' 'XPplus风格按钮使用的属性： 'BorderColor返回/显示鼠标移出到按钮时的边框颜色 'ShowFocus返回/设置按钮是否在获得焦点时显示焦点 ' 'btLabel风格按钮使用的属性： 'Alignment返回/设置文本的对齐方式 ' '=================事件================== 'MouseEnter--鼠标进入按钮时发生 'MouseLeave--鼠标离开按钮时发生 'MouseDown--鼠标任意键在按钮上按下都发生该事件，如鼠标未UP或离开按钮，该事件将持续发生 'MouseUp--鼠标任意键在按钮上按下并且在按钮上抬起才发生该事件 'MouseMove--鼠标在按钮上移动即发生该事件 'Click--鼠标左键在按钮上按下并且在按钮上抬起才发生该事件 'KeyDown--键盘按键按下 'KeyPress--键盘普通键被敲击 'KeyUP--键盘按键抬起 ' '******************************谢谢您阅读本文件***********************************************