+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات (/showthread.php?tid=45868)
كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات - mohamedgadain61 - 11-04-23
السلام عليكم احتاج مساعدتكم بكود يقوم بضغط حجم الصورة وظبط الطول والعرض 100 * 100 قبل حفظها بقاعدة البيانات ارجو المساعدة بالتعديل على الكود
Dim ms As New System.IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim picbyte() As Byte = ms.GetBuffer
Using Cmd As New OleDbCommand("Insert into Proudect pic, ) Values (@pic)", conn)
conn.Open()
Cmd.Parameters.AddWithValue("@pic", picbyte)
Cmd.ExecuteNonQuery()
Cmd.Dispose()
conn.Close()
MsgBox("تم الحفظ", 64, "Program Name")
Deltxt()
RE: كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات - - 11-04-23
(11-04-23, 04:48 AM)mohamedgadain61 كتب : السلام عليكم احتاج مساعدتكم بكود يقوم بضغط حجم الصورة وظبط الطول والعرض 100 * 100 قبل حفظها بقاعدة البيانات ارجو المساعدة بالتعديل على الكود
Dim ms As New System.IO.MemoryStream
PictureBox1.Image.Save(ms, PictureBox1.Image.RawFormat)
Dim picbyte() As Byte = ms.GetBuffer
Using Cmd As New OleDbCommand("Insert into Proudect pic, ) Values (@pic)", conn)
conn.Open()
Cmd.Parameters.AddWithValue("@pic", picbyte)
Cmd.ExecuteNonQuery()
Cmd.Dispose()
conn.Close()
MsgBox("تم الحفظ", 64, "Program Name")
Deltxt()
استخدم GetThumbnailImage لتغيير حجم الصورة
استخدم ImageConverter لتحويل الصورة لبايتات
كود :
Dim img = PictureBox1.Image.GetThumbnailImage(100, 100, Function() False, IntPtr.Zero)
Dim picbyte() As Byte = New ImageConverter().ConvertTo(img, GetType(Byte()))
Using Cmd As New OleDbCommand("Insert into Proudect pic, ) Values (@pic)", conn)
Cmd.Parameters.AddWithValue("@pic", picbyte)
conn.Open()
Cmd.ExecuteNonQuery()
conn.Close()
MsgBox("تم الحفظ", 64, "Program Name")
Deltxt()RE: كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات - mohamedgadain61 - 11-04-23
الله يجزاك الف خير وجعل والديك بالجنة