锐客网

  1. 首页 > 生活百科 > it技术 > >

vbnet抽奖程序 vb编写抽奖小程序

IT技术程序

抽奖程序（用vb编写）在窗体上添加一个command1，一个timer1，label1(0~5)
控件数组（添加一个label1,然后再复制5个 ， 共6个，用来显示数字），代码如下：
Private
Sub
Command1_Click()
If
Command1.Caption
=
"抽奖"
Then
Command1.Caption
=
"停止"
Timer1.Enabled
=
True
Else
Timer1.Enabled
=
False
Command1.Caption
=
"抽奖"
End
If
End
Sub
Private
Sub
Form_Load()
Command1.Caption
=
"抽奖"
Timer1.Interval
=
50
Timer1.Enabled
=
False
End
Sub
Private
Sub
Timer1_Timer()
Randomize
For
i
=
To
5
Label1(i)
=
Int(10
*
Rnd)
Select
Case
Label1(i).Caption
Case
Label1(i).BackColor
=
RGB(0,
0,
0)
Label1(i).ForeColor
=
RGB(255,
255,
255)
Case
1
Label1(i).BackColor
=
RGB(128,
42,
42)
Label1(i).ForeColor
=
RGB(127,
213,
213)
Case
2
Label1(i).BackColor
=
RGB(255,
0,
0)
Label1(i).ForeColor
=
RGB(0,
255,
255)
Case
3
Label1(i).BackColor
=
RGB(255,
97,
0)
Label1(i).ForeColor
=
RGB(0,
158,
255)
Case
4
Label1(i).BackColor
=
RGB(255,
255,
0)
Label1(i).ForeColor
=
RGB(0,
0,
255)
Case
5
Label1(i).BackColor
=
RGB(0,
255,
0)
Label1(i).ForeColor
=
RGB(255,
0,
255)
Case
6
Label1(i).BackColor
=
RGB(0,
0,
255)
Label1(i).ForeColor
=
RGB(255,
0,
0)
Case
7
Label1(i).BackColor
=
RGB(160,
32,
240)
Label1(i).ForeColor
=
RGB(95,
223,
15)
Case
8
Label1(i).BackColor
=
RGB(192,
192,
192)
Label1(i).ForeColor
=
RGB(63,
63,
63)
Case
9
Label1(i).BackColor
=
RGB(255,
255,
255)
Label1(i).ForeColor
=
RGB(0,
0,
0)
End
Select
Next
End
Sub
VB设计一个随机抽奖程序，当单击开始按钮时，在两个文本框产生【1，20】之间的随机整数？假定开始按钮是 Command1，两个文本框分别是 Text1、Text2
Private Sub Command1_Click()
Randomize
Text1.Text = Int(Rnd * 20) + 1
Text2.Text = Int(Rnd * 20) + 1
End Sub
vb.net 多次滚动抽奖的程序代码vbnet抽奖程序我用多线程写vbnet抽奖程序的vbnet抽奖程序 ， 你可以参考下 。
系统界面图如下：（注：重置功能为清除已经中奖号码vbnet抽奖程序，回归1-100都可以中奖状态 。）
代码：
public partial class Form1 : Form
{
public Form1()
{
InitializeComponent();
}
System.Threading.Thread g_Thread = null;
Listint g_list = new Listint();
int g_Num = 0;
delegate void g_delegate();
/// summary
/// 开始
/// /summary
/// param name="sender"/param
/// param name="e"/param
private void button2_Click(object sender, EventArgs e)
{
if(g_list.Count==100)
{
MessageBox.Show("所有数字已使用vbnet抽奖程序 ， 请重置！");
return;
}
button3.Enabled = true;
Random r = new Random();
g_delegate dele= ChangeTxt;

推荐阅读


上一篇：剪辑视频应该剪个什么音乐，剪辑视频用什么音乐

下一篇：单机游戏女解说，游戏女解说 谁人气最高