vb6.0怎么制作一個(gè)抽獎(jiǎng)小程序? vb6.0抽獎(jiǎng)器的制作方法
我要評(pí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