B4J Library B4J_Button_extra (Add images and enhance your buttons)

cap1.png


B4j_Button_extra


Autor: Fernando Arevalo
Version: 0.01
  • B4j_Button_extra
    • Functions:
      • Show (btn As Button, image As String, color1 As String, color2 As String, width As Int, heigth As Int)

Example:

Example:
#Region Project Attributes
    #MainFormWidth: 600
    #MainFormHeight: 600
#End Region

Sub Process_Globals
    Private fx As JFX
    Private MainForm As Form
    Private xui As XUI
    Private Button1 As B4XView
    Dim s As Button_extra
    Private Button2 As Button
    Private Button3 As Button
End Sub

Sub AppStart (Form1 As Form, Args() As String)
    MainForm = Form1
    MainForm.RootPane.LoadLayout("Layout1")
    MainForm.Show
    s.Initialize
    s.show(Button1, "info.png", "#61a2b1", "#2A5058",48,48)
    s.show(Button2, "store.png", "#AE8DFB", "#5D49A3",48,48)
    s.show(Button3, "home.png", "#FF86A4", "#E43846",48,48)
End Sub

Sub Button1_Click
    xui.MsgboxAsync("Hello World!", "B4X")
End Sub


NOTE:

This library is not free, because, it cost a lot of time and gray hair to create such views.
Donations from 5$ are valid. (You can donate any amount you want :))
Please write B4J_Button_extra in the order description, thanks.

Paypal: hazlofacil87@gmail.com

Thanks for your understanding. :)
  1. Donate
  2. I will send you an e-mail with the code to decrypt the .zip file
  3. Done
 

Attachments

  • example.zip
    71 KB · Views: 19
  • B4J_Button_extra.zip
    142.5 KB · Views: 18
Top