Бегущая строка

Найти: на

Задержка формы на экране.

При загрузке стартовой формы, когда нужно ее некоторое время задержать на экране, я делаю это при помощи API - функции, а не при помощи пустого цикла For ... Next. На сколько я знаю, где-то вычитал, этот цикл загружает процессор , что мешает работать в многозадачной среде, а функция API - нет.
Делается это так :

В модуле программы описываем API - функцию

Declare Sub Sleep Lib "kernel32" (ByVal milliseconds As Long)

В Form_Load стартовой формы пишем следующий код, где Form1 является стартовой.

Private Sub Form_Load()
Form1.Show
DoEvents
Sleep 2000
Unload Form01
MDIForm1.Show
End Sub

Sleep 2000 - дает задержку приблизительно на 3-4 секунды.

Чтобы сделать форму с рамками, но без заголовка, нужно изменить следующие её свойства:
Caption = ""
ControlBox = False

Работая с окном MDI, я сталкнулся со следующей проблемой: мне нужно было обратиться к активному окну, а так как создавал я их из ондого и того же, то и были они всего лишь элементами массивов. Приходилось вести индекс и считать их, присваевать тэгам их индексы и т.д. Вобщем СВЕРХнеудобно! Эх... как я долго мучился пока не заглянул в Help. Сам совет: если Вам нужно обратиться к активному окну в окне-родителе MDI используйте ссылку на активную форму ActiveForm. Например:

ActiveForm.Caption = "Я активное окно!"

И тогда неважно что там за окно будет активным, ему будет присвоен заголовок "Я активное окно!".

ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ