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

دانلود Launch4j 3.8 - تبدیل فایل Jar به فایل اجرایی ویندوز Exe

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

دانلود Launch4j 3.8