' and use this back label to position the ' This class displays a progress bar created Private mblnNotSmooth As Boolean ' Display smooth bar by doevents after every update. Private mdteLastUpdate As Date ' Time last updated Private mlblCaption As Access.Label ' progress bar caption Private mlblFront As Access.Label ' label created for front Private mlblBack As Access.Label ' existing label for back Private mobjParent As Object ' parent of back label Private mblnHideCap As Boolean ' display percent complete Private mdblFullWidth As Double ' width of front label at 100% Private mdblVal As Double ' current value of progress bar Private mdblMax As Double ' max value of progress bar Private Const sngOffset As Single = 15 ' For Access 'Private Const sngOffset As Single = 1.5 ' For Excel А вот код clsLblProg: Option Compare Database 'Keep the application responding (optional) SysCmd acSysCmdInitMeter, "working.", rs.RecordCount Rs.MoveLast 'Needed to get the accurate number of records
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. Archives
March 2023
Categories |