vb 五位抽奖程序
設計
需要label數組,用復制粘貼的方式實現
要添加一個timer,屬性設置如下:
運行效果
代碼
Private Sub Command1_Click()Timer1.Enabled = TrueCommand2.Enabled = TrueCommand1.Enabled = False End SubPrivate Sub Command2_Click()Timer1.Enabled = FalseText1.Text = Label2(0).Caption & " " & Label2(1).Caption & " " & Label2(2).Caption & " " & Label2(3).Caption & " " & Label2(4).CaptionCommand2.Enabled = FalseCommand1.Enabled = TrueCommand3.Enabled = TrueEnd SubPrivate Sub Command3_Click()End End SubPrivate Sub Timer1_Timer()RandomizeLabel2(0).Caption = Int(Rnd * 10 + 0)Label2(1).Caption = Int(Rnd * 10 + 0)Label2(2).Caption = Int(Rnd * 10 + 0)Label2(3).Caption = Int(Rnd * 10 + 0)Label2(4).Caption = Int(Rnd * 10 + 0)End Sub總結
- 上一篇: vb鼠标涂鸦板的制作
- 下一篇: 【数据结构】B树的理解