我正在使用vb.net列表框来显示多个图像。但它只显示表格上的第一张图片。
我的代码如下:
Dim Pics As New List(Of PictureBox)
For i As Integer = 0 To 6
Pics.Add(New PictureBox)
Pics(i).Image = Image.FromFile("D:\11.gif")
Pics(i).Top = i * 300
Pics(i).Left = i * 300
Pics(i).Width = 1000
Pics(i).Height = 1000
Me.Controls.Add(Pics(i))
Next
在我的代码中,我为所有6个图片框使用相同的图像进行测试。我的代码有什么问题吗?感谢。
答案 0 :(得分:0)
正确更改top
和left
。
试试这个
Pics.Add(New PictureBox)
Pics(i).Image = Image.FromFile("D:\11.gif")
Pics(i).Top = 10
Pics(i).Left = 100 + (i * 100)
Pics(i).Width = 100
Pics(i).Height = 1000
Me.Controls.Add(Pics(i))
答案 1 :(得分:0)
如果你想让它们在一行中设置Pics(i).Top = 300“那么所有的图片都将水平”
“然后你会看到你的所有图片框”
或者将Pics(i).Left = i * 150更改为Pics(i).Left = 150以将它们全部垂直移动。
您需要更改其他设置的其他设置。
Dim Pics As New List(Of PictureBox)
For i As Integer = 0 To 6
Pics.Add(New PictureBox)
Pics(i).Image = Image.FromFile("D:\11.gif")
Pics(i).Top = 300
Pics(i).Left = i * 150
Pics(i).Width = 100
Pics(i).Height = 100
Me.Controls.Add(Pics(i))
Next