Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Как пользоваться ProgressBar (из коллекции ACtiveX)

15 views
Skip to first unread message

Sergey Ponomarenko

unread,
Nov 18, 1998, 3:00:00 AM11/18/98
to
Привет All !!!

Не подскажешь ли как пользоваться ProgressBar из Коллекции ActiveX.
Смотрел скудный Help по нему, но НИЧЕГО не понял (наверное у меня
начались трудности с понималкой)

Помогите, кто может !..


A.Pinigin

unread,
Nov 19, 1998, 3:00:00 AM11/19/98
to
Sergey Ponomarenko wrote:

Положи на форму этот ActiveX (Olecontrol1) и ссылаться на него
ThisForm.Olecontrol1.value = KKKK
KKKK ты должен расчитывать сам в относительных цифрах от 0 до 100
Что не понятно пиши.
Александр
a...@bp2.baltkom.lanet.lv

Dmitry N. Letun

unread,
Nov 19, 1998, 3:00:00 AM11/19/98
to
ThisForm.ADDOBJECT("ProgressBar","OLEControl","MSComctlLib.ProgCtrl.2")
&& ComCtrl32 v6.xx (Win98)
ThisForm.ADDOBJECT("ProgressBar","OLEControl","Comctl.ProgCtrl.1")
&& ComCtrl32 5.xx
ThisForm.ProgressBar.Top = 48
ThisForm.ProgressBar.Left = 84
ThisForm.ProgressBar.Height = 25
ThisForm.ProgressBar.Width = 373
ThisForm.ProgressBar.Scrolling = 1
ThisForm.ProgressBar.Visible = .T.

step = 1
Do while step < 100
ThisForm.ProgressBar.Value = step
step = step + 1
enddo

------------------------
Dmitry N. Letun
http://ldn.pssr.ru

Sergey Ponomarenko

unread,
Nov 20, 1998, 3:00:00 AM11/20/98
to

Sergey Ponomarenko wrote:

> Привет All !!!
>
> Не подскажешь ли как пользоваться ProgressBar из Коллекции ActiveX.
> Смотрел скудный Help по нему, но НИЧЕГО не понял (наверное у меня
> начались трудности с понималкой)
>
> Помогите, кто может !..

Разобрался !!!
Там просто было написан на VB (я смотрю, что за процедуры такие).
Например:
Добавим в Form элемент ProgressBar и присвоим ему имя ProgressBar1 тогда
для Command1 этой формы пишем в методе Click:

LOCAL i, iCounter

STORE 300 TO iCounter && Можно сколько угодно

THISFORM.ProgressBar1.Min=1
THISFORM.ProrgessBar1.Max=i
THISFOPM.ProgressBar1.Value=THISFORM.ProgressBar1.Min
THISFORM.ProgressBar1.Visible=.T. && Нсли нужно

FOR i=1 TO iCounter
... && Здесь могут бать ВАШИ команды
THISFORM.ProgressBar1.Value=iCounter
* А уж как рисовать и маштабируемость ProgressBar1 подсчитает САМ
ENDFOR

THISFORM.ProgressBar1.Visible=.F.
THISFORM.ProgressBar1.Value = THISFORM.ProgressBar1.Min

0 new messages