| Вопрос: прозрачность формы | Добавлено: 23.08.04 15:54 |
Автор вопроса:  Артём Л. | ICQ: 280044491 |
|
сделал битмап с красным фоном.
создал форму с transkey = Red. в конструкторе добавил setstyle(ControlStyles.SupportsTransparentBackColor, True) setstyle(ControlStyles.Opaque, True) setstyle(ControlStyles.DoubleBuffer, True) setstyle(ControlStyles.AllPaintingInWmPaint, True) setstyle(ControlStyles.UserPaint, True) при старте заметно видно как форма сначала мигает, а потом прорисовывается (без прозрачности такого эффекта нет). Форма рисуетя прозрачной только при установленном FormBorderStyle = None. при следующем алгоритме Public Sub Main() Application.EnableVisualStyles() Application.DoEvents() Dim spl As New frmStartUp 'форма с рисукнком spl.Show() spl.TopMost = True spl.Refresh() Dim frm As New frmMain Application.Run(frm) End Sub форма сначало появляется с прозрачностью, а после того как появляется форма frmMain прозрачность пропадает. Что за глюки? |
| Ответы | Всего ответов: 1 |
|
Номер ответа: 1 Автор ответа:  Black Dragon ICQ: 321186096 Вопросов: 30 Ответов: 347 |
Web-сайт: Профиль | | #1 | Добавлено: 28.08.04 23:13 |
| Не знаю... с этим не сталкивался | ||
Страница: 1 |