[dasktop]

مرحبا


انا لدي مشروع ويحتوي على picturbox وweb browser


فكيف نكرر ال piturbox على عدد for loop

انا كتبت الكود التالي


     Dim p As PictureBox
        Dim ii As Integer
        For ii = 1 To 5

            p = ii

        Next


ولم تتكرر ادات الصور

[ابراهيم ايبو]

السلام عليكم اخي الكريم

هذا مثال على اضافة صور عدد 12 في الاداة FlowLayoutPanel1

اما بالنسبة للـ WebBrowser فأنا لم اتعامل مع هذه الاداة ولا اعرف خصائصها

لذلك استميحك عذرا لعل احد اعضاء المنتدى الكرام يفيدك يذلك

دمت بخير

[سعود]

اعجبني المثال

واضفت حدث Pic.click

PHP كود :

       AddHandler Pic.Click, AddressOf Pic_Click
Private Sub Pic_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        LoadImage(sender)
    End Sub

 Private Function IsValidImage(ByVal picpath As String) As Boolean
        Try
            Dim img As Image = Image.FromFile(picpath)
            Return True
        Catch ex As Exception
            Return False
        End Try
    End Function

    Private Sub LoadImage(ByRef pic As PictureBox)
        If IsNothing(pic) Then Exit Sub
        Dim o As New OpenFileDialog
        If o.ShowDialog = Windows.Forms.DialogResult.OK Then
            If IsValidImage(o.FileName) Then
                pic.Image = Image.FromFile(o.FileName)
            End If
        End If
    End Sub



and this after edit
Private Function addPictur() As PictureBox
        Dim Pic As PictureBox = New PictureBox()
        Pic.BorderStyle = BorderStyle.Fixed3D
        Pic.BackColor = Color.Coral
        Pic.Width = 100
        Pic.Height = 100
        Pic.Margin = New Padding(5)
        Pic.SizeMode = PictureBoxSizeMode.StretchImage
        AddHandler Pic.Click, AddressOf Pic_Click' هذي اضافة الحدث المكتوب
        Return Pic
    End Function 


[ابراهيم ايبو]

اخي سعود مبدع ومتألق 

وكعادتك لابد من ان تترك بصماتك الرائعة المفيدة

بارك الله فيك وجزاك خير جزاء