رفتن به مطلب
  • 0

خلاصه کردن کد


ilan

سوال

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

   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)))

 

لینک ارسال
به اشتراک گذاری در سایت های دیگر

3 پاسخ به این سوال تاکنون داده شده است

ارسال های توصیه شده

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

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

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

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

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

لینک ارسال
به اشتراک گذاری در سایت های دیگر

سلام برادر

یک روش دیگه ای هم که میتونید استفاده کنید، و یکمی پویاتر از روشی هست که دوستان گفتن این هستش که شما بیا به کل این لیبل ها از طریق دیزاینر 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  باشه میخوایید یچیز دیگه ای که مد نظر خودتون هست بزارید.

لینک ارسال
به اشتراک گذاری در سایت های دیگر

بایگانی شده

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

  • کاربران آنلاین در این صفحه   0 کاربر

    • هیچ کاربر عضوی،در حال مشاهده این صفحه نیست.
×
×
  • اضافه کردن...