PDA

View Full Version : سوال: save picture


hosein3000
دوشنبه 17 بهمن 1390, 20:53 عصر
دوستان من برای ذخیره عکس از کد زیر استفاده می کنم:

SavePicture Clipboard.GetData, Me.Name & ".BMP"

این کد عکس رو با اسم فرم در کنار برنامه ذخیره می کنه ولی من می خوام عکس رو با اسم فرم کنار برنامه تو یه فولدر خاصی مثلا picture ذخیره کنه هر کاری کردم نتونستم با نام فرم این کارو انجام بدم ممنون میشم راهنماییم کنین
مرسی
ASedJavad
دوشنبه 17 بهمن 1390, 21:13 عصر
دقیق متوجه منظورت نشدم
منظورت اینه؟:

SavePicture Clipboard.GetData, "c:\" & Me.Name & ".BMP"
hosein3000
دوشنبه 17 بهمن 1390, 21:44 عصر
خوب اره منظورم اینه ولی می خوام کنار فایل اجرایی برنامه ام توی یه پوشه باشه نه تو یه درایو خاص
مثلا app.path\picture
اما نمی دونم چطوری کدشو بنویسم
IamOverlord
دوشنبه 17 بهمن 1390, 21:46 عصر
App.Path + "\" + "pictures\01\" + "1.bmp"

البته توجه کن که اگه برنامه ات در ریشه ی درایو هست مثلا در "\:C" از این کد استفاده کنی:

App.Path + "pictures\01\" + "1.bmp"

می تونی این قضیه رو از طریق Len رشته ی App.Path چک کنی و ببینی مساوی 3 هست یا نه.
hosein3000
دوشنبه 17 بهمن 1390, 22:06 عصر
خوب این درست این کد یه عکسی با نام 1 ذخیره می کنه من می خوام با نام خود فرم ذخیره کنه کد زیر این کارو انجام میده ولی کنار خود فایل اجرایی برنامه ذخیره می کنه اما من می خوام کنار فایل اجرایی برنامه توی یه پوشه ذخیره کنه

SavePicture Clipboard.GetData, Me.Name & ".BMP"
محسن واژدی
دوشنبه 17 بهمن 1390, 22:37 عصر
سلام

کد زیر را بررسی کنید:


Dim sSav$
sSav$ = App.Path & "\pics\"
If Dir(sSav$) = "" Then MkDir sSav$
SavePicture Clipboard.GetData, sSav$ & Me.Name & ".BMP"

موفق باشید