单击Button VB.Net激活每个循环

Question

这是我的问题：我有一个循环1到30，每次单击按钮时都需要运行迭代。基本上如果我点击它应该运行一次迭代并等待下一次点击运行第二次迭代，依此类推。

Public Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    For i = 1 To 30 'go to next iteration only when i click the Button1
      do whatever

    next i


end sub

Answer 1

一个选项是添加一个表单级别变量（初始化为底部值“1”）以保持循环计数器，并在按钮单击中执行简单的IF检查是否在变量上查看它是否在您的范围内想要运行（1-30）然后将变量增加为按钮单击内的最后一步。