آموزش ذخیره کردن

[hamed747]

سلام
ببخشید من میخوام یک دکمه داشته باشم که وقتی روش کلیک میکنم یک پنجره باز بشه و بتونم یک عکس رو ذخیره کنم
کسی می تونه کمکم کنه؟
من حرفه ای نیستم
ممنون میشم راهنمایی کنید

[m.4.r.m]

Private Sub Command2_Click()
SavePicture Picture1.Picture, "c:\321.bmp"
End Sub

[hamed747]

نه این رو بلدم
میخوام وقتی روی دکمه کلیک میکنه
یک صفحه باز بشه و از اونجا مسیری که میخواد عکس اونجا ذخیره بشه رو انتخاب کنه
مثل این عکس
111546
کسی بلده؟

[setroyd]

از command dialog استفاده کن .

[nimar9]

نه این رو بلدم
میخوام وقتی روی دکمه کلیک میکنه
یک صفحه باز بشه و از اونجا مسیری که میخواد عکس اونجا ذخیره بشه رو انتخاب کنه
مثل این عکس
111546
کسی بلده؟
سلام
شما باید کامپوننت commondialog رو فعال کنید بعد کد زیر رو بنویسید.
' برای انتخاب فرمت سیو
commondialog1.filter = "*.jpg|*.jpg"
' برای نشان دادن صفحه محل سیو مانند تصویر بالا
commondialog1.showsave
' برای سیو کردن
if commondialog1.filename <> "" then
SavePicture Picture1.Picture, Commondialog1.filename
end if


موفق باشید.

[hamed747]

وقتی میخوام کامند دیالوگ رو فعال کنم این ارور رو میده
error accessing the system registry
مشکل از کجا هست؟

[hamed747]

ببخشید مشکل رجیستر حل شد تنها مشکلی که الان هست اینه که نمیشه بهش پسوند اضافه کرد
فقط
jpg
میاد
چیکار کنم؟

[nimar9]

ببخشید مشکل رجیستر حل شد تنها مشکلی که الان هست اینه که نمیشه بهش پسوند اضافه کرد
فقط
jpg
میاد
چیکار کنم؟
برای اضافه کردن پسوند های بیشتر از همون پارامتر filter استفاده می کنیم:

CommanDialog1.Filter = "*.jpg|*.jpg|*.bmp|*.bmp"

اگر این قسمت رو به همین قسمت کد قبلی مقایسه کنید متوجه میشوید که چجوری پسوند های دیگر اضافه می کنید.
موفق باشید.

[hamed747]

واقعا ازتون ممنونم
خدا خیرتون بده
یاحق...

[nimar9]

واقعا ازتون ممنونم
خدا خیرتون بده
یاحق...

برای تشکر از دکمه تشکر استفاده کنید.
خواهش میکنم

[hamed747]

ببخشید یک سوال
عکسی که داخل ویژوال بیسیک هست بعد از ذخیره کردن فوق العاده حجمش زیاد میشه
مثلا عکس 600 کیلوبایتی بعد از ذخیره کردن 8.50 مگ شده است
چرا؟