如何用VB6做控件

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