如何用VB6做控件

如何用VB6做控件一、这话儿的由头说起这用VB6做控件────哎，是偶从事“挨踢”行业以来最糗的三件事儿之一。这做控件的事儿，早就想学，也学过N多回。────自从九六还是九七年，就一直想学，也学过N多回。────偶介个二十多年的老程序员，够糗滴吧！！！！！！这些年来，为这事儿没少烦心────眼瞅着，人家一初中、高中一爱好者，都玩得溜溜儿滴，俺这老帮子怎么就不灵呢？说来话长。这些年来，为这事儿，偶买书，就为只要粘上有这事儿的书，就买。买了五、六本儿，好几百的银子呢！！！！！！哭啊！！！！！！泪都哭干了。哼。。。。。。这些书，要不然就是说个不明不白的例子，几乎都是互相抄────可俺需要滴东西，就是楞没有啊？偶要什么？简单啊？就几个问题：问题一：制作一个控件的基本过程────简单说吧，就是怎么着，怎么弄，怎么整，能搞出来一个叫OCX的标准控件，而且能放之四海皆好用。这个东西，要比照着书做，做一个嘛用也没有的控件，早就会了。可以要做个真正有用的，就在下面这个问题上卡住了。问题二：这控件的属性────偶自已定义来用的，特别属于偶滴属性────怎么搞？怎么设定有几个属性，怎么设定属性值，怎么取出属性值这三个问题，就楞没找到一本书啊！！！！！！这个问题，可是偶滴心结。记得是VB3开始，就可以搞控件，可必须通过什么“向导”来做。搞得好麻烦。一直没搞懂。这VB自制控件的属性三问题，就一直“遗传”了偶小十年，成了个不大不小的心结。今天，终于整成了。我滴妈啊────调试ASP代码需要在前面加上这东西，电脑才会调用IIS服务。敢情，全世界都知道这事儿，偶和哥们又全是打字飞快滴人。他们全习惯成自然，这么两年半，偶就楞没注意到我与他们的区别────偶就是没打HTTP://。。。。。。为了这破事儿，偶曾经怀疑过────偶是不是老了，干不了编程了？（二）CSS技术说起来这不是什么复杂的东西。想当初，偶做的网站，要说数据库灵活使用，那是没问题的。但是，偶做的网页那叫一个难看────整个一个“垮”字了解。但是，偶知道CSS这东西啊？就想学，想用。结果，当时买了一本DREAMWAVR的教材里，就有这个东西。。。。。。。这下，可坑苦我了。这书里，东一锒头，西一棒子，这CSS让他丫整得七零八落滴。。。。。。。要偶是新潮一代做网页滴就好了────不问为什么，会用一点儿是一点儿，怎么快怎么来。。。。。。可是偶这老帮子，要是没整明白，学得没条理没体系，鸡零狗碎滴学────可就是身心两方面对偶滴摧残了。。。。。。这东西────坑了我四、五年没搞会────整得我一哥们儿就说────不对啊，挺简单的事儿，你怎么了？────你是故意的吧────你不可能学不会这么简单的东西啊────我还真搞不懂。后来，还是这哥们，过了好几年，给偶一本大专教材。这一看，没把我气死。用了不到半小时就看懂了。这什么玩意儿啊？太简单了────以后要提CSS，全世界都问我吧。保证几句话给说清楚。────这书里有一章专说CSS，条理清楚、简明。几眼就看明白了。以上是三件偶这些年在“挨踢”技术上的三件大糗事儿。二、书归正传，如何用VB6做控件主要搞清如下几个问题：（一）制作一个控件的过程（这是核心问题，别一堆儿细节，结果整个事儿怎么办都不知道。许多人有这个毛病。）（二）如何生成一个控件（把您的心血变成产品，而不是源代码）（三）制作控件的几个关键细节如果利用已有控件？如何为控件“增加”自已的属性？有三个小问题────如何在控件里保存属性值如何由用户在外部设定属性值如何向用户提供属性值如何使控件对“事件”有反应如何使控件具有初始化的能耐那就齐活儿了。下面，且顺序问题的方式简明描述。问题一：制作一个控件的过程步骤一：“新建一个工程”时，选择“ActiveX控件”，而不是常用的“Exe文件”就行。搞定。步骤二：就跟普通VB编程一样，往上放控件，编相关代码。还再整点后面所说的几个关键细节。搞定。步骤三：用“文件”菜单下的“生成XXXXXX.OCX”菜单项，生成结果的OCX文件。搞定。问题二：如何生成一个控件（把您的心血变成产品，而不是源代码）？问题了已经说明了。用“文件”菜单下的“生成XXXXXX.OCX”菜单项，生成结果的OCX文件。搞定。问题三：如何利用已有的控件？就在自制控件的界面（跟普通EXE工程的FORM界面没区别），就把能用的控件玩了命的使劲往上搁就行。当然，放完东西别忘了配代码。搞定。问题四：如何在控件里保存属性这个最简单。只要在控件的说明部分里加上DIM语句来定义几个变量就行。搞定。问题五：如何由用户在外部设定属性值？只要在代码里，按下面这个形式写一下────PropertyLet属性名(ByValNew_ValueAs类型)内部某个变量名=New_ValueEndProperty就成。搞定。问题六：如何向用户提供属性值只要在代码里，按下面这个形式写一下────PropertyGet属性名()As类型属性名=内部某个变量名EndProperty就成。搞定。问题七：如何使控件对“事件”有反应就在自定义控件里，像平常编EXE工程一样，对上在的各个东西，直接编写源代码。问题八：如何使控件有初始化的能耐只要在代码里，按下面的形式写一下────PrivateSub用户自定义的控件名_Initialize()随便写上您想干的事儿的代码。。。。。。EndSub就成。搞定。三、一个实例光说不练嘴把式，光练不说傻把式────又说又练真把式！！！！！！下面是偶为了示范自定义控件做的一个完整样例────该控件，上面有两个标签────会显示出一个X值，一个Y值────正好一对坐标。用户可以对这个控件的X和Y属性进行操作────结果马上会在控件上显示出来。制作步骤：（一）新建OCX工程（二）在界面上放上两个标签。一个叫Lx，一个叫Ly，用来显示属性值。（三）然后在代码里，写下如下代码（里面都有注解）就成。DimXmAsInteger'内部自定义变量，将来就用来为属性X提供住房了DimYmAsInteger'内部自定义变量，将来就用来为属性Y提供住房了PrivateSubUserControl_Initialize()'控件初始化操作LX.Caption="X="&Xm'在控件上显示属性X的值Ly.Caption="Y="&Ym'在控件上显示属性Y的值EndSubPropertyGetX()AsInteger'取出控件内的值给“属性”X=XmEndPropertyPropertyLetX(ByValNew_XAsInteger)'把用户写入的“属性”值设置到OCX控件内部值Xm=New_XLX.Caption="X="&Xm'改变完X属性住户，顺手在控件界面上显示一下EndProperty'后面关于属性Y注解就不用加了PropertyGetY()AsIntegerY=YmEndPropertyPropertyLetY(ByValNew_YAsInteger)Ym=New_YLy.Caption="Y="&YmEndPropertyPri