Форумы HiProg.com - MS ACCESS, VBA, VB

 

Ответить на сообщение

Вернуться к теме

Вы отвечаете на сообщение:

ник: Lukas
а через dot ссылка "прямее" .
На подчиненной форме поэкспериментируем:

Private Sub btnTest_Click()
    Dim start As Long
    Dim i As Integer, j As Integer
    Dim subForm As Form
    
    For j = 1 To 10
        For i = 0 To 30000
            start = i
        Next i
    Next j
    DoEvents
    
    For j = 1 To 10
        start = apiTimeGetTime
        For i = 0 To 10000
            Set subForm = Me.frmChilds.Form
        Next i
        Debug.Print j & " .=", apiTimeGetTime - start
        DoEvents
        
        start = apiTimeGetTime
        For i = 0 To 10000
            Set subForm = Me!frmChilds.Form
        Next i
        Debug.Print j & " !=", apiTimeGetTime - start
        Debug.Print "-------------------"
        DoEvents
    Next j
End Sub

Результаты:

1 .=           128 
1 !=           188 
-------------------
2 .=           141 
2 !=           156 
-------------------
3 .=           109 
3 !=           141 
-------------------
4 .=           109 
4 !=           188 
-------------------
5 .=           125 
5 !=           187 
-------------------
6 .=           125 
6 !=           188 
-------------------
7 .=           125 
7 !=           172 
-------------------
8 .=           125 
8 !=           172 
-------------------
9 .=           141 
9 !=           172 
-------------------
10 .=          110 
10 !=          172 
-------------------


Ваше имя:

Пароль:
Цитировать: [quote][/quote] Код: [code][/code]
Жирный: [b][/b] Наклонный: [i][/i]
URL: [url][/url] 

Сообщение:

 Размер файла не более 50 Кбт. Большие файлы можно размещать на www.slil.ru

Прикрепить:

 

Для вставки смайлов в текст щелкните по значку.