آموزش گرفتن آیکون فایل اجرایی ( 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 به شما برگردانده می شود.