آموزش گرفتن آیکون فایل اجرایی ( Exe ) در B4J

برای گرفتن آیکون یک فایل اجرایی ابتدا باید ساب زیر را بنویسید:

Sub GetFileIcon(Dir As String, FileName As String) As Image
   Dim jo As JavaObject
   Dim JavaFile As JavaObject
   JavaFile.InitializeNewInstance("java.io.File", Array(File.Combine(Dir, FileName)))
   Dim icon As JavaObject = jo.InitializeStatic("sun.awt.shell.ShellFolder").RunMethodJO( _
     "getShellFolder", Array(JavaFile)).RunMethod("getIcon", Array(True))
   Return AwtImageToImage(icon)
End Sub

Private Sub AwtImageToImage(img As JavaObject) As Image
   Dim jo As JavaObject
   Return jo.InitializeStatic("javafx.embed.swing.SwingFXUtils").RunMethod("toFXImage", Array(img, Null))
End Sub

برای استفاده هم باید نام ساب یعنی GetFileIcon را بنویسید و ورودی اول مسیر فایل و ورودی دوم نام فایل را از شما می گیرید و یک متغیراز نوع Image به شما برگردانده می شود.

آموزش گرفتن ورژن SDK گوشی کاربر در B4A

ابتدا کتابخانه Phone را تیک زده و یک متغیر از همان نوع تعریف کنید:

Dim Phone1 as Phone

حالا در رویداد مد نظر کد زیر را بنویسید:

Phone1.SdkVersion

مقدار برگشتی کد بالا ورژن اندروید نیست و API هست!

یعنی مثلا برای اندروید 5.0.1 مقدار برگشتی 21 هست!

برای تبدیل هم می توانید از دستور If استفاده کنید:

Dim Phone1 As Phone
Dim v As Int
Dim u As String
v = Phone1.SdkVersion
If v = 21 Then
u = 5.0.1
End If