計(jì)算機(jī)專業(yè)畢業(yè)論文-vb中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象

　　摘要：本文介紹在vb程序中用timer控件創(chuàng)建一個(gè)超長(zhǎng)時(shí)間的計(jì)時(shí)器對(duì)象，將其編譯成active* dll部件，利用代碼的可重用性，在其它應(yīng)用程序中調(diào)用。
　　關(guān)鍵詞：vb計(jì)時(shí)器對(duì)象
　　vb系統(tǒng)中提供了固有計(jì)時(shí)器timer控件，通過(guò)給計(jì)時(shí)器控件的interval屬性設(shè)置不同的數(shù)值，就可以控制計(jì)時(shí)器運(yùn)行的時(shí)間間隔，但該屬性是一個(gè)雙字節(jié)的整型變量，最大值只能設(shè)置為65535，即只有65535毫秒,約一分鐘多一點(diǎn)，在需要長(zhǎng)時(shí)間計(jì)時(shí)時(shí)，該控件就無(wú)能為力了。本文給出用timer控件創(chuàng)建一個(gè)超長(zhǎng)時(shí)間的計(jì)時(shí)器對(duì)象，并將其編譯成active* dll部件，供其它應(yīng)用程序調(diào)用，可實(shí)現(xiàn)最大限度地利用代碼的可重用性。下面給出這個(gè)超長(zhǎng)計(jì)時(shí)器對(duì)象的編程設(shè)計(jì)過(guò)程，供讀者參考選用。
　　1．編寫(xiě)程序
　　啟動(dòng)vb，新建一個(gè)active
……（新文秘網(wǎng)http://120pk.cn省略578字，正式會(huì)員可完整閱讀）……　
rval = m_timer.interval
　　end property
　　'設(shè)置interval屬性值
　　public property let interval(byval vnewvalue as long)
　　cs = 0
　　nz = vnewvalue \ 65536 + 1
　　m_timer.interval = vnewvalue \ nz
　　end property
　　'類初始化事件
　　private sub class_initialize()
　　set m_form = new form1
　　load m_form
　　set m_timer = m_form.timer1
　　end sub
　　'類終止事件
　　private sub class_terminate()
　　unload m_form
　　set m_timer = nothing
　　end sub
　　'產(chǎn)生tick事件
　　private sub m_timer_timer()
　　cs = cs + 1
　　if cs >= nz then
　　raiseevent tick
　　cs = 0
　　end if
　　end sub
　　窗體form1只用來(lái)作計(jì)時(shí)器timer1的載體，不用于顯示。
　　2．測(cè)試newtimer.dll
　　對(duì)active* dll部件進(jìn)行測(cè)試，與標(biāo)準(zhǔn)的e*e程序一樣，可分為單步運(yùn)行或全運(yùn)行。在寫(xiě)完所有程序代碼后，建議用戶先用ctrl+f5進(jìn)行全編譯執(zhí)行，發(fā)現(xiàn)檢查newtimer程序的語(yǔ)法錯(cuò)誤。也可建立一個(gè)測(cè)試工程與newtimer鏈接進(jìn)行測(cè)試，針對(duì)由newtimer類模塊提供的每個(gè)屬性和事件，添加測(cè)試代碼來(lái)測(cè)試它們的屬性和方法。按f8，進(jìn)入單步運(yùn)行狀態(tài)，逐個(gè)語(yǔ)句察看對(duì)newtimer類模塊的調(diào)用情況。
　　3．編譯newtimer.dll
　　完成測(cè)試，排除所有錯(cuò)誤后，從“文件（f）”菜單中選擇“生成newtimer.dll（k)”命令，編譯生成newtimer.dll文件。編譯成功后newtimer.dll文件將自動(dòng)注冊(cè)到windows注冊(cè)表中，
　　4．引用newtimer.dll
　　引用active* dll部件同引用其他對(duì)象一樣，從“工程（p）”菜單中選擇“引用（n）”命令，打開(kāi)引用窗口，從引用列表中選中newtimer對(duì)象。如果是第一次引用newtimer，則在引用窗體上單擊“游覽（b）”命令按鈕，將newtimer.dll文件添加到可引用列表框中方可使用。
　　5．調(diào)用newtimer.dll
　　在應(yīng)用程序中加入下述程序代碼，實(shí)現(xiàn)參newtimer.dll的調(diào)用：
　　option e*plicit
　　dim withevents longtimer1 as longtimer
　　private sub longti ……（未完，全文共2553字，當(dāng)前僅顯示1623字，請(qǐng)閱讀下面提示信息。收藏《計(jì)算機(jī)專業(yè)畢業(yè)論文-vb中創(chuàng)建超長(zhǎng)時(shí)間計(jì)時(shí)器對(duì)象》）