与跟踪问题点击

vb.net

2013-10-23 62 views 1 likes

我试图在Visual Basic中老虎机类型的节目，我有基本的插槽机制的所有检出并计划与与跟踪问题点击

Private Sub roll_Click(sender As Object, e As EventArgs) Handles roll.Click 
    a.Text = CStr(Int(Rnd() * 10)) 
    b.Text = CStr(Int(Rnd() * 10)) 
    c.Text = CStr(Int(Rnd() * 10)) 

    If a.Text = 7 And b.Text = 7 And c.Text = 7 Then 
     MessageBox.Show("WINNER!") 
    Else 
     MessageBox.Show("Sorry, you are not a winner.") 
    End If 
End Sub

但我想引用这在点击事件次要文本标签。例如，如果按钮被点击，它会跟踪您点击的次数。就像我在想：

Private Sub amountlabel_Click(sender As Object, e As EventArgs) Handles amountlabel.Click 
    for roll.Click do 

     amount.Text = + 1 
    End For 
End Sub

任何人都可以帮忙谢谢！

来源

2013-10-23 CodeByter

什么有这个做的Lua？顺便说它是Lua，而不是LUA。这不是一个缩写，而是葡萄牙语中的“月亮”。 –

回答

只要把计数器变量（Integer）在你的表单类和每一个按钮被点击时只增加计数器和更新标签的文本，就像这样：

Public Class Form1 Inherits Form 
    Dim counter As Integer = 0 

    Private Sub roll_Click(sender As Object, e As EventArgs) Handles roll.Click 
     a.Text = CStr(Int(Rnd() * 10)) 
     b.Text = CStr(Int(Rnd() * 10)) 
     c.Text = CStr(Int(Rnd() * 10)) 

     If a.Text = 7 And b.Text = 7 And c.Text = 7 Then 
      MessageBox.Show("WINNER!") 
     Else 
      MessageBox.Show("Sorry, you are not a winner.") 
     End If 

     ' Increment counter 
     counter = counter + 1 

     ' Update display 
     amount.Text = counter.ToString() 
    End Sub 
End Class

来源

2013-10-23 20:32:24

与跟踪问题点击

回答

相关问题