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

[محمدی 95]

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

من میخوام داخل دیتابیس عکس قرار بدم و اونو داخل مولتی پنل SetBackGround کنم

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

میخوام مثلا 10 تا عکس توی دیتابیس قرار بدم و اون ها توی 10 تا پنل اول بک گراند قرار بگیره

نميدونم چکاری کنم

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

[علی علایی 161]

آقای نمسیس دست شما درد نکنه کار کرد ولی مشکل اصلی من 

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

الان درسن نشون میده منتها وقتی جستجو میکنم تو همه رکودهام عکس آخری رو نشون میده 

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

 ImageView1.SetBackgroundImage(picture(i))

اینو میارم 

عکس اول درحالت عادی 

 

عکس دوم برای وقتی که جستجو میکنم 

 

به نظرتون مشکل از کجاس؟

[porya 959]

فکر کنم باید از tag  و sender استفاده کنی...

[Nemesis 1,846]

آقای نمسیس دست شما درد نکنه کار کرد ولی مشکل اصلی من 

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

الان درسن نشون میده منتها وقتی جستجو میکنم تو همه رکودهام عکس آخری رو نشون میده 

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

 ImageView1.SetBackgroundImage(picture(i))

اینو میارم 

عکس اول درحالت عادی 

 

عکس دوم برای وقتی که جستجو میکنم 

 

به نظرتون مشکل از کجاس؟

متوجه سوالت نشدم ولی برا اینکه اگه فیلدت خالی بود ارور ندا باید به اینصورت تغییر بدی

از این ساب استفاده کن

Sub picture (name As String) As Bitmap

	Dim bytes()As Byte
	bytes = cur.GetBlob("logo")
	If bytes <> Null Then
		Dim input As InputStream
		input.InitializeFromBytesArray(bytes,0,bytes.Length)
		Dim b As Bitmap
		b.Initialize2(input)
		input.Close
		Return(b)
	Else
		Dim mypic As Bitmap
		mypic.Initialize(File.DirAssets,"noimage.jpg")
		Return(mypic)
	End If
	

End Sub

[reza abaskhanian 12]

 

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

منتها عکس همش عکس اولی نمایش داده میشود

[علی علایی 161]

ممنون کار نداد 

من فکر می کنم چون تو ساب ادیت تکس

 ScrollView1.Panel.RemoveAllViews

میاد آخرین فیلد عکسو برای همه رکودهام میزاره (عکسشم بالا گذاشتم) 

[Nemesis 1,846]

ببین سابی که من دادم اگه بایت خالی وارد ساب بشه یه تصویر پیش فرض میاد

حالا شما دقیقا چی میخواید

[علی علایی 161]

سلام منم همین مشکلو دارم  و از کد بالا که  آقای محمدی گذاشتن برای عکس استفاده میکنم

 نمی دونم چرا ارور میده 

ممنون میشم راهنمایی ام کنید

[porya 959]

خب شما بیاید فقط اسم عکس ها رو  تو دیتابیس بزارید و خود عکسو تو فایل برنامه یا همون dir assets اینجوری هم خیلی بهتر و راحتره

[علی علایی 161]

خب شما بیاید فقط اسم عکس ها رو  تو دیتابیس بزارید و خود عکسو تو فایل برنامه یا همون dir assets اینجوری هم خیلی بهتر و راحتره

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

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

[محمدی 95]

30 ساعت گذشت حداقل سوال رو نگاه کنید

اگه وقت ندارید توضیح بدید لطفا یه جایی که آموزش داده شده قبلا رو آدرسشو بدید!

[مهدی ایزدی 9,203]

به صورت Blob کار کردید یا String برای اسم عکس ؟

[rahmanrezaei 5]

سلام من از طریق برنامه Navicat for SQLite تمام متن رو داخل B4A گذاشتم حالا میخوام ویرایشش کنم هر کاری میکنم قابل ویرایش نیست چکار  وکنم

 

 

[محمدی 95]

به صورت Blob کار کردید یا String برای اسم عکس ؟

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

Sub Namayesh(esm As String) As Bitmap
Dim cur As Cursor
cur=s.ExecQuery("SELECT Tasvir FROM tbl WHERE Esm='"& esm & "'")
cur.Position=0

Dim bytes() As Byte
bytes=cur.GetBlob("Tasvir")

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

Dim b As Bitmap
b.Initialize2(input)
input.Close
Return(b)
End Sub

و اونو داخل اکتیویتی کیریت داخل ایمیج ویو قرار میدم

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

[محمدی 95]

اول میام تیبل ایجاد میکنم و دو تا فیلد به نام Esm با حالت تایپ Text و Tasvir با حالت تایپ Text ایجاد میکنم و به نام tbl سیو میکنم

حالا وارد تیبل میشم و در ستون esm میام و Aks1 قرار میدم و توی ستون tasvir Memo رو میزنم و Image انتخاب میکنم و به همین شکل Aks2 عکس بعدی

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

[محمدی 95]

کسی نیست کمک کنه؟ خیلی مهمه کارم

[علی علایی 161]

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

خودم سعی کردم ولی نشد 

لطفا بنده رو راهنمایی بفرمایید

[علی علایی 161]

ببین سابی که من دادم اگه بایت خالی وارد ساب بشه یه تصویر پیش فرض میاد

حالا شما دقیقا چی میخواید

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

منتها وقتی جستجو میکنم تمام پنل هام آخرین عکسو رونشون میده 

چه کارکنم حتی سرچ هم کردم عکس ها تغییری نکنه ( نمونه عکس هارو تو پست بالاتر گذاشتم) 

ممنون میشم راهنمایی کنید