B4A Class DatePicker, CalendarView

DatePicker is a beautiful b4x class library. It offers easy customization to match any theme.

The source code for DatePicker is available on Github, allowing you to easily modify it to suit your personal needs. Source here: https://github.com/tummosoft/B4XUI

 

[tummosoft]

CalendarView is designed for use in apps such as planning and event management.

Dim bAirplane As B4XBitmap=LoadBitmapResize(File.DirAssets,"airplane.png", 20dip, 20dip, True)  'resizes the image
    Dim bMeeting As B4XBitmap=LoadBitmapResize(File.DirAssets,"hangouts-meet.png", 20dip, 20dip, True)  'resizes the image
    Dim bTeam As B4XBitmap=LoadBitmapResize(File.DirAssets,"team.png", 20dip, 20dip, True)  'resizes the image
    'CalendarBox2.BitMap = b
    Log(DateTime.Now)
    
    
    
    'DrawCalendar(DateTime.Now)
    
    Dim color1 As Int = Colors.ARGB(255,91, 35, 255)
    Dim color2 As Int = Colors.ARGB(255,0, 139, 255)
    Dim color3 As Int = Colors.ARGB(255,228, 255, 48)
    Dim color4 As Int = Colors.ARGB(255,54, 47, 79)
    Dim color5 As Int = Colors.ARGB(255, 246, 48, 73)
    
    Dim color6 As Int = Colors.ARGB(255,251, 239, 118)
    Dim color7 As Int = Colors.ARGB(255, 254, 194, 136)
    Dim color8 As Int = Colors.ARGB(255, 250, 92, 92)
            
    CalendarView1.AddBitmap(DateTime.Now, bAirplane)
    CalendarView1.AddBitmap(DateTime.DateParse("4/13/2026"), bMeeting)
    CalendarView1.AddBitmap(DateTime.DateParse("4/24/2026"), bTeam)
    
    CalendarView1.DrawCalendar(DateTime.DateParse("4/1/2026"))
    
    
    CalendarView1.AddEvent(color1, "Add event", DateTime.DateParse("4/21/2026"))
    CalendarView1.AddEvent(color2, "Add event", DateTime.DateParse("4/21/2026"))
    CalendarView1.AddEvent(color3, "Add event", DateTime.DateParse("4/21/2026"))
    
    CalendarView1.AddEvent(color5, "Add event", DateTime.DateParse("4/15/2026"))
    
    CalendarView1.AddEvent(color6, "Add event", DateTime.DateParse("4/4/2026"))
    CalendarView1.AddEvent(color7, "Add event", DateTime.DateParse("4/4/2026"))

 

[mcqueccu]

Only for B4A?