Не прорисовывается CmdButton

[Space]

вместо CmdButton показывает белый треугольник иногда и никакой реакции на клик... (Style=Graphical)

[Alprog]

Во время чего это происходит? Опиши подробнее, что происходит.

[Space]

обсмеяться, упасть, не подняться Треугольник... Допрограммился... Прямоугольник белый после загрузки формы. При том не всегда. Пару раз нормально показывает, потом когда глюк, так он и остаётся при повторной загрузке формы.

[Alprog]

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

[Williams]

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

В таком случае DoEvents в помощь.

[Space]

цилов и особых задержек в Form_Load нет. Также в конце процы вызываю Cmd1.Refresh - не помогает. Глюк появляется после клика на кнопке - закрытие - открытие формы, причём на любой кнопе формы - кнопка становится прозрачной. Попробую сменить MaskColor.

[Viper]

цилов и особых задержек в Form_Load нет. Также в конце процы вызываю Cmd1.Refresh - не помогает. Глюк появляется после клика на кнопке - закрытие - открытие формы.

Таки код в студию!

[Space]

таки виноват MaskColor=&H00C0C0C0& - непонятно почему (UseMaskColor=False).

[Space]

Вот код. Назначение процедуры SetBackColorControl (вызывается в таймере) - устанавливает BackColor множеству контролов при получении фокуса, без явного кода в GotFocus и LostFocus контролов. Кликните на "кликни", потом на "Нажми", закройте Form2, затем опять на "кликни" - cmd1 прозрачна...

[Space]

гг. Никого не впечатлило...

[Viper]

Space, код - ужос-ужос-ужос! Это во-первых, а во-вторых - решение:

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

Private Sub Frm2_Show()
Dim p As New Form2
    p.Show vbModal, Me
End Sub

Должно быть ровно так, и никак иначе. Все. Почему так? Предлагаю подумать.

[Space]

а чё такого ужосного в коде? Код строен и элегантен А почему так, а не иначе? Никаких мыслей не возникает...

[Space]

Viper поумничал и испарился. И никто ничего не знает

[Space]

1. Viper, а как ты будешь применять метод Hide к форме "p"???
2. Дошло, что Form2 не выгружается полностью, или что-то не подчищается без Set Form2 = Nothing после Form2.Show. Но почему??? Перебор форм показывает, что форма не загружена.

[Viper]

1. Viper, а как ты будешь применять метод Hide к форме "p"???

Элементарно. Сохрани это p на нужном тебе уровне (модуля или глобально) и применяй p.Hide.

2. Дошло, что Form2 не выгружается полностью, или что-то не подчищается без Set Form2 = Nothing после Form2.Show. Но почему??? Перебор форм показывает, что форма не загружена.

Форма не загружена, но объект формы судя по всему существует. Попробуй Debug.Print "Объект формы уничтожен" в Form_Terminate поставить. Увидишь, когда уничтожается ссылка (или не увидишь).

[Space]

Элементарно. Сохрани это p на нужном тебе уровне (модуля или глобально) и применяй p.Hide.

Но тогда глюк вернётся Всё таки Set Form2 = Nothing необходим

[Space]

да, Form_Terminate не происходит... а почему???

[Viper]

да, Form_Terminate не происходит... а почему???

Значит продолжает жить ссылка

[Space]

а почему, собственно, происходит глюк? Он не должен происходить в любом случае.