منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - كيف اصغر حجم الصورة من خلالPictureBox1 قبل حفظها بقاعدة البيانات

السلام عليكم احتاج مساعدتكم بكود يقوم بضغط حجم الصورة وظبط الطول والعرض 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()

(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()

الله يجزاك الف خير وجعل والديك بالجنة

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

mohamedgadain61

⁯⁯⁯

mohamedgadain61