zf_progress.bas 7.8 KB

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