+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : اسناد 35 صورة بمجلد الى مثلها بالعدد من مربعات الصور بالفورم (/showthread.php?tid=34649)
اسناد 35 صورة بمجلد الى مثلها بالعدد من مربعات الصور بالفورم - سعود - 07-05-20
PHP كود :
Private Sub pics()
Dim c As Control
Dim i As Integer = 1
For Each c In Panel1.Controls
i = c.Name.Replace("p", "")
If TypeOf c Is PictureBox Then
CType(c, PictureBox).ImageLocation = CurDir() & "\pics\forvb_" & i.ToString("00") & ".png"
End If
Next
End Sub