منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

هل فى كود لملأ image list بزر بوتون اثناء تشغيل البرنامج
واشكركم

راجع هذا الموضوع :

http://vb4arb.com/vb/showthread.php?tid=26842

اشكرك جدااااااااااااااااااااااااااااا صديقى العزيز
لكن لم استطع فهم الامر
وتحياتى ايها الشخصية المحترمة

اعمل مشروع جديد وضع على الفورم :

أداة اميج ليست (ImageList)
أداة (OpenFileDialog)

إدارة عرض الصورة .
بوتن لأختيار الصورة .
ليست فيو لعرض الصور بداخلها .

[attachment=21259]

دبل كلك على البوتن والصق الكود التالي :

كود :

With OpenFileDialog1

            OpenFileDialog1.Title = "(Select Image) (تحديد صورة)"

            OpenFileDialog1.Filter = "JPEG,BMP,PNG  (تحديد صورة) (Select Image) |*.jpg;*.jpeg;*.bmp;*.png"

        End With

        If OpenFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then

            Dim fs As System.IO.FileStream = New System.IO.FileStream(OpenFileDialog1.FileName, IO.FileMode.Open, IO.FileAccess.Read)

            Dim rawdata As Byte()

            rawdata = New Byte(Convert.ToInt32(fs.Length)) {}

            fs.Read(rawdata, 0, Convert.ToInt32(fs.Length))

            PictureBox1.Image = Image.FromStream(New System.IO.MemoryStream(rawdata))

            fs.Close()

            fs = Nothing

'بداية اكواد ادراج صورة في أداة ايميج ليست وعرضها على الليست فيو

            Dim Lvi As New ListViewItem

            Lvi.Text = "سيارة رقم " & ImageList1.Images.Count + 1

            Lvi.ImageIndex = ImageList1.Images.Count

            Dim img As New Bitmap(PictureBox1.Image)

            ImageList1.ImageSize = New Size(140, 140)

            ImageList1.Images.Add(img)

            ListView1.LargeImageList = ImageList1

            ListView1.Items.Add(Lvi)

'نهاية اكواد ادراج صورة في أداة ايميج ليست وعرضها على الليست فيو

        Else

            MsgBox("عفواً ألغي الأمر بناء على طلبك", 64, "Program Name")

            Me.Focus()

        End If

دبل كلك على الليست فيو والصق الكود التالي :

كود :

PictureBox1.Image = ImageList1.Images(ListView1.FocusedItem.Index)

اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز

(07-04-19, 06:30 PM)احمد خطاب كتب : [ -> ]اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز

العفو ،،

بالتوفيق للجميع

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

احمد خطاب

حريف برمجة

احمد خطاب

حريف برمجة

احمد خطاب

حريف برمجة