0

リストボックスに追加されたアイテムの数に基づいてフォームにコントロールを追加する方法を見つけました。

    ListBox1.Items.Add(TextBox1.Text)
    TextBox1.Text = ""

    For i As Integer = 0 To ListBox1.Items.Count - 1

        'adds picturebox for as many listbox items added
        Dim MyPictureBox As New PictureBox()
        MyPictureBox.Location = New Point(25, 25)
        MyPictureBox.Size = New Size(15, 15)
        MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
        Me.Controls.Add(MyPictureBox)
        MyPictureBox.Image = My.Resources.PDF_Info

    Next i

私が理解できないように見えるのは、2 番目のコントロールを追加する方法ですが、フォームの別の場所に追加する方法です。

したがって、最初のエントリはピクチャ ボックスを 25、25 に配置し、2 番目の項目を入力すると、別のピクチャ ボックスが 45、45 などに作成されます。

これはできますか？

4

2 に答える 2

1 
  ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
Dim x As Integer = 25
For i As Integer = 0 To ListBox1.Items.Count - 1

    'adds picturebox for as many listbox items added
    Dim MyPictureBox As New PictureBox()
    MyPictureBox.Location = New Point(x, x)
    MyPictureBox.Size = New Size(15, 15)
    MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    Me.Controls.Add(MyPictureBox)
    MyPictureBox.Image = My.Resources.PDF_Info
    x += 25
Next i
于 2012-09-14T03:04:07.627 に答える
1

それはこのようなものになります

ListBox1.Items.Add(TextBox1.Text)
TextBox1.Text = ""
Dim p as Integer = 25

For i As Integer = 0 To ListBox1.Items.Count - 1
    'adds picturebox for as many listbox items added
    Dim MyPictureBox As New PictureBox()
    MyPictureBox.Location = New Point(p , p)
    MyPictureBox.Size = New Size(15, 15)
    MyPictureBox.SizeMode = PictureBoxSizeMode.StretchImage
    Me.Controls.Add(MyPictureBox)
    MyPictureBox.Image = My.Resources.PDF_Info
   'add 20  to the current position of the control
   p = p + 20

Next i
于 2012-09-14T03:05:50.560 に答える