نمایش یک تصویر در صورت وجود نداشتن

[parham01 82]

سلام خسته نباشید

من برای نمایش تصویر در imageview از کد زیر استفاده میکنم

ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")

میخوام اگه مثلا عکس p45.png وجود نداشت بجاش عکس p100.png نمایش بده !

ممنون

[reza644 435]

سلام

 

	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p100.pn")
	End If

 

[parham01 82]

در 22 دقیقه قبل، reza644 گفته است :

سلام

 

	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p100.pn")
	End If

 

یدونه باشی

[parham01 82]

در 2 ساعت قبل، reza644 گفته است :

سلام

 

	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p100.pn")
	End If

 

اینجوری نوشتم جواب نداد

Sub Button1_Click
	meghdar = meghdar+1
'	If meghdar = int1 Then
'	Button1.Enabled = False
'	Else
	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")

		ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")
	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "copy.png")
	
	End If

End Sub

 

[reza644 435]

در ۱ ساعت قبل، parham01 گفته است :

اینجوری نوشتم جواب نداد

Sub Button1_Click
	meghdar = meghdar+1
'	If meghdar = int1 Then
'	Button1.Enabled = False
'	Else
	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")

		ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")
	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "copy.png")
	
	End If

End Sub

 

 

چه اروری داد؟

تو حالت دیباگ اجرا کنید ببینید از کدوم خط ایراد میگیره.

کل کداتونم قرار بدید چون نمیشه تشخیص داد.

یه عکس هم از اطلاعات دیتابیستون میخوام.

[نیما قبادی 246]

سلام

فکر کنم مشکل از این خط باشه پاکش کن ببین برطرف میشه یا ن

 

ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")

[parham01 82]

در 9 دقیقه قبل، reza644 گفته است :

 

چه اروری داد؟

تو حالت دیباگ اجرا کنید ببینید از کدوم خط ایراد میگیره.

کل کداتونم قرار بدید چون نمیشه تشخیص داد.

یه عکس هم از اطلاعات دیتابیستون میخوام.

ارور نمیده

p1.png تا p10 وجود داره ولی copy.png نشون میده

در 10 دقیقه قبل، نیما قبادی گفته است :

سلام

فکر کنم مشکل از این خط باشه پاکش کن ببین برطرف میشه یا ن

 

ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")

سلام

خب اینجوری که imageview خالی میمونه

[محمدرضا شاهپیری 5,573]

دوست عزیز جابه جا نوشتین باید اول چک کنید فایل هست یا نه بعد بقیه کارها

به صورت زیر

Sub Button1_Click
	meghdar = meghdar+1
'	If meghdar = int1 Then
'	Button1.Enabled = False
'	Else
	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")

	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "copy.png")
	else
    ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")
	End If

End Sub

 

[نیما قبادی 246]

ببخشید متوجه نشدم ببینیده شما 

گفتید که اگر نبود یعنی false بود بیا کپی رو نشون بده خب شما میگین همشون نشون میده دیگه چطور بیاد کپی رو نشون بده؟!

 

یه  else یزاری درست میشه یا باید یه تصویر ثابت باشه تا بعدی رو نمایش بدی

[parham01 82]

در 12 دقیقه قبل، نیما قبادی گفته است :

ببخشید متوجه نشدم ببینیده شما 

گفتید که اگر نبود یعنی false بود بیا کپی رو نشون بده خب شما میگین همشون نشون میده دیگه چطور بیاد کپی رو نشون بده؟!

 

یه  else یزاری درست میشه یا باید یه تصویر ثابت باشه تا بعدی رو نمایش بدی

خواهش میکنم قربان

من تو creat

meghdar = 1

 قرار دادم و تو پوشه file ham p1 ta p10 دارم

در 15 دقیقه قبل، محمدرضا شاهپیری گفته است :

دوست عزیز جابه جا نوشتین باید اول چک کنید فایل هست یا نه بعد بقیه کارها

به صورت زیر

Sub Button1_Click
	meghdar = meghdar+1
'	If meghdar = int1 Then
'	Button1.Enabled = False
'	Else
	fara.FarakhaniMatn("khoon.db",sql2,cur,"SELECT * FROM tbl Where ID=",meghdar,lbl,"matn")

	If File.Exists("p"&meghdar&".png",File.DirAssets)=False Then
	
	ImageView1.Bitmap=LoadBitmap(File.DirAssets, "copy.png")
	else
    ImageView1.Bitmap=LoadBitmap(File.DirAssets, "p"&meghdar&".png")
	End If

End Sub

 

سلام جناب شاهپیری

وقتی کد گذاشتم فقط عکس اول که p1.png نمایش میده وقای رو باتن کلیک میشه با اینکه وجود داره ولی copy.png  رو نشون میده

[محمدرضا شاهپیری 5,573]

مشکل از متغیر مقدار هست احتمالا 

از کجا میگیرید اینو؟

چرا قبل از اینکه ازش استفاده کنید یه واحد به اون اضافه میکنید؟ معمولا بعداز استفاده از متغیر مقدارش تغییر میکنه نه قبلش

[parham01 82]

در 10 دقیقه قبل، محمدرضا شاهپیری گفته است :

مشکل از متغیر مقدار هست احتمالا 

از کجا میگیرید اینو؟

چرا قبل از اینکه ازش استفاده کنید یه واحد به اون اضافه میکنید؟ معمولا بعداز استفاده از متغیر مقدارش تغییر میکنه نه قبلش

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

که با + و - شدن یه id به قبل و بعد میره

و هر id یک عکس داره که p1 . p2 . p3 و ...

[محمدرضا شاهپیری 5,573]

هموطن راه های ساده تری واسه لود کردن عکس تو ایمیج ویو هست

کتابخونه AriaGlide بسیار مفیده واستون اصلا نیازی به چک کردن عکس و اینا نیست به شکل زیر

	Dim ar As AriaGlide
	ar.Load("p"&meghdar&".png").AsBitmap.Error("defaultbitmap").IntoImageView(ImageView1)

به جای defaultbitmap اون بیت مپی که میخواین در صورت نبودن عکس نمایش داده بشه بزارین