vb6.0怎么制作一個抽獎小程序? vb6.0抽獎器的制作方法

商場搞活動想要制作一個抽獎程序,今天我們就來看看使用vb6.0制作抽獎小程序的教程。
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)注腳本之家。
相關(guān)文章
VB 6.0 怎么一次性注釋多行? VB 6.0多行注釋的使用方法
VB 6.0 怎么一次性注釋多行?打開vb6.0的時候,發(fā)現(xiàn)有很多行需要注釋,一個一個標(biāo)注太慢浪費(fèi)時間,但是有沒有找到多行代碼注釋,該怎么辦呢?下面分享VB6.0多行注釋的使用方2015-11-11