23-08-13, 08:26 PM
بعد إذن أخوي 3booody
لعمل مثال يشبة هذه الصورة
1: ادرج الأداة GroupBox واكتب في خاصية Text النص Vistas
2: ادرج الأداة FlowLayoutPanel واسحبها إلى داخل الآداة GroupBox واجعل الخاصية Dock تكون Fill والخاصية AutoScroll تكون True
3: أدرج الأداة Botton
4: أدرج الأداة FolderBrowserDialog لاستعراض المجلدات من أجل اختيار المجلد المطلوب اخذ الصور منه.
5: ضع هذا الكود
قائمة CheckBox سوف تكون في المصفوفة CheckBoxImages
يعني تقدر تعرف عدد الصور من CheckBoxImages.Count
وتقدر تعرف هل الصورة تم تحديدها من CheckBoxImages(6).Checked
هذه النتيجة
لعمل مثال يشبة هذه الصورة
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
هذه النتيجة
