Question

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

如何检查文本框的值并将其保存为另一个数组的整数？其他方式也可以很好地实现这一点。

Answer 1

尝试使用结构和列表..

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

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

当你的ctx上半场填满..

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

要访问它..

Msgbox lBet(0).Value '---->this will show your ctxFirstHalf int

Answer 2

您可以将其设置为与在线赌场的设置方式类似。

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

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

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

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

检索并将值从文本框数组保存到整数数组

2 个答案: