B4J یک ابزار رایگان و مدرن جهت توسعه دسکتاپ و سرور است. B4J تحت مفاهیم B4A و
B4I طراحی شده و یک نرم افزار ساده و قدرتمند می باشد. برنامه های کامپایل شده روی سیستم عامل های Windows، Mac، Linux و ARM به خوبی اجرا می شوند. B4J دارای کتابخانه های متعدد و فراوانی است که به قدرت آن می افزاید.
پیش نیاز ها:
- آخرین نسخه Java JDK 8برای گرفتن متن از کلیپبورد ابتدا باید بررسی کنیم که آیا متنی در کلیپبورد وجود دارد یا خیر. سپس از اگر متن وجود داشت آن را از کلیپبورد بگیریم:
Dim a As String
If fx.Clipboard.HasString = True Then
a = fx.Clipboard.GetString
End If
برای کپی کردن یک متن در برنامه از کد زیر استفاده می شود:
fx.Clipboard.SetString("متن مورد نظر")برای گرفتن آیکون یک فایل اجرایی ابتدا باید ساب زیر را بنویسید:
برای استفاده هم باید نام ساب یعنی GetFileIcon را بنویسید و ورودی اول مسیر فایل و ورودی دوم نام فایل را از شما می گیرید و یک متغیراز نوع Image به شما برگردانده می شود.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
B4J یک ابزار رایگان جهت توسعه دسکتاپ و سرور است. B4J تحت مفاهیم B4A و B4I بوده و یک نرم افزار ساده و قدرتمند می باشد. برنامه های کامپایل شده را می توانید روی سیستم عامل های Windows، Mac، Linux و ARM اجرا کنید.
پیش نیاز ها:
- آخرین نسخه .NET Framework
- آخرین نسخه Java JDK 8
سپس هر زمان خواستید از این ساب استفاده کنید. این ساب از شما همان مقدار رنگ شبیه 0xFF45DD92 را می گیرد و کد RGB را به صورت مثلا 25,96,215 بر گشت می دهد.Sub GetColorRGB(ColorValue As Paint) As String
Dim result As String = ""
Dim joCV As JavaObject = ColorValue
Dim R As Double = joCV.RunMethod("getRed", Null)
Dim G As Double = joCV.RunMethod("getGreen", Null)
Dim B As Double = joCV.RunMethod("getBlue", Null)
result = Round(R * 255) & "," & Round(G * 255) & "," & Round(B * 255)
Return result
End Sub
توضیح خاصی نیست.frmEditCodeCSS.Resizable = False