با سلام و سپاس خدمت کاربران عزیز سایت یاهو ۹۸ YAHOO

 

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

تغییر رنگ و ضخامت خطوط آیتم های ListView

 

Sub SetDivider(lv As ListView, Color As Int, Height As Int
)

  Dim r As Reflector
  r.Target = lv
  Dim CD As ColorDrawable
  CD.Initialize(Color, 0)
  r.RunMethod4("setDivider", Array As Object(CD), Array As String("android.graphics.drawable.Drawable"))
  r.RunMethod2("setDividerHeight", Height, "java.lang.int")


End Sub