新闻是有分量的

优德官方网站_用VB.NET做一个抽奖系统

TAG: 作者:优德娱乐场w88官方-小编

  有些时候,公司需要一个抽奖软件,然而却没有按照需求的软件,这种时候就可以动动脑筋用用VB.NET,实际上很简单,我这里就用VB.NET 2010给大家示范一下。

  先创建一个标准Form窗体:

用VB.NET做一个抽奖系统

  

创建新工程

  插入两个Label、一个Timer和三个button:
 

用VB.NET做一个抽奖系统

  

设置前
 

  稍微设置一下(外观随意):
 

  Form1:Text设为“幸运抽奖”,Maxmizebox设为“false”(防止最大化的驴脸),FormBorderStyle设为“Fixed3D”(同样)
 

  label1:Text设为“中奖号码是:”
 

  Label2:Text设为0,字体调大(随意)

  Button1:Text设为“滚动数字”

  Button2:Text设为“停止滚动”

  Button3:Text设为“清零”

  Timer1:Interval设为“50”,Enabled设为“FALSE”

  就像这样:

用VB.NET做一个抽奖系统

  

设置后

  双击窗体,删除掉现有的所有代码,再输入:
 

  Public Class Form1

  Private Function Rndz(ByRef a As Integer, ByRef b As Integer) As Object

  Randomize()

  Rndz = Int((a - b + 1) * Rnd() + b)

  End Function

  End Class

  双击Timer1,然后写入以下代码(注意,是写入不是替换):

  Label2.Text = Rndz ( 0 , 99 )
 

  你可以修改括号两边(不包含逗号)的内容,分别是最小限制和最大限制。例如:(100,1000)

  双击Button1,写入以下代码(不是替换):

  Timer1.Enabled = True
 

  双击Button2,写入以下代码(不是替换):

  Timer1.Enabled = false
 

  双击Button3,写入以下代码(不是替换,说的好烦):

  Label2.Text = "0"
 

  然后就可以尝试运行啦!虽然只是一个简单的程序,但用处还是蛮大滴!
 

  来一张代码图:用VB.NET做一个抽奖系统

  很多人问我为什么要写新手文章,我知道很多人都已经懂了,但是我还是希望新手比较容易入门!
 

  为什么我没有发附件呢?因为我希望大家都能够自己动手。也是非常简单的,如果有BUG在评论区反映一下哦!