En Visual dBase 7.x existen barras de proceso en el lenguaje incorporadas, (aunque no las he probado) pero en Visual dBASE 5.x no conozco ninguna que funcione bien. No obstante te envío una técnica, quizás simple, pero efectiva para mostrar en muchos casos la barra de proceso.
Consta de dos partes:
El form barra de progreso, que puede ser uno similar a éste (cópialo y guárdalo con el nombre Barrapro.WFM)
* Formulario BarraPro.WFm
* Ficha usada para indicar progreso
*
** END HEADER -- no elimine esta línea*
* Generado el 20/09/2001
*
parameter bModal
local f
f = new BarraProForm()
if (bModal)
f.mdi = .F. && ficha no MDI
f.ReadModal()
else
f.Open()
endif
CLASS BarraProForm OF FORM
this.Maximize = .F.
this.Width = 57.666
this.Minimize = .F.
this.OnLeftDblClick = {||;Form.Close()}
this.Text = "Progreso de la Operación..."
this.Left = 30.5
this.MDI = .F.
this.Top = 11.7646
this.ColorNormal = "W/W"
this.MousePointer = 1
this.TopMost = .T.
this.AutoCenter = .T.
this.Sizeable = .F.
this.Height = 8.1758
this.SysMenu = .F.
DEFINE TEXT TEX1 OF THIS;
PROPERTY;
Width 21,;
Text "Proceso en curso :",;
Left 1.5,;
Top 4.5879,;
ColorNormal "0x3d4896/BtnFace",;
Height 0.7637
DEFINE TEXT TEXT_PORCEN OF THIS;
PROPERTY;
Width 5.4,;
FontBold .T.,;
Text "0%"
