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

[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