vb6.0怎么制作一個(gè)抽獎(jiǎng)小程序? vb6.0抽獎(jiǎng)器的制作方法

商場(chǎng)搞活動(dòng)想要制作一個(gè)抽獎(jiǎng)程序,今天我們就來(lái)看看使用vb6.0制作抽獎(jiǎng)小程序的教程。
1、首先啟動(dòng)vb6.0,執(zhí)行文件-新建命令,彈出新建工程對(duì)話框,在該對(duì)話框中選擇標(biāo)準(zhǔn)的exe后點(diǎn)擊打開(kāi)按鈕,進(jìn)入vb程序主界面。
2、在主界面中,按住鼠標(biāo)左鍵按住窗體周?chē)娜我庖粋€(gè)小正方形進(jìn)行拖拽,調(diào)節(jié)窗體的大小,直至自己滿意為止。
3、選擇窗體,在其右邊的屬性中找到boderstyle屬性,設(shè)置屬性值為none,接著再找到startupposition屬性,修改屬性值為2-屏幕中心,再次修改backcolor屬性值為淡黃色。
4、在工具箱里選擇frame1,然后在窗體上進(jìn)行拖拽,大小比窗體小一些,并調(diào)整其位置,使其居中,在屬性窗口找到backcolor屬性修改其屬性值為粉紅色,這樣設(shè)置看起來(lái)就有層次感了。
5、在工具箱里雙擊標(biāo)簽控件兩次,在frame1中顯示兩個(gè)標(biāo)簽控件,修改lable1的caption屬性名稱(chēng)為“幸運(yùn)抽獎(jiǎng)”,修改label2的caption屬性為“0”,同時(shí)修改這兩個(gè)標(biāo)簽控件的backcolor屬性為粉色,和frame控件保持一致。
6、分別選擇label1和label2,修改其font屬性,打開(kāi)字體對(duì)話框選擇字體為王羲之書(shū)法字體,字形為常規(guī),字號(hào)為三號(hào),點(diǎn)擊確定按鈕。
7、選擇工具箱里按鈕控件,連續(xù)雙擊四次,在frame1上顯示四個(gè)按鈕,調(diào)整他們?cè)趂rame1上的位置,使排列整齊,并依次修改四個(gè)按鈕的caption屬性,屬性值依次為“號(hào)碼滾動(dòng)”、“號(hào)碼停止”、“號(hào)碼重置”、“退出程序”。
8、接著選擇工具箱里計(jì)時(shí)器控件并雙擊,在frame1上顯現(xiàn)出來(lái)該控件,該控件的作用很大,起到計(jì)時(shí)作用,同時(shí)需要注意的是在程序運(yùn)行時(shí)控件是不顯示出來(lái)的。
9、雙擊號(hào)碼滾動(dòng)控件,進(jìn)入代碼編輯區(qū)域,對(duì)象選擇command1,過(guò)程選擇click事件,在其輸入代碼為
Timer1.Enabled = True
主要作用是觸發(fā)器開(kāi)始工作。
10、雙擊號(hào)碼停止按鈕,輸入代碼為Timer1.Enabled = False,起到的作用是觸發(fā)器停止工作。
11、雙擊號(hào)碼重置按鈕輸入代碼為L(zhǎng)abel1.Caption = "0",起到的作用是每次號(hào)碼滾動(dòng)后都要重新置0.讓每次抽獎(jiǎng)的起始都是一樣的。并雙擊退出程序按鈕輸入代碼為end。
12、代碼timer1的代碼區(qū)域,輸入代碼為
Randomize
Label1.Caption = "幸運(yùn)中獎(jiǎng)的號(hào)碼是:" & Int(Rnd * 64 + 1)
主要功能是使用隨機(jī)函數(shù)產(chǎn)生不同的隨機(jī)數(shù)值
13、代碼編程完成后就可以運(yùn)行調(diào)試了,點(diǎn)擊啟動(dòng)標(biāo)志,進(jìn)行編譯,如果出現(xiàn)錯(cuò)誤根據(jù)錯(cuò)誤提示進(jìn)行修改,并不斷調(diào)試直至通過(guò)達(dá)到預(yù)期目的為止。提示出現(xiàn)要求對(duì)象說(shuō)明控件名稱(chēng)有錯(cuò)誤,修改過(guò)來(lái),提示出現(xiàn)子程序未定義則說(shuō)明函數(shù)不對(duì),即系統(tǒng)不能認(rèn)識(shí)的函數(shù),進(jìn)行修改。
14、調(diào)試無(wú)誤后,你會(huì)看到號(hào)碼在不停的滾動(dòng),點(diǎn)擊號(hào)碼停止即可停止,點(diǎn)擊號(hào)碼重置就會(huì)出現(xiàn)號(hào)碼為0,點(diǎn)擊退出程序即可界面消失,這說(shuō)明已經(jīng)達(dá)到所預(yù)期的功能了。
15、執(zhí)行文件-生成抽獎(jiǎng).exe,這樣經(jīng)過(guò)編譯就生成了可執(zhí)行文件,這樣就可以跨平臺(tái)操作了,不再依賴(lài)原始程序。接著執(zhí)行文件-保存命令,把所有的源文件進(jìn)行保存即可,以方便以后修改使用。
以上就是vb6.0中設(shè)計(jì)抽獎(jiǎng)器的教程,希望大家喜歡,請(qǐng)繼續(xù)關(guān)注腳本之家。
相關(guān)文章
VB 6.0 怎么一次性注釋多行? VB 6.0多行注釋的使用方法
VB 6.0 怎么一次性注釋多行?打開(kāi)vb6.0的時(shí)候,發(fā)現(xiàn)有很多行需要注釋?zhuān)粋€(gè)一個(gè)標(biāo)注太慢浪費(fèi)時(shí)間,但是有沒(méi)有找到多行代碼注釋?zhuān)撛趺崔k呢?下面分享VB6.0多行注釋的使用方2015-11-11