test.bas 2.4 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. DividingLines = NotDefault
  5. AllowDesignChanges = NotDefault
  6. DefaultView =0
  7. PictureAlignment =2
  8. DatasheetGridlinesBehavior =3
  9. GridY =10
  10. Width =6994
  11. DatasheetFontHeight =11
  12. ItemSuffix =1
  13. Right =11325
  14. Bottom =7920
  15. DatasheetGridlinesColor =14806254
  16. RecSrcDt = Begin
  17. 0xf51a6df01156e440
  18. End
  19. OnOpen ="[Event Procedure]"
  20. DatasheetFontName ="Calibri"
  21. OnLoad ="[Event Procedure]"
  22. FilterOnLoad =0
  23. ShowPageMargins =0
  24. DisplayOnSharePointSite =1
  25. DatasheetAlternateBackColor =15921906
  26. DatasheetGridlinesColor12 =0
  27. FitToScreen =1
  28. DatasheetBackThemeColorIndex =1
  29. BorderThemeColorIndex =3
  30. ThemeFontIndex =1
  31. ForeThemeColorIndex =0
  32. AlternateBackThemeColorIndex =1
  33. AlternateBackShade =95.0
  34. Begin
  35. Begin Label
  36. BackStyle =0
  37. FontSize =11
  38. FontName ="Calibri"
  39. ThemeFontIndex =1
  40. BackThemeColorIndex =1
  41. BorderThemeColorIndex =0
  42. BorderTint =50.0
  43. ForeThemeColorIndex =0
  44. ForeTint =50.0
  45. GridlineThemeColorIndex =1
  46. GridlineShade =65.0
  47. End
  48. Begin Section
  49. Height =5952
  50. Name ="Détail"
  51. AutoHeight =1
  52. AlternateBackColor =15921906
  53. AlternateBackThemeColorIndex =1
  54. AlternateBackShade =95.0
  55. BackThemeColorIndex =1
  56. Begin
  57. Begin Label
  58. OverlapFlags =85
  59. Left =1644
  60. Top =396
  61. Width =2891
  62. Height =397
  63. BorderColor =8355711
  64. ForeColor =8355711
  65. Name ="txt"
  66. Caption ="."
  67. GridlineColor =10921638
  68. LayoutCachedLeft =1644
  69. LayoutCachedTop =396
  70. LayoutCachedWidth =4535
  71. LayoutCachedHeight =793
  72. End
  73. End
  74. End
  75. End
  76. End
  77. CodeBehindForm
  78. Attribute VB_GlobalNameSpace = False
  79. Attribute VB_Creatable = True
  80. Attribute VB_PredeclaredId = True
  81. Attribute VB_Exposed = False
  82. Option Compare Database
  83. Private Sub Form_Load()
  84. 'MsgBox "test"
  85. End Sub
  86. Private Sub Form_Open(Cancel As Integer)
  87. Dim i As Integer
  88. Call ttt
  89. End Sub
  90. Sub ttt()
  91. For i = 1 To 3
  92. Me.txt.Caption = i
  93. Call Attendre(2000)
  94. Next i
  95. End Sub