===[ Программизмы ]===

#post-id: 4161-23-51
#original-date: 17.12.2011 Sat
#original-time: 11:51 PM
#original-day:  4161
#original-host: WinXP Home SP3 (Build 2600)

Заинтересовалась безбожным торможением Password Maker при старте. 
Оказалось, что тормоза связаны с добавлением элементов в комбобоксы. 
Поэксперементировала, и выяснила, что в листбоксы элементы 
добавляются гораздо быстрее. Например, при добавлении 1300 элементов 
в комбобокс, это занимает примерно 12 секунд, в то время как 
в листбокс - 250 милисекунд.

Почему - БП.

#upd: Решила вместо комбобоксов заюзать UpDown Control. И тут же 
      родился костыль - в VB6 без этого никак =_=

Оказалось, что при привязывании сего контрола к текстбоксу, тот 
автоматом меняет размер. Можно было бы назначать ручками, но мне 
лень, поэтому пишем такой вот момент:

> Private Sub PushPopSize(ByRef TextBox As TextBox, _
>                         ByRef UpDown As UpDown, _
>                         ByVal Pop As Boolean)
>   Static OriginalLeft As Long
>   Static OriginalWidth As Long
>   
>   If Not Pop Then
>     OriginalLeft = UpDown.Left
>     OriginalWidth = TextBox.Width
>   Else
>     UpDown.Left = OriginalLeft
>     TextBox.Width = OriginalWidth
>   End If
> End Sub

А используем его так:

>   PushPopSize Me.txtNumSections, Me.udNumSections, False
>   Me.udNumSections.BuddyControl = Me.txtNumSections.Name
>   Me.udNumSections.BuddyProperty = "Text"
>   Me.udNumSections.Min = 1
>   Me.udNumSections.Max = 10
>   Me.udNumSections.Value = 2
>   PushPopSize Me.txtNumSections, Me.udNumSections, True

Мда.

#upd: Обновила. Выложу по приезду на сайте, если сейчас никому 
      не нужно.