ساخت آلبوم تصاویر و قابلیت حذف تصاویر به صورت لحظه ای (پویا) (+سورس)

[Ali_M.Eghbaldar]

سلام دوستان عزیز
سورسی که براتون میزارم، برای حرفه ها فوق العاده تکراریست ولی برای تازه کارها جدید.
داشتم روی پروژه ای کار میکردم، نیاز داشتم از اول یه همچین چیزی بنویسم، دیدم حالا که نوشتم، بد نیست شرش کنم.
در هر صورت امیدوارم مفید باشه.

نکته: در این سورس فقط کلیات نوشته شده و جزئیات (یعنی نوشتن کدهای تحت بانک و دستورات ...) با خودتون.

کد های ایجاد شی

 Dim Count_Object As Integer = 20



        For i As Integer = 1 To Count_Object





            Dim FLP As New FlowLayoutPanel

            Dim pic As New PictureBox

            Dim btnDel As New PictureBox



            With FLP

                .Size = New Size(167, 200)

            End With

            With pic

                .Size = New Size(167, 167)

                .BackColor = Color.Gray

            End With

            With btnDel

                .Size = New Size(100, 50)

                btnDel.Cursor = Cursors.Hand

                .BackColor = Color.Red

                AddHandler btnDel.Click, AddressOf btnDelClick

                btnDel.Tag = i

            End With



            FLP.Controls.Add(pic)

            FLP.Controls.Add(btnDel)

            pnl.Controls.Add(FLP)



        Next

هندلینگ شی

    Private Sub btnDelClick(ByVal sender As Object, ByVal e As EventArgs)

        Dim B As New PictureBox

        B = CType(sender, PictureBox)

        MsgBox(B.Tag)

    End Sub