VPF::Активизация формы - Форум программистов

mihanik

Дата 6.4.2007, 06:39 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 1
Всего: 109

Привет!!!

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

Так вот.
Форма плавно появляется, а потом прячется под окно Outlook.
Это происходит при первом нажатии на кнопку.
Если окно моей программы достать из-под Outlook, поработать с моей прогой, закрыть окно и опять нажать на кнопку, то всё происходит нормально.
Т.е. при повторном нажатии на кнопку окно появляется и ни куда не прячется.

Вопрос.
Как форму поместить поверх всех остальных форм принудительно?

Текст процедуры ниже...

Код


        Dim EForm As New ExportForm
        Dim I As Integer
        Dim T As DateTime

        ' Если форма уже видна, то ничего не делаем
        If VisibleEForm = True Then Exit Sub

        ' Меняем значение VisibleEForm на противоположное
        VisibleEForm = Not VisibleEForm

        ' Показываем форму на экране, но не сразу, а плавно...
        EForm.Opacity = 0.0
        EForm.Visible = True
        EForm.Show()

        For I = 1 To 100 Step 5
            EForm.Opacity = (I - 1) / 100
            T = Now
            T = T.AddSeconds(0.1)
            While Now() < T
            End While
        Next

Добавлено через 13 минут и 34 секунды
Наверное можно использовать API SetWindowPos...

Но наверное это можно сделать самому...

Это сообщение отредактировал(а) mihanik - 6.4.2007, 06:41

--------------------

Программистами не рождаются, - это родовая травма...