مشکل در پاک کردن عکس داخل کنترل image

[snow pink]

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

[Veteran]

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

Image1.Picture = LoadPicture("")

[snow pink]

نه نمیشه یعنی واسه من نشد
میشه برنامه مو نگاه کنید؟ ممنون میشم یه بازیه که باید چند ثانیه عکسا نشون داده بشن بعد برن...




If a >= 98 Then
Image1.Picture = LoadPicture("g:\game\image\bob.jpg")
End If
End Sub

Private Sub Form_Load()
a = 100

Private Sub Timer1_Timer()
a = a - 1

End Sub

[Veteran]

این کد شما در هربار فقط یک عکس رو نشون میده چون ادرس ثابت هست

Image1.Picture = LoadPicture("g:\game\image\bob.jpg")

میتونین ادرس هارو توی یک ارایه قرار بدین بعد از ارایه فراخوانی کنین

[snow pink]

خب اولش یه عکس دیگه موقع طراحی گذاشتم براش ، الان میخوام وقتی دو ثانیه اول تایمر گذشت اون عکس دیگه رو نشون بده

[Veteran]

یک کنترل image قرار بدین روی فرم خاصیت stretch رو true قرار بدین
یک تایمر با interval
2000
بزارید روی فرم
بعد این کد رو توی پروزتون paste کنید

Public A
Public B
Dim Url(3)
Private Sub Form_Load()
A = 0
Url(0) = "J:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Blue hills.jpg"
Url(1) = "J:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Sunset.jpg"
Url(2) = "J:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Water lilies.jpg"
Url(3) = "J:\Documents and Settings\All Users\Documents\My Pictures\Sample Pictures\Winter.jpg"
End Sub
Private Sub Timer1_Timer()
Image1.Picture = LoadPicture(Url(A))
A = A + 1
If A = 4 Then
A = 0
End If
End Sub

ادرس عکس هارو خودتون تغییر بدین

[snow pink]

ممنون خیلی خوب شد . یه سوال دیگه هم داشتم ، میخوام وقتی یه بار کلیک میکنم رو یه ایمیج حساب نکنه اما اگه قبلش یا بعدش رو یه ایمیج دیگه کلیک کنم با هم مقایسه شون کنه . امیدوارم منظورمو بفهمید.

[Veteran]

درست متوجه نشدم.
بیشتر توضیح بدین

[snow pink]

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

[Veteran]

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

[snow pink]

اینه:
81794