商場搞活動想要制作一個抽獎程序，今天我們就來看看使用vb6.0制作抽獎小程序的教程。

VB 6.0中文企業(yè)版免費(fèi)下載(206M)

• 類型：編譯工具
• 大?。?/span>206MB
• 語言：簡體中文
• 時間：2020-01-08

查看詳情

1、首先啟動vb6.0，執(zhí)行文件-新建命令，彈出新建工程對話框，在該對話框中選擇標(biāo)準(zhǔn)的exe后點擊打開按鈕，進(jìn)入vb程序主界面。

2、在主界面中，按住鼠標(biāo)左鍵按住窗體周圍的任意一個小正方形進(jìn)行拖拽，調(diào)節(jié)窗體的大小，直至自己滿意為止。

3、選擇窗體，在其右邊的屬性中找到boderstyle屬性，設(shè)置屬性值為none，接著再找到startupposition屬性，修改屬性值為2-屏幕中心，再次修改backcolor屬性值為淡黃色。

4、在工具箱里選擇frame1，然后在窗體上進(jìn)行拖拽，大小比窗體小一些，并調(diào)整其位置，使其居中，在屬性窗口找到backcolor屬性修改其屬性值為粉紅色，這樣設(shè)置看起來就有層次感了。

5、在工具箱里雙擊標(biāo)簽控件兩次，在frame1中顯示兩個標(biāo)簽控件，修改lable1的caption屬性名稱為“幸運(yùn)抽獎”，修改label2的caption屬性為“0”，同時修改這兩個標(biāo)簽控件的backcolor屬性為粉色，和frame控件保持一致。

6、分別選擇label1和label2，修改其font屬性，打開字體對話框選擇字體為王羲之書法字體，字形為常規(guī)，字號為三號，點擊確定按鈕。

7、選擇工具箱里按鈕控件，連續(xù)雙擊四次，在frame1上顯示四個按鈕，調(diào)整他們在frame1上的位置，使排列整齊，并依次修改四個按鈕的caption屬性，屬性值依次為“號碼滾動”、“號碼停止”、“號碼重置”、“退出程序”。

8、接著選擇工具箱里計時器控件并雙擊，在frame1上顯現(xiàn)出來該控件，該控件的作用很大，起到計時作用，同時需要注意的是在程序運(yùn)行時控件是不顯示出來的。

9、雙擊號碼滾動控件，進(jìn)入代碼編輯區(qū)域，對象選擇command1，過程選擇click事件，在其輸入代碼為

Timer1.Enabled = True

主要作用是觸發(fā)器開始工作。

10、雙擊號碼停止按鈕，輸入代碼為Timer1.Enabled = False，起到的作用是觸發(fā)器停止工作。

11、雙擊號碼重置按鈕輸入代碼為Label1.Caption = "0"，起到的作用是每次號碼滾動后都要重新置0.讓每次抽獎的起始都是一樣的。并雙擊退出程序按鈕輸入代碼為end。

12、代碼timer1的代碼區(qū)域，輸入代碼為

Randomize

Label1.Caption = "幸運(yùn)中獎的號碼是：" & Int(Rnd * 64 + 1)

主要功能是使用隨機(jī)函數(shù)產(chǎn)生不同的隨機(jī)數(shù)值

13、代碼編程完成后就可以運(yùn)行調(diào)試了，點擊啟動標(biāo)志，進(jìn)行編譯，如果出現(xiàn)錯誤根據(jù)錯誤提示進(jìn)行修改，并不斷調(diào)試直至通過達(dá)到預(yù)期目的為止。提示出現(xiàn)要求對象說明控件名稱有錯誤，修改過來，提示出現(xiàn)子程序未定義則說明函數(shù)不對，即系統(tǒng)不能認(rèn)識的函數(shù)，進(jìn)行修改。

14、調(diào)試無誤后，你會看到號碼在不停的滾動，點擊號碼停止即可停止，點擊號碼重置就會出現(xiàn)號碼為0，點擊退出程序即可界面消失，這說明已經(jīng)達(dá)到所預(yù)期的功能了。

15、執(zhí)行文件-生成抽獎.exe，這樣經(jīng)過編譯就生成了可執(zhí)行文件，這樣就可以跨平臺操作了，不再依賴原始程序。接著執(zhí)行文件-保存命令，把所有的源文件進(jìn)行保存即可，以方便以后修改使用。

以上就是vb6.0中設(shè)計抽獎器的教程，希望大家喜歡，請繼續(xù)關(guān)注腳本之家。

最新評論