سوال تخصصی در مورد بک گراند اسکرول ویو

[naser sahami 90]

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

[naser sahami 90]

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

[naser sahami 90]

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

[مجید آرتا 5,874]

ص و...

 

سلام

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

اسسپم کده هم راه نندازید!!!

شما اولا اصلا موضوع رو باز نکردین.

یه جا اومدید می گید اسکرول ویو بعد می گید لیست ویو ؟؟!!!

الان مشکلتون رو واضح بیان کنید.بکگراند چی عوض بشه ؟ عکس اکتویتی مربوط به هر فلز متفاوت باشه ؟ عکس هر آیتم در لیست ویو یه چیز دیگه باشه ؟

لطفا سوالتون رو واضح مطرح کنید.

[shahriar 408]

با سلام

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

اگه از دیتابیس باشه یه راه آسون تر هستش

[پژمان نیکروان 6,055]

برای تغییر دادن بک گراند کدش اینه دیگه.

scrollview1.SetBackgroundImage(LoadBitmap(File.DirAssets,"ax.png"))

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

[ebham 232]

شما میتونی  فایل تعریف کنی  در اکت ماین 

 

  If File.Exists(File.DirInternal,"bk")= False Then 

   (File.WriteString(File.DirInternal,"bk",0

End If

 

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

 

خوب حالا توی کلیک هات  -- طلا --- نقره -- برنز - و غیره  --- اول مینویسی 

واسه کلیک طلا 

(File.WriteString(File.DirInternal,"bk",1

و باقی کد ها 

 

 

 

واسه کلیک نقره

(File.WriteString(File.DirInternal,"bk",2

و باقی کدها 

 

 

 

واسه کلیک برنز  

(File.WriteString(File.DirInternal,"bk",3

و باقی کدها 

 

توی کدهای بالا اومدیم  روی هر باتن یا پانلی که مربوط به بخش مورد نظر هست  اعداد رو تغییر دادیم  طلا 1 نقره 2 برنز 3 و غیره 

 

حالا توی  اکت لیستمون میام اونو توی گلوبال  فراخونی میکنیم 

 

 

("dim bgsc as int = File.ReadString(File.DirInternal,"bk  

 

 

 

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

 

 

 

if dgsc = 1 then 

  dim b1 as BitmapDrawable        

(( "b1.Initialize(LoadBitmap(File.DirAssets,"bg1.jpg        

sc.Background = b1        

 

else if bgsc = 2 then 

  dim b2 as BitmapDrawable       

(( "b2.Initialize(LoadBitmap(File.DirAssets,"bg2.jpg       

sc.Background = b2       

end if

 

در کدهای بالا من دوتا بکگراند تعریف کردم که sc  میشه اسکرول ویو -

که با با کلیک روی باتن مورد نظر بک گراند مورد نظر اجرا میشه --

شما میتونی 10 تا تعریف کنی دقت داشته باش bg1 و bg2 دو عکس با فرمت jpg  هستن که توی پوشه فایل برنامه قرار دارن 

 

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

 

 

یا حق 

[naser sahami 90]

اقا شهریار ازدیتابیس لطفا راه حل را بگید. یک بار دیگه سوالم را میگم ببنید من یه لیست ویو دارم که تمام عنوانهام توش هست که از دیتابیس لود میشه  (مثلا: طلا و نقره و...) دوازده تا  هست . میخوام رو هرکدوم کاربر زد علاوه برمتن یه بک گراند مخصوص اون متن بیاد که قبلا 12تا درست کردم  (خلاصه میخوام هر عنوانم را میزنم که میره متنش یه بک گراند مخصوص به خودشا داشته باشه) امیدوارم منظورم را رسونده باشم

[shahriar 408]

درود

شما باید تو صفحه ای که آیتم هارو لود میکنید تو رویداد کلیک آیتم هاتون مقدار tag تونهارو بریزید تو یک متغیر او اکتیویتی خواندن و از اون استفاده کنید

این کد رو تو اکتویتی خواندن و تو اکتیوی کریت بنویس :

Dim Cur1 As Cursor
	Cur1 = SQL1.ExecQuery("SELECT * FROM Tbl1 WHERE ID="&ID)
	Cur1.Position = 0
	If Cur1.GetInt("ID")=1 Then
		'دستور لود پس زمینه
	Else If Cur1.GetInt("ID")=2 Then
		'دستور لود پس زمینه
	End If

[naser sahami 90]

سلام کسی میتونه سورس برنامه بالا را بده چندبار امتحان کردم جواب نداد اگه این کار بکنید لطفا بزرگی به من کردید واقعا گیرم الان

[naser sahami 90]

بعد بک گرانداما تو دیتابیس بذارم یا تو فایل بیسیک؟

[MahdiHD 1,748]

دوست عزیز نیاز به سورس نیست که!اگر برای قیمت طلا اکتیویتی جداگانه و برای قیمت نقره اکتیویتی جداگانه وجود دارد بک گراند هر اکتیویتی را در پوشه file بریزید بعد برای مثال در اکتیویتی طلا کد آقا پژمان را بنویسید و نام بک گراند صفحه طلا را جایگزین نام ax.png کنید.برای بقیه اکتیویتی ها هم همین کار را انجام دهید با تفاوت این که در هر اکتیویتی نام عکس مربوط به خودش را جایگزین نام عکس پیشفرض در کد کنید.

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

[shahriar 408]

بعد بک گرانداما تو دیتابیس بذارم یا تو فایل بیسیک؟

 

توفایل بذارید بهتره

چرا ؟

چون میتونید حجمشون رو کم کنید

چون اگه تو دیتابیس بذارید سرعت میاد پایین

[naser sahami 90]

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

[naser sahami 90]

داش مهدی بس چی شد راهنماییتون

[naser sahami 90]

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

	Cur =Sql1.ExecQuery("select * from book")
	
	For i=0 To Cur.RowCount-1
	Cur.Position=i
	
	ListView1.AddSingleLine(Cur.GetString("Name"))
	Dim Backlist As BitmapDrawable
	Backlist.Initialize(LoadBitmap(File.DirAssets,"button2.png"))
	ListView1.SingleLineLayout.Background=Backlist
	ListView1.SingleLineLayout.ItemHeight=14%y
	Dim l As Label
	l=ListView1.SingleLineLayout.Label
	l.Gravity=Gravity.CENTER
	l.TextColor=Colors.black
	l.Left=l.Left-0.6
	l.Top=-1%y
	l.Textsize=25
	l.Typeface=Typeface.LoadFromAssets("Alphabet_MRT.ttf")
	Next

Cur =Fehrest.Sql1.ExecQuery("select * from book where Name='"& Fehrest.khandan &"'")
	
	For i=0 To Cur.RowCount-1
	Cur.Position=i
    
	l.Initialize("")
 l.Text = Cur.GetString("Matn")
   l.TextColor = Colors.Black
     l.Gravity = Gravity.RIGHT
   l.TextSize = 19
   l.Tag = i
  ScrollView1.Panel.AddView(l,0,0,ScrollView1.Width,ScrollView1.Height)
  Try
l.TextColor = ln.get("n","Color")
l.TextSize= ln.get("n","Size")
l.Typeface = Typeface.LoadFromAssets(ln.get("n","Font"))
Catch
End Try

   int1 = su.MeasureMultilineTextHeight(l,l.Text)
    int2 = int1 + 2%y
	
	l.Height = int2
    ScrollView1.Panel.Height = int2
    Fehrest.khandan = 0


Next

[MahdiHD 1,748]

اسپم در فاصله یک ساعت!در این صورت مدیران با شما برخورد می کنند!ببینید شما اگر برای مثال یک تا بیست آیتم های لیست ویو مربوط به طلا هستند باید بنویسید که اگر بر روی این بیست آیتم کلیک شد یک فایل متنی با نام طلا در حافظه داخلی ایجاد کند.بعد برای بک گراند هم بنویسید که اگر فایل متنی با نام طلا در حافظه داخلی وجود داشت بک گراند اسکرول ویو فایل عکس طلا برای مثال باشد.برای بقیه آیتم ها هم همین کار را بکنید.

[naser sahami 90]

 معذرت میخوام .میشه با کد توضیح بدید بنده مبتدی هستم.  سوالم را دقت کنید . وقتی تو لیست ویو (طلاو نقره و پلاتین و...) به طلا کلیک میکنم بک گراند طلا " پلاتین را زدم یه بک گراند مخصوص پلاتین تا الا اخر دوباره تاکید میکنم که از عنوان لیست ویو میره به عنوان متن