این سورس ماشین حساب بسیار ساده می باشد که بوسیله B4J و با صفحه کلید سفارشی ساخته شده است. این سورس دارای باگ هایی می باشد. اگر توانستید آن ها را حل کنید سورس ویرایش شده را در نظرات ارسال کنید.
سپس هر زمان خواستید از این ساب استفاده کنید. این ساب از شما همان مقدار رنگ شبیه 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
برای نمایش یک دیالوگ ( کادر محاوره ای ) حاوی متن می توانید از دستور زیر استفاده کنید:
آرگومان اول متن و در آرگومان دوم عنوان ( Subject ) را وارد کنید.fx.Msgbox("متن", "عنوان")
توضیح خاصی نیست.frmEditCodeCSS.Resizable = False
در این مطلب به آموزش ذخیره فایل حاوی متن و کاراکتر در B4J می پردازیم. کد به این صورت می باشد:
File.WriteString("D:\\", "filename.html", "charters")
ابتدا یک ComboBox در لایوت خود اضافه کنید و آن را به قسمت کدنویسی تعریف نمایید. حالا از کد زیر برای اضافه کردن آیتم به صورت کلی استفاده کنید:
عبارت ComboBox1 نام کمبو باکس شما می باشد. شما می توانید تعداد آیتم نا محدود اضافه کنید و آرگومان ها را بیش تر کنید.ComboBox1.Items.AddAll(Array As String("Item1","Item2","Item3","Item4"))
موفق باشیدExitApplication
File.MakeDir("D:\\", "images")
آرگومان اول مسیر ساخت پوشه را می دهیم و آرگومان دوم نام پوشه ایجاد شده را می نویسیم؛ موفق باشید