Как в VB сделать паузу

[Nikolka]

Тут вообще-то 2 вопроса назрело:

1. Как в VB сделать паузу x миллисекунд без таймера, в QBasic помню было что-то Sleep. А как это сделать в наше время (VB6)

2. Надо чтобы БД загружалась и уже с ней можно было работать из Form_Load. VB ругается. А при простом нажатии кнопки всё ок.

я наверно уже всех достал своими вопросами за 3 часа.

[ALX_2002]

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

sleep 100

[A.A.Z.]

2) Я делал так: ставил таймер с Interval = 1 и Enabled = True и делал в нем все, что хочу, а потом, в конце процедуры Timer1_Timer(), ставил Timer1.Enabled = False

[ALX_2002]

2 A.A.Z: Ну тк просят то без таймера

[A.A.Z.]

Без таймера 1) просят

[Nikolka]

А 2 вопрос никто не знает?

За первый спасибо.

[GM]

Еще насчет первого:

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

Private Declare Function GetTickCount Lib "kernel32" () As Long
Function Delay(ms As Long)
Dim thetime As Long
thetime = GetTickCount + ms
  Do While GetTickCount < thetime
                 DoEvents
             Loop
End Function


Чуть другой эффект.

[ANDLL]

2) Используй событие Form_Activate:

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

sub Form_activate()
static nOnce as boolean
if not nOnce  then
   nOnce =true
   'делаем...
end if
end sub


[ALX_2002]

2 A.A.Z

[A.A.Z.]

Ну и ладно! Мой способ тоже имеет право на жизнь