ник: Lukas
Ну, если Вы не видите принципиальной разницы, я Вам ее покажу.
Тестовая функция:
Public Declare Function apiTimeGetTime Lib "winmm.dll" Alias "timeGetTime" () As Long
Public Function Test()
Dim i As Long, j As Integer
Dim start As Long
Dim resp As Integer
For j = 1 To 10
start = apiTimeGetTime
For i = 1 To 10000
resp = GetImageList().ListImages.Count
Next i
Debug.Print j, "GetImageList", apiTimeGetTime - start
start = apiTimeGetTime
For i = 1 To 10000
resp = Forms("frmImageList").ImageList01.Object.ListImages.Count
Next i
Debug.Print j, "frmImageList", apiTimeGetTime - start
Next j
End Function
|
Результаты:
1 GetImageList 15
1 frmImageList 1344
2 GetImageList 16
2 frmImageList 828
3 GetImageList 0
3 frmImageList 953
4 GetImageList 0
4 frmImageList 953
5 GetImageList 16
5 frmImageList 953
6 GetImageList 15
6 frmImageList 860
7 GetImageList 0
7 frmImageList 953
8 GetImageList 16
8 frmImageList 953
9 GetImageList 0
9 frmImageList 953
10 GetImageList 15
10 frmImageList 954
|
Надеюсь теперь принципиальная разница заметней?
И это я только спросил, сколько в коллекции рисунков.