Question

我有一个旋转按钮和两个列表框。我设置了旋转按钮的最小值和最大值。我已经有一个按钮，可以将数据从列表框1移动到listbox2。但是我想设置一个基于旋转按钮移动数据的限制。例：如果旋转按钮中的值为2，则只能将2个项目添加到listbox2

注意：我已将旋转按钮链接到文本框

Answer 1

声明一个变量，然后每次移动一个项目时，将变量的值增加1.因此，下次单击按钮移动项目时，只需将变量的值与{{1}进行比较}价值。例如（未经测试）

SpinButton's

从评论中跟进

只有当您将LB中的项目数与TB相匹配时，才需要在您的情况下使用Dim nMoved As Long Private Sub CommandButton1_Click() If nMoved < (VAL(TextBox1.Text) + 1) ' '~~> Code to move items from LB1 to LB2 ' nMoved = nMoved + 1 Else MsgBox "Max items that can be moved from LB1 to LB2 reached." End If End Sub。我从您的帖子中了解到，用户不应该将更多项目移动到LB中，而不是TB中指定的项目。无论如何，您的查询似乎已经排序。

关于你的第二条评论。

您需要使用下面的代码遍历LB项目，如果.ListCount等于TB值，则退出循环。例如

counter

Answer 2

谢谢大家......最后我得到了答案

Dim ct As Integer
Dim ictr As Long
Dim jctr As Integer
jctr = CInt(Me.TextBox1.Value)
If jctr = ListBox2.ListCount Then
   MsgBox "Maximum limit has been reached. You cannot add more players"
    Exit Sub
End If
  For ictr = jctr To 1 Step -1
    Me.ListBox2.AddItem Me.ListBox1.List(ictr)
Me.ListBox1.RemoveItem ictr
Next ictr

如何在条件中使用SpinButton

2 个答案: