الاداة CheckBox بحجم كبير - نسخة قابلة للطباعة

كود :

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



    CheckBox1.[color=#FF0000]Text [/color]= ""

    CheckBox1.[color=#FF0000]AutoSize [/color]= False

    CheckBox1.[color=#FF0000]Size [/color]= New Size(120, 100)

    CheckBox1.[color=#FF0000]BackColor [/color]= Color.White

    CheckBox1.[color=#FF0000]BackgroundImageLayout [/color]= ImageLayout.Zoom

    CheckBox1.[color=#FF0000]CheckAlign [/color]= ContentAlignment.TopLeft



    CheckBox1.BackgroundImage = Image.FromFile("C:\Users\Public\Pictures\Sample Pictures\Penguins.jpg")



End Sub

كود :

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

كود :

Public Class Form1



    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged



        FlowLayoutPanel1.Controls.Clear()



        GroupBox1.Text = ""



        Dim folderPath As String = ""



        Select Case ComboBox1.Text

            Case "Vista"

                ' غيير المسار المكتوب حسب مكان المجلد المحدد لهذا الاختيار

                folderPath = "C:\Users\Public\Pictures\Sample Pictures"



            Case "XP"

                ' غيير المسار المكتوب حسب مكان المجلد المحدد لهذا الاختيار

                folderPath = " "



            Case "7"

                ' غيير المسار المكتوب حسب مكان المجلد المحدد لهذا الاختيار

                folderPath = "C:\Users\Public\Pictures\Sample Pictures"



        End Select



        If IO.Directory.Exists(folderPath) Then



            ' jpg

            For Each fi As IO.FileInfo In New IO.DirectoryInfo(folderPath).GetFiles("*.jpg")

                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)

            Next



            ' png

            For Each fi As IO.FileInfo In New IO.DirectoryInfo(folderPath).GetFiles("*.png")

                AddCheckBoxImage(FlowLayoutPanel1, fi.FullName)

            Next



            GroupBox1.Text = ComboBox1.Text



        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