Может быть кто-нибудь сталкивался с ... ?! / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Может быть кто-нибудь сталкивался с ... ?!

2 сообщений из 2, страница 1 из 1

Может быть кто-нибудь сталкивался с ... ?!

#32088607

LCD

Гость

Всем привет!

Столкнулся с одной проблемой и пока не могу найти ответ. Может быть кто-нибудь уже встречался, тогда помогите с советом!

Короче есть клиент, в котором к родительской форме (MDIForm) присабачена куча отпрысков. Дочерние формы можно вызывать через меню родительской, к которому добавлены "горячие клавиши" (в общем стандартный случай).

Сама проблема в следующем:

Когда я запускаю проект на выполнение из VB 6.0 (VS 6.0), все работает на ура. После того, как проект скомпилирован и запускаешь уже экзешник, происходить следующее:

если пытаешься открыть какое-нибудь окно, которое было ранее открыто, а поверх него потом открыто другое (не модальное), не происходит ровным счетом ничего.

В меню прописаны команды типа:

Код: plaintext

1.
2.
3.

...
ShowForm frmImport
...

И далее:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.

Declare Function FindWindowEx Lib  "user32"  Alias  "FindWindowExA"  _
    (ByVal hWnd1 As Long, ByVal hWnd2 As Long, ByVal lpsz1 As String, _
    ByVal lpsz2 As String) As Long

Declare Function BringWindowToTop Lib  "user32.dll"  (ByVal hWnd As Long) As Long

Public Sub ShowForm(MyForm As Form)

    Dim lHWnd As Long

    lHWnd = FindWindowEx(frmMDI.hWnd,  0 ,  "MDIClient" , vbNullString)
    lHWnd = FindWindowEx(lHWnd,  0 ,  "ThunderFormDC" , MyForm.Caption)
    With MyForm
        If .Visible Then
            lHWnd = BringWindowToTop(lHWnd)
        Else
            .Show
        End If
    End With

End Sub

Как побороть эту ошибку?
Заранее спасибо, LCD.

...

Рейтинг:

0 / 0

10.01.2003, 09:49

| Ответить | Цитировать | Написать

Может быть кто-нибудь сталкивался с ... ?!

#32089105

SilencerID

Участник

Откуда: Киммерия

Сообщения: 141

Рейтинг: 0 / 0

>> Dim lHWnd As Long

lHWnd = FindWindowEx(frmMDI.hWnd, 0, "MDIClient", vbNullString)
lHWnd = FindWindowEx(lHWnd, 0, "ThunderFormDC", MyForm.Caption)
With MyForm
If .Visible Then
lHWnd = BringWindowToTop(lHWnd)
==========================================================

Ты уверен?
А проще нельзя? Например просто сделать ее активной, свойством формы.

...

Рейтинг:

0 / 0

10.01.2003, 20:42

| Ответить | Цитировать | Написать

2 сообщений из 2, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Может быть кто-нибудь сталкивался с ... ?!

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

Отправляя сообщение, я выражаю свое согласие с правилами форума и принимаю пользовательское соглашение.

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=421&tid=2171492]:	0ms
get settings:	10ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	28ms
get topic data:	13ms
get forum data:	3ms
get page messages:	43ms
get tp. blocked users:	2ms
others:	269ms

total:	390ms