Проблема с загрузкой

[DmB]

Добрый день всем!

У меня возникла такая проблема:

Пишу программку, в неё TreView управляет загрузкой нескольких фреймов, типа нажал на Nodу открылся Frame + надо выбрать данные из двух таблиц Б.Д.

В чём суть проблемы:

Загрузка происходит очень медленно 10-15 сек. на P-4, кроме того жрёт много памяти. Чувствую дело не в базе данных, там вроде всё нормально.

Подскажите, как можно организовать проект в моём случае.

[tyomitch]

Код-то покажи, а то телепаты в отпуске

[DmB]

Sorry

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


Dim i As Integer

Private Sub Form_Load()
  Call WhichFrame
  Frame(0).Visible = True
End Sub

Function WhichFrame()
    For i = 0 To 8
        Frame(i).Visible = False
    Next i
End Function

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
   SelectCodeItem Node.Key
End Sub

Private Sub SelectCodeItem(ByVal nNodeKey As String)
If nNodeKey = "N1" Then
  Call WhichFrame
  Frame(0).Visible = True

ElseIf nNodeKey = "N2" Then
  Call WhichFrame
  Frame(1).Visible = True
.......
End If
End Sub   

[XPraptor]

А где код данных которые во фрамы грузятся? Или ты думаешь что у тебя медленно свойства Visible на пне четвертом обрабатываются?

Да и в процедуре SelectCodeItem(ByVal nNodeKey As String)
ByVal не нужно пихать, что то ты по значению любиш параметры пересылать, оно уже этим тормоза делает. И здесь:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
SelectCodeItem Node.Key
End Sub
не надо сразу передавать в процедуру, лучше так сделай:
Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Dim strKey$
strKey=Node.Key
Call SelectCodeItem(strKey)
End Sub