خلاصه کردن کد

[ilan 1]

دوستان چنین کدی رو چجوری میتونیم خلاصه تر بنویسیم؟ ( هرکاری میکنم نمیشه )    
 

   Dim lo1 As JavaObject = Label14.Background
    Dim lo2 As JavaObject = Label15.Background
    Dim lo3 As JavaObject = Label16.Background
    Dim lo4 As JavaObject = Label17.Background
    Dim lo5 As JavaObject = Label20.Background
    Dim lo6 As JavaObject = label10.Background
    Dim lo7 As JavaObject = Label9.Background
    Dim lo8 As JavaObject = Label23.Background
    Dim lo9 As JavaObject = Label24.Background
    Dim lo10 As JavaObject = Label27.Background
    Dim lo11 As JavaObject = Label28.Background
    Dim lo12 As JavaObject = Label31.Background

Dim lo As JavaObject = Label13.Background
    lo.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo1.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo2.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo3.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo4.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo5.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo6.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo7.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo8.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo9.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo10.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo11.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
    lo12.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))

 

[Salar82 901]

با استفاده از آرایه ها میتونید این کار رو به راحتی انجام بدین.

Dim Arr(11) As JavaObject
Arr(0) = Label14.Background
Arr(1) = Label15.Background
Arr(2) = Label16.Background
Arr(3) = Label17.Background
Arr(4) = Label20.Background
.
.
.

For i = 0 To Arr.Size - 1 (یا For i = 0 To 12)
	Arr(i).RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
Next

من اینقدر تونستم خلاصش کنم.

اگر دوستان راه حلی دارن، بگن ما هم استفاده کنیم

[mohammad3250 206]

به نظرم تبدیل کن به یه تابع

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

سلام برادر

یک روش دیگه ای هم که میتونید استفاده کنید، و یکمی پویاتر از روشی هست که دوستان گفتن این هستش که شما بیا به کل این لیبل ها از طریق دیزاینر tag  با مقدار مثلا background  اختصاص بده

قدم بعدی به این صورت کد بزنید »

Private lstLabelBack As List
lstLabelBack.Initialize
For Each v As View In Activity.GetAllViewsRecursive
	If v Is Label Then
		If v.Tag = "background" Then
			Dim lbl As Label = v
			lstLabelBack.Add(lbl.Background)
		End If
	End If
Next

Private jo As JavaObject
For i = 0 To lstLabelBack.Size - 1
	jo = lstLabelBack.Get(i)
	jo.RunMethod("setCornerRadii", Array As Object(Array As Float(10dip, 10dip, 0dip, 0dip, 0, 0,  10, 10)))
Next

حالا شما هر چندتا لیبل جدید هم با تگ background  اضافه کنید با این کد میتونید کاری که میخوایید رو انجام بدید.

فقط نکتش همین هستش که حتما تگ لیبل هایی که میخوایین این کار رو انجام بدید همه رو یکسان بزارید حالا میخوایید background  باشه میخوایید یچیز دیگه ای که مد نظر خودتون هست بزارید.