PDA

View Full Version : سوال: چگونه از savefiledialog برای ذخیره تصاویر استفاده کنم



sayyadhunter1366
چهارشنبه 04 شهریور 1388, 19:01 عصر
سلام دوستان
من چه جوری می تونم از savefiledialog برای ذخیره تصاویری که به وسیله openfiledialog دریک picture box نمایش داده ام که آدرس ونام این تصاویر در یک list box نمایش داده می شوند استفاده کنم درضمن من این تصاویررا دربانک اطلاعاتی می خواهم ذخیره کنم ؟!
اگر مثالهایی دراین زمینه داشته باشید که چه بهتر :خجالت: و اگر کدهای اون رو برایم قراردهید ممنون می شم .

hadiit
چهارشنبه 04 شهریور 1388, 22:03 عصر
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
PictureBox1.Image.Save(SaveFileDialog1.FileName, System.Drawing.Imaging.ImageFormat.Jpeg)
End If

sayyadhunter1366
شنبه 07 شهریور 1388, 09:57 صبح
من یک گروه ازتصاویر رومی خواهم ذخیره کنم که نام وآدرس این تصاویر در یک listbox نمایش داده می شه بعدش هم اینکه وقتی تصویری رو که ذخیره کرده ام وقتی مجددا می خواهم آن تصویری راکه ذخیره کردم نمایش بدهم قابلیت نمایشی که با پسوند jpeg ذخیره کرده ام راندارد و باید برروی *.* بروم .

sayyadhunter1366
پنج شنبه 12 شهریور 1388, 15:36 عصر
من منتظر مثال های در این زمینه از شما دوستان هستم
ممنون؟!

Hossis
پنج شنبه 12 شهریور 1388, 16:25 عصر
من یک گروه ازتصاویر رومی خواهم ذخیره کنم که نام وآدرس این تصاویر در یک listbox نمایش داده می شه بعدش هم اینکه وقتی تصویری رو که ذخیره کرده ام وقتی مجددا می خواهم آن تصویری راکه ذخیره کردم نمایش بدهم قابلیت نمایشی که با پسوند jpeg ذخیره کرده ام راندارد و باید برروی *.* بروم .
اما ذخیره تصاویر مزبور: باید یک حلقه for ایجاد کرده و با کمک آن همه آنها را ذخیره کنید
در صورتی که بخواهید در همان مسیر ی که در لیست نوشته شده ذخیره کنید


Dim F As Image
For i As Integer = 0 To ListBox1.Items.Count - 1
F = Image.FromFile(ListBox1.Items(i))
F.Save(ListBox1.Items(i))
Next

اما اگر بخواهید هر کدام را با دیالوگ ذخیره کنید، باید درون این حلقه ، کد دیالوگ را قرار دهید به این صورت

Dim F As Image
Dim SCD As New SaveFileDialog With {.FileName = "", .Filter = "Picture|*.jpg"}
For i As Integer = 0 To ListBox1.Items.Count - 1
F = Image.FromFile(ListBox1.Items(i))
If SCD.ShowDialog = 1 Then
F.Save(SCD.FileName, Imaging.ImageFormat.Jpeg)
End If
Next

در این صورت ، تصاویر با پسوند Jpg ذخیره شده و می توانید فرمت آن را تغییر دهید و هنگام بازخوانی با همان پسوند باز کنید

Hossis
پنج شنبه 12 شهریور 1388, 16:30 عصر
من بالاخره نفهمیدم شما می خواهید در بانک اطلاعاتی ذخیره کنید یا درون فایل ؟؟؟

sayyadhunter1366
پنج شنبه 12 شهریور 1388, 17:33 عصر
سلام :
من می خواهم دربانک اطلاعاتی ذخیره کنم :

shocraneh
پنج شنبه 12 شهریور 1388, 22:56 عصر
http://barnamenevis.org/forum/showthread.php?t=177178