[nin9e]

تفضل اخي

[MSDOS]

nin9e كتب :تفضل اخي

بعد إذن أخي المبدع 3booody

جرب التالي
(الخصائص اللي باللون الأحمر يمكنك تحديدها من نافذة الخصائص بدون ما تكتبها بالكود ويصير ما تحتاج غير السطر الأخير فقط لتعيين الصورة ولاحظ إنها الخاصية BackgroundImage وليست الخاصية Image)

كود :

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

وهذه النتيجة

[3booody]

MSDOS كتب :بعد إذن أخي المبدع 3booody

جرب التالي
(الخصائص اللي باللون الأحمر يمكنك تحديدها من نافذة الخصائص بدون ما تكتبها بالكود ويصير ما تحتاج غير السطر الأخير فقط لتعيين الصورة ولاحظ إنها الخاصية BackgroundImage وليست الخاصية Image)

كود :

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

وهذه النتيجة

إقتباس :شكر هذه المشاركة
معجب بهذه المشاركة

ماشاء الله تبارك تعالى عاشت ايدك اخي على الابداع

[MSDOS]

وممكن تخلي الخاصية BackgroundImageLayout تساوي Stretch مع مقاس Size يساوي 160x100

[nin9e]

مشكور اخي msdos علي المشاركه الرائعه

[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

هذه النتيجة

[nin9e]

طيب انا اسف بس ممكن مثال علي المشروع. وكان في طلب اخر ممكن combobox يكون فيه مثلا (Vistas-XP- 7) يعني لو اخترت VISTAS يجبلي صور VISTAS في ال Group box. و انا اسف تعبتك معايا و مشكوررررررررررررررررررر... D:

[MSDOS]

nin9e كتب :طيب انا اسف بس ممكن مثال علي المشروع. وكان في طلب اخر ممكن combobox يكون فيه مثلا (Vistas-XP- 7) يعني لو اخترت VISTAS يجبلي صور VISTAS في ال Group box. و انا اسف تعبتك معايا و مشكوررررررررررررررررررر... D:

المشكلة اني قاعد اكتب في موضوع للآخ المبدع 3booody وهذا مسبب لي حرج كون اصل هذا الموضوع خاص به

لكن فرصة لنه يقيمني مثل أخي المبدع الشاكي لله


لعمل مثال حسب طلبك بطريقة combobox
1: أدرج الأداة ComboBox واكتب داخل خاصية Items الكلمات التي تريدها مثل زي ما ذكرت (Vistas-XP- 7)
2: ادرج الأداة GroupBox وخلي نص الخاصية Text فاضي
3: ادرج الأداة FlowLayoutPanel واسحبها إلى داخل الآداة GroupBox واجعل الخاصية Dock تكون Fill والخاصية AutoScroll تكون True
4: ضع هذا الكود

كود :

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

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

هذه النتيجة

[3booody]

إقتباس :المشكلة اني قاعد اكتب في موضوع للآخ المبدع 3booody وهذا مسبب لي حرج كون اصل هذا الموضوع خاص به

جزاك الله خيرآ اخي ولايهمك انا اصلآ تارك الموضوع الك لثقتي فيك وفي ابداعك عاشت ايدك

[MSDOS]

3booody كتب :جزاك الله خيرآ اخي [COLOR="#FF0000"]ولايهمك انا اصلآ تارك الموضوع الك لثقتي فيك وفي ابداعك عاشت ايدك[/COLOR]

الله يطمن قلبك، والله هذه الكلمات تشريف لي احطها فوق راسي وافتخر بيك.