In my continuation on my first tutorial in using Dialogs, now I will introduce another kind of Dialog, the DateDialog.

First add the Dialog library as your references and create an abstract design. Next, put a button and named it Button1. Then saved the layout name "Main".

Here's the complete code for our tutorial.

1. Sub
   
   Process_Globals
   
2. 'These global variables will be declared once when the application starts.
   
3. 'These variables can be accessed from all modules.
   
4. 
   
5. End
   
   Sub
   
6. 
   
7. Sub
   
   Globals
   
8. 'These global variables will be redeclared each time the activity is created.
   
9. 'These variables can only be accessed from this module.
   
10. 
    
11. Dim
    
    Button1 As
    
    Button
    
12. Dim
    
    bmp As
    
    Bitmap
    
13. End
    
    Sub
    
14. 
    
15. Sub
    
    Activity_Create(FirstTime As
    
    Boolean
    
    )
    
16. 'Do not forget to load the layout file created with the visual designer. For example:
    
17. 'Activity.LoadLayout("Layout1")
    
18. Activity.LoadLayout("Main"
    
    )
    
19. bmp.InitializeSample(File.DirAssets, "bermoy.jpg"
    
    ,48,48)
    
20. 
    
21. End
    
    Sub
    
22. 
    
23. Sub
    
    Activity_Resume
    
24. 
    
25. End
    
    Sub
    
26. 
    
27. Sub
    
    Activity_Pause (UserClosed As
    
    Boolean
    
    )
    
28. 
    
29. End
    
    Sub
    
30. 
    
31. 
    
32. Sub
    
    Button1_Click
    
33. Dim
    
    Dd As
    
    DateDialog
    
34. Dd.Year = DateTime.GetYear(DateTime.Now)
    
35. Dd.Month = DateTime.GetMonth(DateTime.Now)
    
36. Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now)
    
37. ret = Dd.Show("Set the required date"
    
    , "B4A Date Dialog"
    
    , "Yes"
    
    , "No"
    
    , "Maybe"
    
    , bmp)
    
38. ToastMessageShow(ret & " : "
    
    & Dd.DayOfMonth & "/"
    
    & Dd.Month & "/"
    
    & Dd.Year , False
    
    )
    
39. End
    
    Sub
    

Note:
Dd - used as our variable for our DateDialog.
Dd.Year = DateTime.GetYear(DateTime.Now) - syntax to get the year that is equivalent to the year now.
Dd.Month = DateTime.GetMonth(DateTime.Now) - syntax to get the month that is equivalent to the month now.
Dd.DayOfMonth = DateTime.GetDayOfMonth(DateTime.Now) - syntax to get the day that is equivalent to what day is now.
ret - used as a variable for our return value.

For more inquiries and need programmer for your thesis systems in any kind of programming languages, just contact my number below.

Best Regards,

Engr. Lyndon Bermoy
IT Instructor/System Developer/Android Developer/Freelance Programmer
Mobile: 09488225971
Landline: 826-9296
E-mail:[email protected]

Add and Follow me on Facebook: https://www.facebook.com/donzzsky

Visit and like my page on Facebook at: https://www.facebook.com/BermzISware

Download