عدم نمایش عکس در صورت null بودن

[majid22012 2]

با سلام

من میخوام بگم که اگر عکس در دیتابیس null بود عکس را نشان ندهد ، برای متنش رو تونستم ولی عکس رو هر کار میکنم نمیشه

For i=0 To count
	For i=0 To cursor1.RowCount-1
	cursor1.Position = i
		p.Initialize("Panel1")
		p.Color = Colors.Transparent
		ScrollView1.Panel.AddView(p,5dip,top,Activity.Width-10dip,-2)
		
		aks.Initialize("AKS1")
		Dim bytes() As Byte
		bytes=cursor1.GetBlob("aks") 
		
		
		Dim input As InputStream
		input.InitializeFromBytesArray(bytes,0,bytes.Length) 

		Dim b As Bitmap
		b.Initialize2(input)
		input.Close
		
		Dim bg As BitmapDrawable
		bg.Initialize(b)
		aks.Background=bg
		
				matnn.Initialize("Matnn")
		matnn.Text = cursor1.GetString("matn")
		If cursor1.GetString("matn")=Null Then
		matnn.Text = ""
		Else
		matnn.Text = cursor1.GetString("matn")
		End If
		p.AddView(aks,10dip,matnn.Height,Activity.Width-20dip,Activity.Width-80dip)
		

با تشکر

[hadi666 28]

با سلام

من میخوام بگم که اگر عکس در دیتابیس null بود عکس را نشان ندهد ، برای متنش رو تونستم ولی عکس رو هر کار میکنم نمیشه

For i=0 To count
	For i=0 To cursor1.RowCount-1
	cursor1.Position = i
		p.Initialize("Panel1")
		p.Color = Colors.Transparent
		ScrollView1.Panel.AddView(p,5dip,top,Activity.Width-10dip,-2)
		
		aks.Initialize("AKS1")
		Dim bytes() As Byte
		bytes=cursor1.GetBlob("aks") 
		
		
		Dim input As InputStream
		input.InitializeFromBytesArray(bytes,0,bytes.Length) 

		Dim b As Bitmap
		b.Initialize2(input)
		input.Close
		
		Dim bg As BitmapDrawable
		bg.Initialize(b)
		aks.Background=bg
		
				matnn.Initialize("Matnn")
		matnn.Text = cursor1.GetString("matn")
		If cursor1.GetString("matn")=Null Then
		matnn.Text = ""
		Else
		matnn.Text = cursor1.GetString("matn")
		End If
		p.AddView(aks,10dip,matnn.Height,Activity.Width-20dip,Activity.Width-80dip)
		

با تشکر

 

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

اینجوری بنویس 

 

label.top = imageView.top

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

عکس گذاشتن توی دیتابیس کار غیر اصولی و غیر منطقی هست و واسه شما که عکساتون قطعا حجمش بالاس دیگه بدتر

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

Sub getimg(img As View,filnam As String)
Dim andr As AndroidResources
img.Background=andr.GetApplicationDrawable(filnam)
End Sub

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

[majid22012 2]

حالا من از همون راهی که گفتم رفتم اگه میدونید چجوری عکس null رو نشون نده ممنون میشم

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

حالا من از همون راهی که گفتم رفتم اگه میدونید چجوری عکس null رو نشون نده ممنون میشم

شما این قسمت از کدتون رو توی ترای کچ بزارید چون عکس پیدا نکنه ارور nullpointer میده

Try
Dim input As InputStream
		input.InitializeFromBytesArray(bytes,0,bytes.Length) 

		Dim b As Bitmap
		b.Initialize2(input)
		input.Close
		
		Dim bg As BitmapDrawable
		bg.Initialize(b)
		aks.Background=bg
Catch
aks.Background=null
End Try

[majid22012 2]

 

شما این قسمت از کدتون رو توی ترای کچ بزارید چون عکس پیدا نکنه ارور nullpointer میده

Try
Dim input As InputStream
		input.InitializeFromBytesArray(bytes,0,bytes.Length) 

		Dim b As Bitmap
		b.Initialize2(input)
		input.Close
		
		Dim bg As BitmapDrawable
		bg.Initialize(b)
		aks.Background=bg
Catch
aks.Background=null
End Try

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

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

شما میخواین متن جایگزین چی بشه مگه؟

اگه ممکنه اجزای مولتی پنلتون رو بگید من متوجه نمیشم میخواید چیکار کنید

[majid22012 2]

شما میخواین متن جایگزین چی بشه مگه؟

اگه ممکنه اجزای مولتی پنلتون رو بگید من متوجه نمیشم میخواید چیکار کنید

یه ScrollView هستش که اطلاعات رو از دیتابیس براساس parentid میگیره و به صورت

عکس

متن

نشون میده من متن رو گفتم اگه null باشه نشون نمیده ولی عکس رو نمیدونم چکار کنم که null باشه کلاً نشون نده

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

یه ScrollView هستش که اطلاعات رو از دیتابیس براساس parentid میگیره و به صورت

عکس

متن

نشون میده من متن رو گفتم اگه null باشه نشون نمیده ولی عکس رو نمیدونم چکار کنم که null باشه کلاً نشون نده

شما هر جا خواستین ویویی رو مخفی کنید کافیه visible اون ویو رو فالس کنید مثلا واسه شما تو قسمت Catch این دوتا کد رو هم اضافه کنید از صفحه روزگار محو میشه دیگه

aks.Visible=False
aks.Enabled=False

[majid22012 2]

 

شما هر جا خواستین ویویی رو مخفی کنید کافیه visible اون ویو رو فالس کنید مثلا واسه شما تو قسمت Catch این دوتا کد رو هم اضافه کنید از صفحه روزگار محو میشه دیگه

aks.Visible=False
aks.Enabled=False

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

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

یه جای کار رو اشتباه میرید دوست عزیز

من تو سورس زیر مثال شما رو نوشتم ببینید مثل این رفتید یا نه

multipanel.rar