zf_progress.bas 7.3 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238
  1. Version =20
  2. VersionRequired =20
  3. Begin Form
  4. PopUp = NotDefault
  5. Modal = NotDefault
  6. RecordSelectors = NotDefault
  7. NavigationButtons = NotDefault
  8. DividingLines = NotDefault
  9. AllowDesignChanges = NotDefault
  10. DefaultView =0
  11. ScrollBars =0
  12. PictureAlignment =2
  13. DatasheetGridlinesBehavior =3
  14. GridY =10
  15. Width =5555
  16. DatasheetFontHeight =11
  17. ItemSuffix =2
  18. Left =5475
  19. Top =2430
  20. Right =16740
  21. Bottom =14565
  22. DatasheetGridlinesColor =14806254
  23. RecSrcDt = Begin
  24. 0xc9a40f6c4f8ae440
  25. End
  26. Caption ="frmProgression"
  27. OnOpen ="[Event Procedure]"
  28. DatasheetFontName ="Calibri"
  29. FilterOnLoad =0
  30. ShowPageMargins =0
  31. DisplayOnSharePointSite =1
  32. DatasheetAlternateBackColor =15921906
  33. DatasheetGridlinesColor12 =0
  34. FitToScreen =1
  35. DatasheetBackThemeColorIndex =1
  36. BorderThemeColorIndex =3
  37. ThemeFontIndex =1
  38. ForeThemeColorIndex =0
  39. AlternateBackThemeColorIndex =1
  40. AlternateBackShade =95.0
  41. Begin
  42. Begin Label
  43. BackStyle =0
  44. FontSize =11
  45. FontName ="Calibri"
  46. ThemeFontIndex =1
  47. BackThemeColorIndex =1
  48. BorderThemeColorIndex =0
  49. BorderTint =50.0
  50. ForeThemeColorIndex =0
  51. ForeTint =50.0
  52. GridlineThemeColorIndex =1
  53. GridlineShade =65.0
  54. End
  55. Begin Rectangle
  56. SpecialEffect =3
  57. BackStyle =0
  58. BorderLineStyle =0
  59. Width =850
  60. Height =850
  61. BackThemeColorIndex =1
  62. BorderThemeColorIndex =1
  63. BorderShade =65.0
  64. GridlineThemeColorIndex =1
  65. GridlineShade =65.0
  66. End
  67. Begin CommandButton
  68. Width =1701
  69. Height =283
  70. FontSize =11
  71. FontWeight =400
  72. FontName ="Calibri"
  73. ForeThemeColorIndex =0
  74. ForeTint =75.0
  75. GridlineThemeColorIndex =1
  76. GridlineShade =65.0
  77. UseTheme =1
  78. Shape =1
  79. Gradient =12
  80. BackThemeColorIndex =4
  81. BackTint =60.0
  82. BorderLineStyle =0
  83. BorderColor =16777215
  84. BorderThemeColorIndex =4
  85. BorderTint =60.0
  86. ThemeFontIndex =1
  87. HoverThemeColorIndex =4
  88. HoverTint =40.0
  89. PressedThemeColorIndex =4
  90. PressedShade =75.0
  91. HoverForeThemeColorIndex =0
  92. HoverForeTint =75.0
  93. PressedForeThemeColorIndex =0
  94. PressedForeTint =75.0
  95. End
  96. Begin Section
  97. Height =2437
  98. Name ="Détail"
  99. AlternateBackColor =10079487
  100. BackThemeColorIndex =1
  101. Begin
  102. Begin Label
  103. OverlapFlags =85
  104. TextAlign =2
  105. Left =105
  106. Top =120
  107. Width =5205
  108. Height =405
  109. FontSize =12
  110. FontWeight =700
  111. BorderColor =8355711
  112. Name ="txt_title"
  113. Caption ="Running..."
  114. GridlineColor =10921638
  115. LayoutCachedLeft =105
  116. LayoutCachedTop =120
  117. LayoutCachedWidth =5310
  118. LayoutCachedHeight =525
  119. ForeTint =100.0
  120. End
  121. Begin Label
  122. OverlapFlags =85
  123. TextAlign =2
  124. Left =123
  125. Top =636
  126. Width =5158
  127. Height =742
  128. BorderColor =8355711
  129. Name ="txt_msg"
  130. Caption ="..."
  131. GridlineColor =10921638
  132. LayoutCachedLeft =123
  133. LayoutCachedTop =636
  134. LayoutCachedWidth =5281
  135. LayoutCachedHeight =1378
  136. ForeTint =100.0
  137. End
  138. Begin Rectangle
  139. SpecialEffect =0
  140. BackStyle =1
  141. BorderWidth =2
  142. OverlapFlags =93
  143. Left =121
  144. Top =1480
  145. Width =5159
  146. Height =340
  147. BackColor =14922894
  148. BorderColor =6174487
  149. Name ="shape"
  150. GridlineColor =10921638
  151. LayoutCachedLeft =121
  152. LayoutCachedTop =1480
  153. LayoutCachedWidth =5280
  154. LayoutCachedHeight =1820
  155. BackThemeColorIndex =2
  156. BackTint =40.0
  157. BorderThemeColorIndex =2
  158. BorderShade =75.0
  159. End
  160. Begin Rectangle
  161. SpecialEffect =0
  162. BackStyle =1
  163. OldBorderStyle =0
  164. OverlapFlags =215
  165. Left =127
  166. Top =1486
  167. Width =3052
  168. Height =318
  169. BackColor =6174487
  170. BorderColor =10921638
  171. Name ="prog"
  172. GridlineColor =10921638
  173. LayoutCachedLeft =127
  174. LayoutCachedTop =1486
  175. LayoutCachedWidth =3179
  176. LayoutCachedHeight =1804
  177. BackThemeColorIndex =2
  178. BackShade =75.0
  179. End
  180. Begin CommandButton
  181. OverlapFlags =85
  182. Left =4422
  183. Top =1927
  184. Width =850
  185. Height =340
  186. FontWeight =700
  187. Name ="btn_ok"
  188. Caption ="OK"
  189. OnClick ="[Event Procedure]"
  190. LeftPadding =60
  191. RightPadding =75
  192. BottomPadding =120
  193. GridlineColor =10921638
  194. LayoutCachedLeft =4422
  195. LayoutCachedTop =1927
  196. LayoutCachedWidth =5272
  197. LayoutCachedHeight =2267
  198. ForeTint =100.0
  199. BackColor =0
  200. BackThemeColorIndex =0
  201. BackTint =100.0
  202. BorderColor =0
  203. BorderThemeColorIndex =0
  204. BorderTint =100.0
  205. HoverColor =3355443
  206. HoverThemeColorIndex =0
  207. HoverTint =80.0
  208. PressedColor =0
  209. PressedThemeColorIndex =0
  210. PressedShade =80.0
  211. HoverForeColor =0
  212. HoverForeTint =100.0
  213. PressedForeColor =0
  214. PressedForeTint =100.0
  215. Shadow =-1
  216. QuickStyle =22
  217. QuickStyleMask =-1
  218. WebImagePaddingTop =1
  219. End
  220. End
  221. End
  222. End
  223. End
  224. CodeBehindForm
  225. Attribute VB_GlobalNameSpace = False
  226. Attribute VB_Creatable = True
  227. Attribute VB_PredeclaredId = True
  228. Attribute VB_Exposed = False
  229. Option Compare Database
  230. Private Sub boutonOK_Click()
  231. DoCmd.Close acForm, Me.name
  232. End Sub
  233. Private Sub Form_Open(Cancel As Integer)
  234. DoCmd.MoveSize 100, 100
  235. End Sub