رفتن به مطلب
برای استفاده از انجمن و عضـویت کلیک کنید.
شایان آباد

Access ENum's

پست های پیشنهاد شده

شایان آباد    6,137

بنیان گذار و مدیر فنی

Sub Class_Globals

Private EnumJO As JavaObject

End Sub

 

Public Sub Initialize(ClassName As String)

EnumJO.InitializeStatic(ClassName)

End Sub

 

Sub ValueOf(Text As String) As Object

Return EnumJO.RunMethod("valueOf",Array(Text))

End Sub

 

Sub Values As Object()

Return EnumJO.RunMethod("values",Null)

End Sub

 

Sub ValueStrings As String()

Dim ValueObjects() As Object = Values

Dim JO As JavaObject

Dim ReturnStrings(ValueObjects.Length) As String

For i = 0 To ValueObjects.Length - 1

JO = ValueObjects(i)

ReturnStrings(i) = JO.RunMethod("toString",Null)

Next

Return ReturnStrings

End Sub

 

Usage:

 

Dim PaintStyle As ENumClass

PaintStyle.Initialize("android.graphics.Paint.Style")

Log(PaintStyle.ValueOf("FILL"))

Log(GetType(PaintStyle.ValueOf("FILL")))

 

Dim paint As JavaObject

paint.InitializeNewInstance("android.graphics.Paint", Null)

paint.RunMethod("setStyle", Array("FILL"))

 

 

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


لینک به ارسال

برای ارسال دیدگاه یک حساب کاربری ایجاد کنید یا وارد حساب خود شوید

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

ایجاد یک حساب کاربری

برای حساب کاربری جدید در سایت ما ثبت نام کنید. عضویت خیلی ساده است !

ثبت نام یک حساب کاربری جدید

ورود به حساب کاربری

دارای حساب کاربری هستید؟ از اینجا وارد شوید

ورود به حساب کاربری

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

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

×