vb.net 多次滚动抽奖的程序代码

vb.net 多次滚动抽奖的程序代码

我用多线程写的，你可以参考下。

系统界面图如下：（注：重置功能为清除已经中奖号码，回归1-100都可以中奖状态。）

代码：

    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        System.Threading.Thread g_Thread = null;

        List g_list = new List();

        int g_Num = 0;

        delegate void g_delegate();
        /// 

        /// 开始
        /// 

        /// 
        /// 
        private void button2_Click(object sender, EventArgs e)
        {
            if(g_list.Count==100)
            {
                MessageBox.Show("所有数字已使用，请重置！");

                return;
            }
            button3.Enabled = true;
            Random r = new Random();
            g_delegate dele= ChangeTxt;
            g_Thread = new System.Threading.Thread(() =>
            {
                while(this.IsDisposed==false)
                {
                    g_Num = r.Next(1, 100);
                    if(g_list.Contains(g_Num))
                    {
                          g_Num =  1;
                    }
                    while(g_list.Contains(g_Num))
                    {
                        g_Num++;
                    }
                    this.Invoke(dele);
                    System.Threading.Thread.Sleep(50);
                }
            });
            g_Thread.Start();
        }
        void ChangeTxt()
        {
            label2.Text = g_Num.ToString();
        }
        /// 

        /// 停止
        /// 

        /// 
        /// 
        private void button3_Click(object sender, EventArgs e)
        {
            //if(g_Thread.ThreadState==System.Threading.ThreadState.Running)
            {
                g_Thread.Abort();
                g_list.Add(Convert.ToInt32(label2.Text));
            }
            button3.Enabled = false;
        }
        /// 

        /// 重置
        /// 

        /// 
        /// 
        private void button1_Click(object sender, EventArgs e)
        {
            g_list.Clear();
        }

        private void Form1_FormClosed(object sender, FormClosedEventArgs e)
        {
            System.Environment.Exit(0);
        }
    }


追问你好，谢谢你的帮助，但我是VB.net初学者，看不懂哎，但还是很感谢的