Прозрачность

[Морфий]

нужно форму покрыть полупрозрачным серым слоем, чтобы все элементы управления на ней были как бы "выключены". мне кажется можно взять например picbox и задать ей прозрачность, только как это сделать? Как вы думаете?

[_Мика_]

http://bbs.vbstreets.ru/viewtopic.php?t=12206

[Морфий]

Это работает, ТОЛЬКО если указывать HWND ФОРМЫ, а мне надо сделать прозрачным не всю форму, а только элемент управления на ней.

[_Мика_]

Незнаю....по мойму это не возможно! А зачем это нужно

[Морфий]

нужно форму покрыть полупрозрачным серым слоем, чтобы все элементы управления на ней были как бы "выключены".

[_Мика_]

А не проще тогда все элементы сделать .Enabled=False

[Морфий]

не проще, во первых, у меня куча элементов управления, не являющихся массивом, а во вторых когда надо будет добавлять новые кнопки, каждый раз придется прописывать их выключение в коде, а это меня очень угнетает

[Юстас]

Прозрачность не применима к дочерним окнам (в т.ч. и пикчербоксам). Только к окнам верхнего уровня. Можно создать ещё одну форму с прозрачностью, без заголовка, и повесить её над первой. Но это как-то убого.

А для кучи элементов есть такая штука:
For Each ctl In Me.Controls

[_Мика_]

Прозрачность не применима к дочерним окнам (в т.ч. и пикчербоксам). Только к окнам верхнего уровня. Можно создать ещё одну форму с прозрачностью, без заголовка, и повесить её над первой. Но это как-то убого.

А для кучи элементов есть такая штука:
For Each ctl In Me.Controls

Воть именно

[KDima]

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

For Each ctrl In Me.Controls
Set ctrl = Nothing
Next
DrawAlphaButton("А сладо самому на форме нарисовать?")
End


Функицию DrawAlphaButton могу привести, но за отдельную плату