社区
VB
帖子详情
求抽奖程序的实现方法!在线等
safematch
2004-12-27 10:11:11
初步想法是和电视上一样的效果,开始后一个文本框按照一定的频率不断显示变化的身份证号或名字,按停止后固定,用这种方式来抽奖,请大家说一下该怎么实现,谢谢!
...全文
125
5
打赏
收藏
求抽奖程序的实现方法!在线等
初步想法是和电视上一样的效果,开始后一个文本框按照一定的频率不断显示变化的身份证号或名字,按停止后固定,用这种方式来抽奖,请大家说一下该怎么实现,谢谢!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
5 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
jin_xiaolu2000
2004-12-27
打赏
举报
回复
你的i 换成个全局变量拉,每次你都从新开始,当然是不变的拉
safematch
2004-12-27
打赏
举报
回复
Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click
AddHandler timAward.Tick, AddressOf OnTimer
timAward.Start()
End Sub
Sub OnTimer(ByVal source As Object, ByVal e As EventArgs) '处理事件
Dim i As Integer
i = i + 1
txtName.Text = arrName(i)
End Sub
arrName(i)是数组,我这么写只显示了一个数组成员,没有变化,我是在设计时添加的Timer控件,大家帮忙看看错在哪了
jin_xiaolu2000
2004-12-27
打赏
举报
回复
private void button2_Click(object sender, System.EventArgs e)
{
this.timer1.Start();
}
private void timer1_Tick(object sender, System.EventArgs e)
{
i++;
this.label1.Text=i.ToString();//改成你变化的东西,最好先存好在数组拉
}
private void button1_Click(object sender, System.EventArgs e)
{
this.timer1.Stop();
}
jin_xiaolu2000
2004-12-27
打赏
举报
回复
timer 控制下拉,然后你变你的就可以拉啊
safematch
2004-12-27
打赏
举报
回复
文本框显示的频率应该用什么函数控制?
Excel
抽奖
程序
(春节
抽奖
)
这是一个共享软件,除了可以在本站下载外,你还可以在http://dl.dbank.com/c0e431w4g9# 下载。其主要功能如下: 1、内置特等奖、一等奖~五等奖6个级别的奖项和1个自定义级别的奖项,
抽奖
顺序没有限制。 2、对于任意一等奖来说,可以一次抽取任意数量的奖项; 3、背景、解码用户可自行调整; 4、
抽奖
背景音乐用户可换; 5、可以在
抽奖
过程中显示中奖者的照片; 6、
抽奖
过程中可以显示用户所在的部门信息; 7、对于要
求
必须在场的
抽奖
,当中奖人不在场时可以做弃权处理; 8、
抽奖
结果立即存入Excel“
抽奖
结果”工作表中。 使用说明及注意事项 1、
抽奖
前请在Excel“工具”-“宏”-“安全性”中将宏的安全级别设置为低,然后关闭Excel重新打开,否则无法运行
抽奖
程序
。 2、本
程序
支持六个固定级别的奖项设置和一个自定义的奖项设置。 3、
抽奖
顺序有两种,即先小奖后大奖或相反。这个设置仅用于初始化《
抽奖
》工作表中的奖项设置,
抽奖
过程中需手动在《
抽奖
》工作表中切 换
抽奖
级别。 4、本
程序
支持两种
抽奖
方法
:每次抽取一组中的全部名额,或每次抽取指定的若干名额。但是推荐一次抽取1个,因为大余一个时只能显示最 后一名中奖者的照片,且显示众多中奖者的名字时布局不是很美观。 5、单项最多可设 5000 名中奖者,中奖者总数不能多于候选人数,否则在抽取最后一人时会出现死循环。 6、请在《候选名单》工作表中录入所有候选项。候选人仅受Excel行数限制,输入时请连续纵向输入,不留空行。 7、在《
抽奖
》工作表中点击“弃权”按钮时该组中奖的所有的人将被自动剔除,后面的
抽奖
中将不再参与
抽奖
。 8、当设置的奖项总数+弃权总数大于等于
抽奖
候选人总数时,
程序
将出现死循环。 9、
抽奖
一旦开始,请完成整个
抽奖
过程,不要中途退出
程序
或追加候选人名单。 10、本
程序
不支持重复中奖,中奖的人不计入下一轮
抽奖
中。 关于《
抽奖
》工作表的界面设置的几点说明: 1、修改《
抽奖
》工作表的界面时需要先解锁工作表。具体
方法
:“工具”-“保护”-“解锁工作表”。修改完后最好锁定工作表。 2、
抽奖
时可隐藏Excel航标、列表。具体
方法
:“工具”-“选项”-“视图”-“行号列号”,取消勾选前面的复选框。 3、在调整《
抽奖
》工作表时,不可插入、删除行或列。 4、一般地,修改《
抽奖
》工作表布局可以通过调整第一行的行高或第一列的列宽来
实现
。如果你要对控件进行详细布局设计(例如改变控件大 小),你可以通过控件设计模式来
实现
。具体
方法
:“视图”-“工具栏”-“退出设计模式”。 这时,你可以随意拖动按钮或照片控件的位 置及大小。调整完成后必须退出设计模式(将“退出设计模式”前面的勾取消掉)。系统的默认位置为D2单元格。 5、为满足多人
抽奖
的需要,《
抽奖
》工作表中的D5:D65536(即D列中从第5行到65535行)用来显示中奖者姓名。该列采用了条件格式,用特殊 的格式来显示中奖者的姓名。如果你需要更改这个样式,可在编辑工具栏(显示fx的那个工具栏)最左边的“名称框”中选择“ResultDisplay” 或输入D5:D65536并回车,这时这些单元格会被自动选上,然后从工具栏中的“格式”-“条件格式”中修改。 6、《
抽奖
》工作表中的下拉列表根据设置自动生成,请不要更改其下拉列表的内容。 7、全屏显示。具体
方法
:“视图”-“全屏显示”。 8、更换背景。具体
方法
:“格式”-“工作表”-“背景”,选择你要的背景图片即可。 9、更换默认照片。具体
方法
:替换photo文件夹下面的“none.jpg”这个图片文件即可。 10、若要在
抽奖
过程中显示中奖者的照片,则需把
抽奖
人的照片放到photo文件夹下面,同时在《候选名单》工作表的C列给出照片名。 11、若要更改在
抽奖
过程中播放的声音,可以替换Music文件夹下面的start.wav、finish.wav文件。
java
实现
大转盘
抽奖
大转盘代码,好好分析,很有用,各位一起加油~
小
程序
实现
大转盘
抽奖
·小
程序
云开发实战
实战小
程序
大转盘
抽奖
功能!小
程序
端
实现
大转盘
抽奖
、查看
抽奖
规则、查看获奖记录后台
实现
管理
抽奖
记录列表、管理奖品列表、管理动态变化转盘图片&指针图片&背景图片、管理
抽奖
规则
幸运大转盘-jQuery+Java
实现
的
抽奖
程序
幸运大转盘-jQuery+Java
实现
的
抽奖
程序
有朋友说要源代码,在此给出,没有ssh基础的朋友建议不要下载。http://blog.csdn.net/appearbeauty/article/details/13766377
幸运大转盘-jQuery+Java
实现
的
抽奖
程序
(完整版)
原文博客:http://blog.csdn.net/appearbeauty/article/details/13766377
VB
16,555
社区成员
110,528
社区内容
发帖
与我相关
我的任务
VB
VB技术相关讨论,主要为经典vb,即VB6.0
复制链接
扫一扫
分享
社区描述
VB技术相关讨论,主要为经典vb,即VB6.0
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章