الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

كود الحفظ

مغلق
بدأه ^_^همتي لأمتي^_^ في 21 ديسمبر 2007 · 5 رد · 755 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

اسلام عليكم

ياليت احد يفهمني ايش وظيفة هذا الكود

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

Private Sub SaveGIFToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveGIFToolStripMenuItem.Click

'Pour éviter un bug si on ne sauvegarde pas

On Error Resume Next

Dim d As New System.Drawing.Bitmap(PictureBox1.Image)

Dim tmp As String = OpenFileDialog1.FileName()

If PictureBox1.SizeMode = PictureBoxSizeMode.Normal Then

My.Computer.Audio.Play("C:documents and settings")

MsgBox("Open a picture!")

Exit Sub

End If

tmp = Microsoft.VisualBasic.Replace(UCase(tmp), "JPG", "GIF")

d.Save(tmp, System.Drawing.Imaging.ImageFormat.Gif)

Dim answer As MsgBoxResult

answer = MsgBox("Save in GIF in the file of origin." & vbNewLine & "You finished?", MsgBoxStyle.YesNo)

If answer = MsgBoxResult.Yes Then

MsgBox("See you soon")

End

End If

End Sub

تم تعديل هذه المشاركة بواسطة ^_^همتي لأمتي^_^ في 22 ديسمبر 2007 في 13:18

#2

هدا الكود يغير امتداد الصور من JPG إلى GIF و يحفضها في نفس مسار الصورة الأصلية ...

أما بالنسبة للكود التالي 

If PictureBox1.SizeMode = PictureBoxSizeMode.Normal Then
My.Computer.Audio.Play("C:\documents and settings")
MsgBox("Open a picture!")
Exit Sub
End If

فليس له اي معنى .. حيث انه يفحص طريقة عرض الصورة في PictureBox1 فإدا كانت Normal فإنه يظهر msgbox يفيد بفتح صورة جديدة :blink:

بالتوفيق ...

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#3

^

^

مشكور على الرد بس اذا حفظ الصورة وين يحفظها يعني مايحفظها في مكان معين في الجهاز؟؟؟

#4

لقد سبق و أن قلت ان الصورة تحفظ في نفس مسار الصورة الاصلية يعني في نفس مجلد الصورة الاصلية ...

و إدا أردت ان تحفظ الصورة في مسار آخر ما عليك سوى أن تعوض tmp في الجملة التالية

d.Save(tmp, System.Drawing.Imaging.ImageFormat.Gif)

بالمسار الدي تريده ...

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

#5

Fikou-sama

غيرت tmp ابغى احفظه في مجلد في السي مثلا جربتها اني احطها بين قوسين مثلا" c:\dd"

يحفظ لي الصروة في السي باسم dd

ممكن تفهمني ليش صار كذا .\؟؟؟؟

:)

#6

بالطبع سيحفظ الصورة باسم dd لأنه ليس بعدها العلامة \ و بالتالي لن يعتبرها البرنامج كمجلد

فإدا أردت حفضها في مجلد اسمه dd موجود في C: عليك بكتابة 

 "C:\dd\اسم الصورة"

تم تعديل هذه المشاركة بواسطة Fikou-sama في 23 ديسمبر 2007 في 01:04

مقالاتي في VB.NET وبرامجي على موقعي الجديد :

هذا الموضوع مغلق.

مواضيع مشابهة