تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مساعدة في حفظ الصورة
#1
السلام عليكم اخواني هل يمكن مساعدتي في حفظ الصورة بحجم صغير بطريقة الإستاذ @viv

بدلا من 

كود :
                   IO.File.Copy(lblemppic.Text, "EMPimg\" & TxtIDcard.Text & ".jpg")

http://vb4arb.com/vb/showthread.php?tid=24916
الرد
تم الشكر بواسطة:
#2
كيف يعني اخي
قم بتحميل المشروع واستخدمه
الرد
تم الشكر بواسطة: alshandodi
#3
(10-11-19, 11:55 AM)AbdoDabak كتب : كيف يعني اخي
قم بتحميل المشروع واستخدمه

يمكنني تحميل المشروع ولكن اخي كل مره اضيف صور لازم اعمل اعاده تحجيم لملف الصوره والقصد منه انه حفظ صوره بحجم مصغر
الرد
تم الشكر بواسطة:
#4
اين الردود بارك الله فيكم
الرد
تم الشكر بواسطة:
#5
السلام عليكم وحمة الله وبركاته

اذا تقصد حفظ صورة بحجم صغير ...  ممكن تستخدم هذا الكود



كود :
Dim bit As New Bitmap("المسار للصورة") 'الصورة الاصلية
       Dim bit2 As New Bitmap(120, 120) 'الصورة بأختيار الحجم الجديد
       Dim gr As Graphics = Graphics.FromImage(bit2)
       gr.DrawImage(bit, 0, 0, 120, 120)
       bit2.Save("مسار الصورة المصغرة")
الرد
تم الشكر بواسطة: ابراهيم ايبو , alshandodi , علي نوري
#6
السلام عليكم

حفظ الصورة بأستخدام SaveFileDialog

 
كود :
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim SaveFileDialog1 As New SaveFileDialog()
        SaveFileDialog1.Filter = _
        "Image files (*.BMP, *.JPG, *.GIF)|*.bmp;*.jpg;*.gif"
        If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
            PictureBox1.Image.Save(SaveFileDialog1.FileName)
        End If

    End Sub



طريقة اخرى للحفظ باستخدام  SaveFileDialog (من احد امثلة الاخ ramilove)


كود :
 Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Try
            ' تصدير الصورة 
            If PictureBox1.Image Is Nothing Then
                MsgBox("الصورة غير موجودة ", 16 + 524288, "تنبيه")
                Exit Sub
            End If
            Application.DoEvents()
            Dim s As New SaveFileDialog
            s.Filter = "Files(*.jpg)|*.jpg"
            s.Title = "تصدير صورة"
            s.FileName = ""
            If s.ShowDialog = System.Windows.Forms.DialogResult.OK Then
                'تصير الصورة من بكشر بوكس
                Dim bm As New Bitmap(PictureBox1.Image)
                bm.Save(s.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
                MsgBox("تم تصدير الصورة بنجاح", MsgBoxStyle.MsgBoxRight + MsgBoxStyle.Information, "تصدير صورة موظف")
                s.Dispose()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End Try
    End Sub
الرد
تم الشكر بواسطة: عبد العزيز البسكري
#7
شكرا جزيلا اخي 3booody 

لقد قمت بعمل بالكود الخاص بك واكرر شكري نجح الكود

ولكن هنالك مشكله الا وهي انه حجم الصورة صغير
هذا هو الكود 



كود :
 Dim bit As New Bitmap(lABEL1.Text) 'الصورة الاصلية
       Dim bit2 As New Bitmap(120, 120) 'الصورة بأختيار الحجم الجديد
       Dim gr As Graphics = Graphics.FromImage(bit2)
       gr.DrawImage(bit, 0, 0, 120, 120)
       bit2.Save("Empimg\" & LBL_NAME.Text & ".jpg")







وأشكر اخي [b][b]علي نوري[/b][/b]

على الطريقه الاخرى ولكن انا محتاج حفظه في المجلد الذي احدده وليس ما يحدده الشخص
الرد
تم الشكر بواسطة: علي نوري , علي نوري
#8
غيير 120 الى الحجم الذي يناسبك فواحدة Width = العرض و Height = الارتفاع .

   
الرد
تم الشكر بواسطة: علي نوري , علي نوري , 3booody , alshandodi , alshandodi



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


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