تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
سؤال فى imagelist
#1
هل فى كود لملأ    image list  بزر بوتون  اثناء تشغيل البرنامج 
واشكركم
الرد
تم الشكر بواسطة:
#2
راجع هذا الموضوع :

http://vb4arb.com/vb/showthread.php?tid=26842
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: بدري , elgokr
#3
اشكرك جدااااااااااااااااااااااااااااا صديقى العزيز 
لكن لم استطع فهم الامر 
وتحياتى ايها الشخصية المحترمة
الرد
تم الشكر بواسطة:
#4
اعمل مشروع جديد وضع على الفورم :

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

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

   

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

كود :
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)
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: sendbad100 , elgokr , elgokr , بدري , احمد خطاب , اباذر
#5
اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز
الرد
تم الشكر بواسطة: elgokr
#6
(07-04-19, 06:30 PM)احمد خطاب كتب : اشكرك جداااااااااااااااااااااااااااااااااا صديقى العزيز

العفو ،،

بالتوفيق للجميع
يا رحمن الدنيا والآخرة ورحيمهما
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  سؤال مكتبة AbdoDabak 5 119 , 02:37 AM
آخر رد: boudyonline
  [سؤال] سؤال منه 3 65 02-06-20, 07:23 AM
آخر رد: منه
  سؤال في المصفوفه اليوم السابع 7 84 31-05-20, 03:41 AM
آخر رد: ابراهيم ايبو
  سؤال في التشيك بوكس اليوم السابع 2 69 30-05-20, 11:54 AM
آخر رد: mohamedahmed1
  [سؤال] سؤال منه 3 75 30-05-20, 07:02 AM
آخر رد: asemshahen5
  سؤال عن كود في DataGridViewRow ahmedbezia 6 133 24-05-20, 06:45 AM
آخر رد: ابراهيم ايبو
  [VB.NET] سؤال فني في خاصيه نقل الملفات من جهاز الى اخر dubai.eig 2 80 24-05-20, 05:59 AM
آخر رد: ابراهيم ايبو
  [VB.NET] سؤال حول التكرار farfour 2 97 23-05-20, 09:18 PM
آخر رد: farfour
  سؤال AbdoDabak 0 56 23-05-20, 04:29 AM
آخر رد: AbdoDabak
  أول سؤال لى : مشروع لا يعمل vbxprogrammer 16 447 21-05-20, 04:16 AM
آخر رد: ابو ليلى

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم