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

نسخة كاملة : تصدير صورة من السكانر
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم ورحمة الله
استخدمت برنامج الاخ عبد الله الدوسري لاخذ صورة من السكانر وهو يعمل بالشكل المطلوب
لكن المشكله الان اني لا استطيع حفظ هذه الصورة الى القرص الصلب
كيف اقوم بذلك

- برنامج الاخ عبد الله بالمرفقات
وعليكم السلام ورحمة الله وبركاته

اخي بعد ما تعرض الصورة في اداة الصور

هذا كود حفظ الصورة في مجلد البرنامج

كود :
PictureBox1.Image.Save(Application.StartupPath & "\Img1.jpeg", Imaging.ImageFormat.Jpeg)
ولو حبيت تحفظها في القرص المحلي C

يكون الكود كالتالي :

كود :
PictureBox1.Image.Save("C:" & "\Img1.jpeg", Imaging.ImageFormat.Jpeg)
You can use SaveFileDialog

Try this

كود :
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
End If

RolleyesRolleyesRolleyes
السلام عليكم ورحمة الله وبركاته

يا اخوان الصور لا تظهر في اداة PictureBox1
تظهر في اداة Panel16
فكيف الحل مع الحفظ رعاكم الله
كود :
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
Panel16.BackgroundImage.Save(SaveFileDialog1.FileName, Imaging.ImageFormat.Bmp)
End If
الف شكر على تعاونك اخي العزيز kslawy

لكن بعد وضع الكود والتنفيذ ظهر خطاء

لم يتم تعيين مرجع كائن لمثيل كائن.
هل أنت متأكد أن الصورة موجودة بأداة Panel16 Huh
شكرا على تعاونكم جميعا لكن الصورة لا يتم عرضها في اي اداة تابعة للفجوال انما اداة مستقلة من leadtools اسمها RasterImageViewer
هذا كود اضافة صورة من RsterImageviewer1 الي قاعدة البيانات
  Dim myimage As RasterImage
                myimage = RasterImageViewer1.Image
                Dim ms As New IO.MemoryStream()
                Dim bmpImage As New Bitmap(myimage.ConvertToGdiPlusImage())
                bmpImage.Save(ms, System.Drawing.Imaging.ImageFormat.Jpeg)
                Dim data As Byte() = ms.GetBuffer()
                cmd.Parameters.AddWithValue("x2", data)

انا ابحث عن مكتبة leadtools.codecs.cmp.dll
من لديه ينزله من فضلكم 
وشكرا