[MSDOS]

بعد إذن أخوي 3booody



لعمل مثال يشبة هذه الصورة
1: ادرج الأداة GroupBox واكتب في خاصية Text النص Vistas
2: ادرج الأداة FlowLayoutPanel واسحبها إلى داخل الآداة GroupBox واجعل الخاصية Dock تكون Fill والخاصية AutoScroll تكون True
3: أدرج الأداة Botton
4: أدرج الأداة FolderBrowserDialog لاستعراض المجلدات من أجل اختيار المجلد المطلوب اخذ الصور منه.
5: ضع هذا الكود

كود :

Public Class Form1


    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click


        If FolderBrowserDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then


            ' jpg
            For Each fi As IO.FileInfo In New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath).GetFiles("*.jpg")
                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)
            Next


            ' png
            For Each fi As IO.FileInfo In New IO.DirectoryInfo(FolderBrowserDialog1.SelectedPath).GetFiles("*.png")
                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)
            Next


        End If


    End Sub


    Dim CheckBoxImages As New List(Of CheckBox)
    Private Sub AddCheckBoxImage(ByVal parent As Object, ByVal filename As String)
        CheckBoxImages.Add(New CheckBox)
        Dim mCheckBox As CheckBox = CheckBoxImages(CheckBoxImages.Count - 1)
        mCheckBox.Text = ""
        mCheckBox.AutoSize = False
        mCheckBox.Size = New Size(120, 80)
        mCheckBox.BackColor = Color.White
        mCheckBox.BackgroundImageLayout = ImageLayout.Stretch
        mCheckBox.CheckAlign = ContentAlignment.TopLeft


        mCheckBox.BackgroundImage = Image.FromFile(filename)
        mCheckBox.Parent = parent
    End Sub


End Class

قائمة CheckBox سوف تكون في المصفوفة CheckBoxImages
يعني تقدر تعرف عدد الصور من CheckBoxImages.Count
وتقدر تعرف هل الصورة تم تحديدها من CheckBoxImages(6).Checked

هذه النتيجة