home *** CD-ROM | disk | FTP | other *** search
/ Freelog 17 / Freelog017.iso / Prog / FreeDate.bas
BASIC Source File  |  2000-11-27  |  611b  |  28 lines
  1. ' Copy and paste into your program
  2. DECLARE SUB Button1Click (Sender AS QBUTTON)
  3.  
  4. CREATE Form AS QFORM
  5.     Caption = "Freelog Date"
  6.     Width = 320
  7.     Height = 69
  8.     Center
  9.     CREATE Button1 AS QBUTTON
  10.         Caption = "Cliquez sur ce bouton pour faire apparaεtre la date du jour"
  11.         Left = 8
  12.         Top = 10
  13.         Width = 291
  14.         OnClick = Button1Click
  15.     END CREATE
  16. END CREATE
  17.  
  18. 'Insert your initialization code here
  19.  
  20. Form.ShowModal
  21.  
  22. '--------- Subroutines ---------
  23.  
  24. SUB Button1Click (Sender AS QBUTTON)
  25. ShowMessage("Nous sommes aujourd'hui le "+date$+".")
  26. END SUB
  27.  
  28.