Передача значения

[Sirik]

Допусти есть некая функция или процедура в классе, по времени довольно продолжительная.
Во-время исполнения которой надо узнать на каком проценте исполнения она находятся.
Как это можно сделать более красиво?

ЗЫ1. Можно через свойство класса, но прийдётся поставить таймер на главной форме, что не есть хорошо.
ЗЫ2. Можно как-то через АдресОф, но как?

[_Мика_]

А может в этой процедуре есть за что ухватиться? Ну типа какие то изменящиеся цифры.. или что вроде этого...

[Sirik]

Конечно есть, куда уж без них!
Но как их "вытащить" из главной процедуры во время выполнения?
Через иаймер не пойдёт

[A.A.Z.]

2 Sirik, а нельзя в эту процедуру добавить параметр, например, св-во Value прогрессбара? И тогда процедура туда сама будет писать нужное значение, а мы - видеть результат! Типа

Код: Выделить всё

Sub Sub1(ByVal Param1 As Any, ..., ByRef ToWhere As Long)
...
ToWhere = ToWhere + 1
...
ToWhere = ToWhere + 1
...
...
End Sub

[Sirik]

2 A.A.Z.

Ок, смотри:

Код: Выделить всё

...
'Вот вызов функции
Res = MyFunction (Parap as Long, ToWhere As Long)
'как получить изменения переменной ToWhere во время исполнения MyFunction ???
...

Public Function MyFunction (Parap as Long, ByRef ToWhere As Long)
'''тело функции
End Function


[vvs_adm]

A.A.Z же тебе написал... а куда вставлять увеличение progressbar.value - это уже зависит от твоей функции. Например она в цикле выполняет какой-нить подсчет :

Код: Выделить всё

   
Public Function MyFunction (Parap as Long, ByRef ToWhere As Long)
   
   dim nCount as Integer
   
   progressbar.Value=0
   progressbar.Max=MAXCOUNT
   
   For nCount = 0 to MAXCOUNT
      считает что-нить
      progressbar.Value=progressbar.Value+1
   Next nCount

End Function


[Dzhon]

А может создать переменную в классе специально для этих целей и изменять (и отслеживать) ее значение в процессе работы процедуры или функции, а по окончании обнулять. Т.Е. можно будет одну переменную использовать во всех необходимых тебе процедурах и функциях.

[Konst_One]

Я обычно делаю примерно так:

Код: Выделить всё

Dim  mvarProgressChange as Long

Friend Property Get ProgressChange() as Long
ProgressChange=mvarProgressChange
end Property

Friend Property Let ProgressChange(byval Value as Long)
mvarProgressChange =Value
MyPorgressBar.Value=Value
end Property

...

Public Function MyFunction (Parap as Long)
'''тело функции
Dim i as long

i=1
ProgressChange=i
....

i=10
ProgressChange=i

....
i=100
ProgressChange=i

....
End Function



[tyomitch]

А я бы сделал событие... Это как-то более "объектно ориентированно".

[Konst_One]

дело вкуса, иногда и с событием делаю, по настроению

[Sirik]

2 vvs_adm
Ты думаешь я что идиот? Я же написал код должен быть красивым: я не хочу иметь дело с прогрессами в теле процедуры.

2 Тёмыч
Напиши пример

[alibek]

Можно сделать разновидность гибрида.
К примеру, процедура вызывается из формы frmMAIN, в которой имеется процедура для отслеживания прогресса:

Код: Выделить всё

'frmMAIN

Option Explicit

Public Sub ProgressChange(ByVal Stage As Long)
...
End Sub

...

Private Sub cmdStartProcess_Click()
DoLongProcess 1, 2, "3", Me, "ProgressChange"
End Sub


И есть твоя процедура:

Код: Выделить всё

Public Sub DoLongProcess(Arg1, Arg2, Arg3, Optional CallbackObject As Object, Optional ByVal CallbackProc As String)
Dim I As Long
For I = 1 To 10000
  ...
  If Not CallbackObject Is Nothing Then
    If Len(CallbackProc) > 0 Then
      CallByName CallbackObject, CallbackProc, I
    End If
  End If
Next I
If Not CallbackObject Is Nothing Then
  If Len(CallbackProc) > 0 Then
    CallByName CallbackObject, CallbackProc, -1
  End If
End If
End Sub

[tyomitch]

2alibek: а чем это лучше простого события? Имхо даже хуже - позднее связывание и т.п...

[alibek]

Разве для события не нужен класс? А это можно использовать в модуле.
К тому же, это общий случай. В частном случае можно использовать заранее определенные Callback*.

[A.A.Z.]

2 vvs_adm
Ты думаешь я что идиот? Я же написал код должен быть красивым: я не хочу иметь дело с прогрессами в теле процедуры.

А-а-а, меня никто не понял!

Код: Выделить всё

'У нас есть Label1
Sub Command1_Click()
Call MySub("abc", 123, ..., Label1.Caption)
End Sub

Sub MySub (ByVal Param1$, ByVal Param2&, ..., ByRef ToWhere As Any)
ToWhere = 1
...
ToWhere = ToWhere + 1
...
'И т.д.
End Sub

А вообще, слушайте Тёмыча (не меня, другого) - он дело говорит

[tyomitch]

Разве для события не нужен класс? А это можно использовать в модуле.

Согласен. но у Sirik-а уже есть класс., так что мудрить незачем.

2AAZ: имхо работать не будет - свойство нельзя передать по ссылке, передастся его копия.

[GSerg]

Ага.
Работать будет в NET, там эту фишку сделали