ورود

View Full Version : نحوه استفاده از Progctrl.ocx


safikhani
شنبه 05 اسفند 1385, 10:12 صبح
از دوستانی که از این ocx استفاده می کنند خواهش می کنم جهت استفاده من را کمک کنند یا به این آدرس اطلاعات بفرستند hamid_safikhani@yahoo.com

با تشکر
mehran_337
شنبه 05 اسفند 1385, 14:12 عصر
ظاهرا این یک اکتیوایکس برای progressbar هست . همون نواری که میزان پیشرفت یک پردازش رو انجام می دهد.
باید پروپرتیز value داشته باشد که میزان پیشرفت در ان قرار می گیرد.
مثلا در یک حلقه scan می خواهیم درصد پیشرفت عملیاتی را نشان دهیم
scan ...


thisform.progress.value =( recno()/reccount()) * 100
rezamim
دوشنبه 07 اسفند 1385, 12:22 عصر
این در واقع ProgressBar control هست که در فایل MSComctl.ocx قرار داره .
برای مثال میتونی از کد زیر کمک بگیری


PUBLIC oform1

oform1=NEWOBJECT("form1")
oform1.Show
RETURN


DEFINE CLASS form1 AS form


DoCreate = .T.
Caption = "Form1"
Name = "Form1"


ADD OBJECT olecontrol1 AS olecontrol WITH ;
Top = 228, ;
Left = 24, ;
Height = 12, ;
Width = 312, ;
Name = "Olecontrol1", ;
OleClass = "MSComctlLib.ProgCtrl.2"



ADD OBJECT command1 AS commandbutton WITH ;
AutoSize = .T., ;
Top = 84, ;
Left = 139, ;
Height = 27, ;
Width = 96, ;
Caption = "Start progress", ;
Name = "Command1"


PROCEDURE command1.Click
thisform.olecontrol1.objECT.Value = 0
FOR i = 1 TO 100
thisform.olecontrol1.objECT.Value = i
FOR y = 1 TO 1000000
endfor
ENDFOR
ENDPROC


ENDDEFINE


از این آدرس:
http://www.foxite.com/archives/progress-bar-0000108489.htm