VB.NET小程序实现3D摇奖

概述如图1：     如图2：        界面布局：放置3个标签，一个按钮。    功能 *** 作：点击开始按钮，进行摇号，再次点击后，停止，显示出号码；    实现的代码： Dim IsFlag As Boolean = False '控制开始变量 ''' <summary> ''' 开始按钮 ''' </summary> ''' <param name="sender

如图1：

如图2：

界面布局：放置3个标签，一个按钮。

功能 *** 作：点击开始按钮，进行摇号，再次点击后，停止，显示出号码；

实现的代码：

Dim IsFlag As Boolean = False '控制开始变量    ''' <summary>    ''' 开始按钮    ''' </summary>    ''' <param name="sender"></param>    ''' <param name="e"></param>    ''' <remarks></remarks>    Private Sub btnStart_Click(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles btnStart.Click        If IsFlag = False Then            IsFlag = True            Me.btnStart.Text = "停止"            Dim th As New Thread(AddressOf PalyGame)            th.IsBackground = True  '后台线程            th.name = "新线程"            th.Start()        Else            Me.IsFlag = False            Me.btnStart.Text = "开始"        End If    End Sub    ''' <summary>    ''' 开始摇奖方法    ''' </summary>    ''' <remarks></remarks>    Private Sub PalyGame()        Dim rm As New Random        While (IsFlag)            Me.lbl1.Text = rm.Next(0,10).ToString            Me.lbl2.Text = rm.Next(0,10).ToString            Me.lbl3.Text = rm.Next(0,10).ToString        End While    End Sub    ''' <summary>    ''' 界面加载事件    ''' </summary>    ''' <param name="sender"></param>    ''' <param name="e"></param>    ''' <remarks></remarks>    Private Sub frmyaojiang_Load(ByVal sender As System.Object,ByVal e As System.EventArgs) Handles MyBase.Load        Control.CheckForIllegalCrossthreadCalls = False        '获取或设置一个值，该值指示是否捕获对错误线程的调用，这些调用在调试应用程序时访问控件的 System.windows.Forms.Control.Handle 属性    End Sub

总结

以上是内存溢出为你收集整理的VB.NET小程序实现3D摇奖全部内容，希望文章能够帮你解决VB.NET小程序实现3D摇奖所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。