Question

我必须根据某个单词的长度添加多个图片框。比如说它是六。这意味着我需要创建6个图片框。它变得有点棘手的是我需要这些才能保持中心。那就是我需要他们的图片框总是集中在一起，就像排成一排的水平排。我有一个计划，唯一的问题是我似乎无法创建多个图片框。到目前为止，这是我的代码。

    Dim dash(Len(correctWord) - 1) As PictureBox
    Dim count = 0
    Dim buffer = 55 * count
    While count <> Len(correctWord)
        dash(count) = New PictureBox
        dash(count).Image = My.Resources.dash
        dash(count).Visible = True
        dash(count).Width = 50
        dash(count).Height = 80
        dash(count).Top = 300
        If ((count Mod 2) = 0) Then
            dash(count).Left = (273 + (55 * buffer))
        Else
            dash(count).Left = (273 - (55 * buffer))
        End If
        Controls.Add(dash(count))
        count = count + 1
    End While

无论我怎么努力，它只显示一个图片框。如果有人可以提供非常感激的帮助。

Answer 1

您将它们全部添加到同一位置...您必须在每次迭代中更改顶部或左侧属性才能全部查看。

问题是buffer不会在while循环中改变它的值这应该有效：

Dim dash(Len(correctWord) - 1) As PictureBox
Dim count = 0
Dim buffer as integer
While count <> Len(correctWord)
    buffer = 55 * count
    dash(count) = New PictureBox
    dash(count).Image = My.Resources.dash
    dash(count).Visible = True
    dash(count).Width = 50
    dash(count).Height = 80
    dash(count).Top = 300
    If ((count Mod 2) = 0) Then
        dash(count).Left = (273 + buffer)
    Else
        dash(count).Left = (273 - buffer)
    End If
    Controls.Add(dash(count))
    count = count + 1
End While

只有一个动态创建的图片框显示？

1 个答案: