如何用VB6做控件一、這話兒的由頭說起這用VB6做控件────哎，是偶從事“挨踢”行業(yè)以來最糗的三件事兒之一。這做控件的事兒，早就想學(xué)，也學(xué)過N多回。────自從九六還是九七年，就一直想學(xué)，也學(xué)過N多回。────偶介個(gè)二十多年的老程序員，夠糗滴吧！！！！！！這些年來，為這事兒沒少煩心────眼瞅著，人家一初中、高中一愛好者，都玩得溜溜兒滴，俺這老幫子怎么就不靈呢？說來話長。這些年來，為這事兒，偶買書，就為只要粘上有這事兒的書，就買。買了五、六本兒，好幾百的銀子呢！！！！！！哭啊！！！！！！淚都哭干了。哼。。。。。。這些書，要不然就是說個(gè)不明不白的例子，幾乎都是互相抄────可俺需要滴東西，就是楞沒有啊？偶要什么？簡單啊？就幾個(gè)問題：問題一：制作一個(gè)控件的基本過程────簡單說吧，就是怎么著，怎么弄，怎么整，能搞出來一個(gè)叫OCX的標(biāo)準(zhǔn)控件，而且能放之四海皆好用。這個(gè)東西，要比照著書做，做一個(gè)嘛用也沒有的控件，早就會(huì)了。可以要做個(gè)真正有用的，就在下面這個(gè)問題上卡住了。問題二：這控件的屬性────偶自已定義來用的，特別屬于偶滴屬性────怎么搞？怎么設(shè)定有幾個(gè)屬性，怎么設(shè)定屬性值，怎么取出屬性值這三個(gè)問題，就楞沒找到一本書啊！！！！！！這個(gè)問題，可是偶滴心結(jié)。記得是VB3開始，就可以搞控件，可必須通過什么“向?qū)?#8221;來做。搞得好麻煩。一直沒搞懂。這VB自制控件的屬性三問題，就一直“遺傳”了偶小十年，成了個(gè)不大不小的心結(jié)。今天，終于整成了。我滴媽啊────調(diào)試ASP代碼需要在前面加上這東西，電腦才會(huì)調(diào)用IIS服務(wù)。敢情，全世界都知道這事兒，偶和哥們又全是打字飛快滴人。他們?nèi)?xí)慣成自然，這么兩年半，偶就楞沒注意到我與他們的區(qū)別────偶就是沒打HTTP://。。。。。。為了這破事兒，偶曾經(jīng)懷疑過────偶是不是老了，干不了編程了？（二）CSS技術(shù)說起來這不是什么復(fù)雜的東西。想當(dāng)初，偶做的網(wǎng)站，要說數(shù)據(jù)庫靈活使用，那是沒問題的。但是，偶做的網(wǎng)頁那叫一個(gè)難看────整個(gè)一個(gè)“垮”字了解。但是，偶知道CSS這東西啊？就想學(xué)，想用。結(jié)果，當(dāng)時(shí)買了一本DREAMWAVR的教材里，就有這個(gè)東西。。。。。。。這下，可坑苦我了。這書里，東一鋃頭，西一棒子，這CSS讓他丫整得七零八落滴。。。。。。。要偶是新潮一代做網(wǎng)頁滴就好了────不問為什么，會(huì)用一點(diǎn)兒是一點(diǎn)兒，怎么快怎么來。。。。。。可是偶這老幫子，要是沒整明白，學(xué)得沒條理沒體系，雞零狗碎滴學(xué)────可就是身心兩方面對(duì)偶滴摧殘了。。。。。。這東西────坑了我四、五年沒搞會(huì)────整得我一哥們兒就說────不對(duì)啊，挺簡單的事兒，你怎么了？────你是故意的吧────你不可能學(xué)不會(huì)這么簡單的東西啊────我還真搞不懂。后來，還是這哥們，過了好幾年，給偶一本大專教材。這一看，沒把我氣死。用了不到半小時(shí)就看懂了。這什么玩意兒啊？太簡單了────以后要提CSS，全世界都問我吧。保證幾句話給說清楚。────這書里有一章專說CSS，條理清楚、簡明。幾眼就看明白了。以上是三件偶這些年在“挨踢”技術(shù)上的三件大糗事兒。二、書歸正傳，如何用VB6做控件主要搞清如下幾個(gè)問題：（一）制作一個(gè)控件的過程（這是核心問題，別一堆兒細(xì)節(jié)，結(jié)果整個(gè)事兒怎么辦都不知道。許多人有這個(gè)毛病。）（二）如何生成一個(gè)控件（把您的心血變成產(chǎn)品，而不是源代碼）（三）制作控件的幾個(gè)關(guān)鍵細(xì)節(jié)如果利用已有控件？如何為控件“增加”自已的屬性？有三個(gè)小問題────如何在控件里保存屬性值如何由用戶在外部設(shè)定屬性值如何向用戶提供屬性值如何使控件對(duì)“事件”有反應(yīng)如何使控件具有初始化的能耐那就齊活兒了。下面，且順序問題的方式簡明描述。問題一：制作一個(gè)控件的過程步驟一：“新建一個(gè)工程”時(shí)，選擇“ActiveX控件”，而不是常用的“Exe文件”就行。搞定。步驟二：就跟普通VB編程一樣，往上放控件，編相關(guān)代碼。還再整點(diǎn)后面所說的幾個(gè)關(guān)鍵細(xì)節(jié)。搞定。步驟三：用“文件”菜單下的“生成XXXXXX.OCX”菜單項(xiàng)，生成結(jié)果的OCX文件。搞定。問題二：如何生成一個(gè)控件（把您的心血變成產(chǎn)品，而不是源代碼）？問題了已經(jīng)說明了。用“文件”菜單下的“生成XXXXXX.OCX”菜單項(xiàng)，生成結(jié)果的OCX文件。搞定。問題三：如何利用已有的控件？就在自制控件的界面（跟普通EXE工程的FORM界面沒區(qū)別），就把能用的控件玩了命的使勁往上擱就行。當(dāng)然，放完東西別忘了配代碼。搞定。問題四：如何在控件里保存屬性這個(gè)最簡單。只要在控件的說明部分里加上DIM語句來定義幾個(gè)變量就行。搞定。問題五：如何由用戶在外部設(shè)定屬性值？只要在代碼里，按下面這個(gè)形式寫一下────PropertyLet屬性名(ByValNew_ValueAs類型)內(nèi)部某個(gè)變量名=New_ValueEndProperty就成。搞定。問題六：如何向用戶提供屬性值只要在代碼里，按下面這個(gè)形式寫一下────PropertyGet屬性名()As類型屬性名=內(nèi)部某個(gè)變量名EndProperty就成。搞定。問題七：如何使控件對(duì)“事件”有反應(yīng)就在自定義控件里，像平常編EXE工程一樣，對(duì)上在的各個(gè)東西，直接編寫源代碼。問題八：如何使控件有初始化的能耐只要在代碼里，按下面的形式寫一下────PrivateSub用戶自定義的控件名_Initialize()隨便寫上您想干的事兒的代碼。。。。。。EndSub就成。搞定。三、一個(gè)實(shí)例光說不練嘴把式，光練不說傻把式────又說又練真把式！！！！！！下面是偶為了示范自定義控件做的一個(gè)完整樣例────該控件，上面有兩個(gè)標(biāo)簽────會(huì)顯示出一個(gè)X值，一個(gè)Y值────正好一對(duì)坐標(biāo)。用戶可以對(duì)這個(gè)控件的X和Y屬性進(jìn)行操作────結(jié)果馬上會(huì)在控件上顯示出來。制作步驟：（一）新建OCX工程（二）在界面上放上兩個(gè)標(biāo)簽。一個(gè)叫Lx，一個(gè)叫Ly，用來顯示屬性值。（三）然后在代碼里，寫下如下代碼（里面都有注解）就成。DimXmAsInteger'內(nèi)部自定義變量，將來就用來為屬性X提供住房了DimYmAsInteger'內(nèi)部自定義變量，將來就用來為屬性Y提供住房了PrivateSubUserControl_Initialize()'控件初始化操作LX.Caption="X="&Xm'在控件上顯示屬性X的值Ly.Caption="Y="&Ym'在控件上顯示屬性Y的值EndSubPropertyGetX()AsInteger'取出控件內(nèi)的值給“屬性”X=XmEndPropertyPropertyLetX(ByValNew_XAsInteger)'把用戶寫入的“屬性”值設(shè)置到OCX控件內(nèi)部值Xm=New_XLX.Caption="X="&Xm'改變完X屬性住戶，順手在控件界面上顯示一下EndProperty'后面關(guān)于屬性Y注解就不用加了PropertyGetY()AsIntegerY=YmEndPropertyPropertyLetY(ByValNew_YAsInteger)Ym=New_YLy.Caption="Y="&YmEndPropertyPri