منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
سؤال فى imagelist - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : سؤال فى imagelist (/showthread.php?tid=29199)



سؤال فى imagelist - احمد خطاب - 30-03-19

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


RE: سؤال فى imagelist - حريف برمجة - 30-03-19

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

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


RE: سؤال فى imagelist - احمد خطاب - 31-03-19

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


RE: سؤال فى imagelist - حريف برمجة - 01-04-19

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

أداة اميج ليست (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)



RE: سؤال فى imagelist - احمد خطاب - 07-04-19

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


RE: سؤال فى imagelist - حريف برمجة - 08-04-19

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

العفو ،،

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