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

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

2、在主界面中，按住鼠標左鍵按住窗體周圍的任意一個小正方形進行拖拽，調節窗體的大小，直至自己滿意為止。

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

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

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

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

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

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

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

Timer1.Enabled = True

主要作用是觸發器開始工作。

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

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

12、代碼timer1的代碼區域，輸入代碼為

Randomize

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

主要功能是使用隨機函數產生不同的隨機數值

13、代碼編程完成后就可以運行調試了，點擊啟動標志，進行編譯，如果出現錯誤根據錯誤提示進行修改，并不斷調試直至通過達到預期目的為止。提示出現要求對象說明控件名稱有錯誤，修改過來，提示出現子程序未定義則說明函數不對，即系統不能認識的函數，進行修改。

14、調試無誤后，你會看到號碼在不停的滾動，點擊號碼停止即可停止，點擊號碼重置就會出現號碼為0，點擊退出程序即可界面消失，這說明已經達到所預期的功能了。

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

以上就是vb6.0中設計抽獎器的教程，希望大家喜歡，請繼續關注VEVB武林網。