VB6.0 抽獎(jiǎng)程序 2010-01-17 在 Windows XP 下調(diào)試通過 作者:鄧忠 dwjnhkbc123@163.com QQ:751667650 該程序是本人在翔德電子科技(深圳)有限公司就職期間用Visual Basic為2010年尾牙晚會(huì)做的一個(gè)小抽獎(jiǎng)程序,僅供學(xué)習(xí)參考,不得用于商業(yè)用途,否則后果自負(fù)。 啟動(dòng)時(shí)會(huì)生成隨機(jī)順序的抽獎(jiǎng)名單幸運(yùn)星名單已經(jīng)隨機(jī)確定。運(yùn)行時(shí)隨機(jī)滾動(dòng)抽獎(jiǎng)名單,按抽獎(jiǎng)(或回車鍵)逐一揭曉幸運(yùn)星。 關(guān)閉程序時(shí)會(huì)生成幸運(yùn)星名單luckystars.txt 記錄有時(shí)間 所中獎(jiǎng)項(xiàng) 獎(jiǎng)品名 姓名,請(qǐng)及時(shí)保存luckystars.txt,以免被下次運(yùn)行程序時(shí)覆蓋。 本程序awards.txt保存各獎(jiǎng)項(xiàng)目 如: 三等獎(jiǎng) 二等獎(jiǎng) awardsname.txt 保存獎(jiǎng)項(xiàng)對(duì)應(yīng)的獎(jiǎng)品名 如: 電吹風(fēng) 電飯煲 awardstotal.txt 保存各獎(jiǎng)項(xiàng)對(duì)應(yīng)的個(gè)數(shù) 如: 100 80。 list.txt 保存抽獎(jiǎng)名單 為了區(qū)分重名的人 可以加入部門名稱,工號(hào)等。 背景文件為luckybg.jpg,象素1024*768。 請(qǐng)確保程序的當(dāng)前目錄下有存在上述文件,否則會(huì)報(bào)錯(cuò)。