vb.net中panel 如何添加 picturebox

[「已注销」]

vb.net中panel 如何动态添加 picturebox，并且设置图片，并且根据指定的picturebox的单击及双击做出不同的响应？哪位高手帮个忙啊，急

[「已注销」]

我找了一个c#里能用的，转成vb.net代码就 不显示图片

[北京的雾霾天]

Image img=Bitmap.FromFile("D:\a.bmp");
PictureBox box = new PictureBox();
box.Dock = DockStyle.Fill;
box.Image = img;
box.Click += new EventHandler(box_Click);
box.DoubleClick += new EventHandler(box_DoubleClick);
void box_DoubleClick(object sender, EventArgs e)
{
    MessageBox.Show("Doubleclick");
}

void box_Click(object sender, EventArgs e)
{
    MessageBox.Show("Click");
}

Dim img As Image = Image.FromFile("D:" & ChrW(7) & ".bmp")
Dim box As New PictureBox
box.Dock = DockStyle.Fill
box.Image = img
AddHandler box.Click, New EventHandler(AddressOf Me.box_Click)
AddHandler box.DoubleClick, New EventHandler(AddressOf Me.box_DoubleClick)

Private Sub box_Click(ByVal sender As Object, ByVal e As EventArgs)
    MessageBox.Show("Click")
End Sub

Private Sub box_DoubleClick(ByVal sender As Object, ByVal e As EventArgs)
    MessageBox.Show("Doubleclick")
End Sub

[「已注销」]

我要是想显示 N 个图片,咋办啊

[沐NeMo]

不知道你要的是什么。N个图。什么意思。pictureBox只能显示一个图片。是不是要动态显示N个图片啊。

[yanlongwuhui]

        Dim intI As Integer
        Dim intWidth As Integer = 64
        Dim intHeight As Integer = 48
        For intI = 0 To 10
            Dim ctlObject As New PictureBox
            With ctlObject
                .BorderStyle = BorderStyle.Fixed3D
                .Name = (intI + 1).ToString
                .Width = intWidth
                .Height = intHeight
                .Left = intI * intWidth + 10
                .Top = 10
                '  加载图片的代码
            End With
            Me.Panel1.Controls.Add(ctlObject)
            AddHandler ctlObject.Click, AddressOf Picturebox_Click
            ctlObject = Nothing
        Next

[「已注销」]

我想 动态添加N个picturebox,并且自定义设置图片

[「已注销」]

能加注释吗？恕 小弟愚昧啊

[xfyxq]

从事程序开发不会有愚昧的人,麻烦你仔细试试别人给你提供的代码,一行行的去删去改看效果