在vb.net中以编程方式向窗体添加多个PictureBoxe?
我必须按照我的要求在面板中添加图像框 “在这个问题上,PictureBox是随机绘制的,但我希望以同步方式绘制 在这里输入代码在vb.net中以编程方式向窗体添加多个PictureBoxe?,vb.net,picturebox,Vb.net,Picturebox,我必须按照我的要求在面板中添加图像框 “在这个问题上,PictureBox是随机绘制的,但我希望以同步方式绘制 在这里输入代码 Dim i As String = ListBox1.Items.Count For j As Integer = 0 To i Dim PicBox As New PictureBox PicBox.Width = 40 PicBox.Top = 25 PicBox.Left = j + 15 PicBox.SizeMode = PictureBoxSizeMode.
Dim i As String = ListBox1.Items.Count
For j As Integer = 0 To i
Dim PicBox As New PictureBox
PicBox.Width = 40
PicBox.Top = 25
PicBox.Left = j + 15
PicBox.SizeMode = PictureBoxSizeMode.StretchImage
PicBox.BorderStyle = BorderStyle.FixedSingle
Me.Panel1.Controls.Add(PicBox)
Next
我想使用计数器自动检查i的值
有什么想法或建议吗
谢谢像这样的东西怎么样:
Private Sub PicBoxTestButton_Click(sender As System.Object, e As System.EventArgs) Handles PicBoxTestButton.Click
Try
Dim numberOfPics As Integer = ListBox1.Items.Count
Dim lastLeft As Integer = 15
Const spacer As Integer = 5
For parser As Integer = 0 To numberOfPics
Dim PicBox As New PictureBox
PicBox.Width = 40
PicBox.Top = 25
PicBox.Left = lastLeft
lastLeft = PicBox.Width + PicBox.Left + spacer
PicBox.SizeMode = PictureBoxSizeMode.StretchImage
PicBox.BorderStyle = BorderStyle.FixedSingle
Me.Panel2.Controls.Add(PicBox)
Next
Catch ex As Exception
MessageBox.Show(String.Concat("An error occurred: ", ex.Message))
End Try
End Sub
看起来你就是这么做的。你有什么问题?我怎样才能用这种方式在两个图片盒之间获得更多的空间。它看起来像上面链接中的一个,而不是ramdom。它能处于同步模式吗?有没有可能通过阵列初始化它?阵列中会有什么?