I have a sub which creates a GUI:
Code:
Sub Build_GUI2
'Prepare gradient
cols1(0) = Colors.ARGB(255,167,221,241)
cols1(1) = Colors.White
gd1.Initialize( "BOTTOM_TOP",cols1)
gd2.Initialize( "TOP_BOTTOM",cols1)
gd1.CornerRadius=0
gd2.CornerRadius=0
Activity.Background=gd2
Dim Labellist As List
Labellist.Initialize
Labellist.Add("Auto:")
Labellist.Add("Autocolor:")
Labellist.Add("Kennzeichen:")
Labellist.Add("Mitgliedsnummer:")...
from B4X Community - Android, iOS, desktop, server and IoT programming tools http://ift.tt/28YVXmj
via IFTTT
Aucun commentaire:
Enregistrer un commentaire