جایگزین کردن فایل در مسیر برنامه

[kebriya]

کنار فایلهای برنامه یه پوشه ای گذاشتم که یه سری عکس داخلش است. در برنامه یه سری picturebox دارم که این عکسها رو نمایش میده حالا اگه کاربر یکی از این عکس ها رو از طریق برنامه تغییر بده میخوام این عکس با همون نام قبلی در اون پوشه قرار بگیره که من با کد زیر گفتم عکس قبلی رو پاک کنه و عکس جدید رو کپی کنه


If IO.File.Exists(axadd) Then
IO.File.Delete(axadd)
End If
IO.File.Copy(ax, axadd)


که خطای زیر رو میده
The process cannot access the file 'F:\Zabankade\Zabankade\bin\Debug\pics\6\ax.jpg' because it is being used by another process.

[taghi.km]

یه راه حل نل مناسب رو تست کن قبل از اینکه کپی کنی این دستور رو بنویس ببین جواب میده

thread.sleep(number)

[kebriya]

ممنون ولی درست نشد بازهم همون خطا رو میده

[taghi.km]

عدد رو کمی بالا بگیر همچنین میتونی از using هم استفاده کنی

[kebriya]

عدد رو بالا گرفتم ولی باز هم نشده مثلا چند بگیرم؟ راستی شما تست کردین جواب گرفتین؟

[mahdi1373]

سلام. مشكل اينه كه وقتي Picture box داره عكس رو نشون ميده مستقيما داره ازش استفاده ميكنه. پس نميشه اوونو پاك كرد.
قبل از اينكه ستور delete رو بدي. كد زير رو بزن:


PictureBox1.Image.Dispose()

بجاي PictureBox1 هم نام picture box ات رو بزار.

[kebriya]

این رو قبلا تست کرده بودم نشد:گریه:

[kebriya]

یکی به داد من برسه تروخدا. کارم گیره

[محسن شامحمدی]

الان رو اين سيستم vs نصب نيست كه كد دقيق بگم ولي فكر كنم اينطوري يا حداقل با اين روش كار كنه
PictureBox1.Image=nothing
PictureBox1.Image=new image()

[sharifat]

الان رو اين سيستم vs نصب نيست كه كد دقيق بگم ولي فكر كنم اينطوري يا حداقل با اين روش كار كنه
PictureBox1.Image=nothing
PictureBox1.Image=new image()


سلام
مشكل من هم دقيقا همينه، اما هنوز نتونستم چاره اي براش پيدا كنم
اين روشي كه شما فرموديد هم چاره ساز نبود
راه ديگه اي نيست؟؟؟؟؟

[omid-vbAuto]

دوستان و اساتید عزیز هم کمکی کنند.این مسئله چندین بار مطرح شده ولی کسی جوابی پیدا نکرده.

امیدوارم تو این تاپیک به جواب برسیم.

[omid-vbAuto]

اخیرا اعضاء سایت خیلی کم لطف شدن . فقط میان یه حکایت میگنو میرن!!!

لطفا دوستانی که در این زمینه اطلاعاتی دارن کمک کنن چیزی ازشون کم نمیشه.

دوستانی هم که اطلاعاتی در این مورد ندارن و می خوان اطلاعاتی کسب کنن ، لطفا حداقل بیان پیام های Off بذارن تا تاپیک پایین نره.

خلاصه الان وضیعت سایت خوب نیست. اکثرا بیشتر تاپیکها بی پاسخ هستن!!!!

[sina_saravi1]

به نظر من شما تو تابع جایگزین کردن عکسا باید قبلش عکس تمام پیکچر باکس هات به یه عکس دیگه تغییر بده و بعد از جابه جا کردن به حالت اول برگردون
به نظر من این باید جواب بده

[omid-vbAuto]

به نظر من شما تو تابع جایگزین کردن عکسا باید قبلش عکس تمام پیکچر باکس هات به یه عکس دیگه تغییر بده و بعد از جابه جا کردن به حالت اول برگردون
به نظر من این باید جواب بده

فکر کنم جواب بده ولی باید امتحانش کرد.دوستان کسی این کارو کرده؟

[hossein-khoshseyar]

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

[omid-vbAuto]

پاسخ منفیه
این روش هم جواب نمیده

خوب مهندس جان یه بار عکس رو دیسپوس کن و بعدش یه عکس دیگه بده بجاش و در انتها اون عکسه دیسپوس شده رو پاک کن.اینو امتحان کن ببین جواب میده؟

[Saman_12]

شما با چه کدی عکس رو لود میکنید؟( کد رو اینجا قرار دهید. )

[omid-vbAuto]

شما با چه کدی عکس رو لود میکنید؟( کد رو اینجا قرار دهید. )

با این:



PictureBox1.Load("E:\0007.jpg")

[Saman_12]

میشه بگی اصلا مشکل چیه اگر با این کد فایل رو لود میکنی که فقط پیکچرباکس عکس رو میخونه بعد فایل رو میبنده.(بنا بر این خطای استفاده شدن تصویر توسط برنامه دیگه وجود نداره.)

2.کد صفحه ی اول یک فایل رو دلیت میکنه که تصویر قبلیه که تا اینجا مشکلی نیست!و بعد هم فایل جدید رو کپی میکنه!!!!
چرا کپی چرا یعد از حذف عکس از دستور سیو بیت مپ استفاده نکردین؟؟


PictureBox1.Load("C:\1.jpg")

Dim Eg As Graphics = Graphics.FromImage(PictureBox1.Image)

Eg.FillRectangle(Brushes.AliceBlue, New Rectangle(50, 50, 200, 200))
File.Delete("C:\1.jpg")
PictureBox1.Image.Save("C:\1.jpg")

[kebriya]

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

[kebriya]

مرسی مهندس مشکل من با گزینه اول حل شد. دستت درد نکنه

[omid-vbAuto]

مرسی مهندس مشکل من با گزینه اول حل شد. دستت درد نکنه

خوب کد نهائی رو بذار ببینیم چی از آب در امد.

[sharifat]

من هم منتظر اعلام نتيجه هستم

[kebriya]

اول موقع لود عکس از گرید به picturebox از دستور زیر استفاده میکنیم:(یعنی بجای دستور image از Load استفاده می کنیم)


Pic.Load(DataGridView1.Rows(i).Cells(16).Value.ToS tring)

موقع کپی عکس از کد زیر استفاده می کنیم:


IO.File.Copy(مسیر1, مسیر2, True)

[sharifat]

اول موقع لود عکس از گرید به picturebox از دستور زیر استفاده میکنیم:(یعنی بجای دستور image از Load استفاده می کنیم)


Pic.Load(DataGridView1.Rows(i).Cells(16).Value.ToS tring)

موقع کپی عکس از کد زیر استفاده می کنیم:


IO.File.Copy(مسیر1, مسیر2, True)

خيلي ممنون دوست عزيز
من فعلاً برنامه باهام نيست. اما امتحان ميكنم، انشالله كه براي من هم جواب بده .:لبخندساده:

[kebriya]

واسه delete کردن عکس هم باید کد زیر رو بنویسیم:(همونجوری که مهندس گفتن)



Dim Eg As Graphics = Graphics.FromImage(PictureBox1.Image)
Eg.FillRectangle(Brushes.AliceBlue, New Rectangle(50, 50, 200, 200))
File.Delete(مسیر عکس)

[omid-vbAuto]

واسه delete کردن عکس هم باید کد زیر رو بنویسیم:(همونجوری که مهندس گفتن)



Dim Eg As Graphics = Graphics.FromImage(PictureBox1.Image)
Eg.FillRectangle(Brushes.AliceBlue, New Rectangle(50, 50, 200, 200))
File.Delete(مسیر عکس)



برای Delete کردن قطعه کد زیر چه لزومی داشت؟؟؟



Dim Eg As Graphics = Graphics.FromImage(PictureBox1.Image)
Eg.FillRectangle(Brushes.AliceBlue, New Rectangle(50, 50, 200, 200))

[Saman_12]

برای Delete کردن قطعه کد زیر چه لزومی داشت؟؟؟



Dim Eg As Graphics = Graphics.FromImage(PictureBox1.Image)
Eg.FillRectangle(Brushes.AliceBlue, New Rectangle(50, 50, 200, 200))


این کد لازم نیست من فقط خواستم نشون بدم که روی فایل تغییر ایجاد کردم.(تنها همون دلیت کافیه.)

[sharifat]

وااااي برا من هم جواب داد
از همه دوستان ممنونم، لطف خيلي بزرگي در حق من كرديد

[hero4000]

دوستان اگه ميخوان از طريق Image عکسي رو لود کنند که برنامه روي اون دست نذاره و تغييرات رو بشه دوباره ذخيره کرد مي تونند از کد زير استفاده کنند


Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim op As New OpenFileDialog
op.ShowDialog()
Dim b() As Byte
b = IO.File.ReadAllBytes(op.FileName)
Dim mm As New IO.MemoryStream
mm.Write(b, 0, b.Length)
PictureBox1.Image = Image.FromStream(mm)
End Sub

[MortezaGity]

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


PictureBox1.ImageLocation=""


بعد اون کاری رو که میخوای کنی بکن.