0

首先，我是 VB 的初学者，目前我正在完成一项开发轮盘游戏的学校作业。我在自定义文本框中有 49 个投注字段（用于验证目的），它们如下所示Dim BetBoxes() As TextBox = {ctxtFirstHalf, ctxtEven....ctxt 36}。我还有一个整数数组（SavedBets），除了前缀之外，它们共享相同的名称。现在，当我添加了我想要的赌注时，我按下赌注按钮我想将填充的文本框的值保存到整数数组中的各个整数中。

如何检查文本框的值并将其保存为另一个数组上的整数？也欢迎其他巧妙地实现这一点的方法。

4

2 回答 2

0

尝试使用 Structure 和 ListOf ..

Structure DataBets
  Dim TextBox as TextBox
  Dim Value as Integer
End Structure

Dim lBet as List(Of DataBets)
Dim stBet as DataBets = New DataBets

当您的 ctxFirstHalf 填充..

stBet.TextBox = ctxFirstHalf
stBet.Value = val(ctxFirstHalf.Text)
lBet.Add(stBet)

要访问它..

Msgbox lBet(0).Value '---->this will show your ctxFirstHalf int
于 2013-07-15T15:37:25.570 回答
0

您可以设置它类似于设置在线赌场的方式。

使用带有您希望它们表示的数字和字段图片的标签（Paint 可以轻松完成此操作）。不要使用筹码堆，而是使用 Text 属性来显示下注金额。您不需要任何额外的数组。

当球选择了一个数字时，您只需阅读相应标签的文本属性以查看您是否有赢家，然后根据该值计算获胜。Controls 集合按数字或名称作为字符串进行索引。

一旦计算出奖金，一个简单的循环将清除标签的所有文本属性。

您可以让玩家选择下注金额，然后单击该字段以添加下注。一个常见的 Click 事件处理程序将允许您将赌注添加到单击的标签。Numericupdown 控件可用于选择投注金额。

于 2013-07-16T07:27:51.577 回答