آموزش گرفتن ارتفاع تب TabHost

[Kazem Forghani 2,928]

سلام دوستان

کتابخانه Refliction رو تیک بزنید.

با کد زیر می تونید ارتفاع هر تب TabHost رو به پیکسل بگیرید.

Sub GetTabHeight(TabHost1 As TabHost) As Int
    Dim Reflector1 As Reflector
    Dim h As Int = -1   
   
    Reflector1.Target = TabHost1
   
    Dim TabWidget As Object
    TabWidget = Reflector1.RunMethod("getTabWidget")
    Reflector1.Target = TabWidget
    Dim TabIndicator As View
    TabIndicator = Reflector1.RunMethod2("getChildAt", 0, "java.lang.int")
    Reflector1.Target = TabIndicator
   
    Dim lp As Object
    lp = Reflector1.RunMethod("getLayoutParams")
    Reflector1.Target = lp
       
    h = Reflector1.GetField("height")
   
    Return h
End Sub

[alirezakazemizaroomi 437]

 

سلام دوستان

کتابخانه Refliction رو تیک بزنید.

با کد زیر می تونید ارتفاع هر تب TabHost رو به پیکسل بگیرید.

کاربرد گرفتن ارنفاع TabHost چیه؟