VPF::Проблема с <форма>.show - Форум программистов

DrBoom

Дата 23.2.2008, 13:39 (ссылка)

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

Загрузка ...

QIP VB-SDK Developer

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

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

Проблема следующая, есть код:

Код


 Dim x As Form1

 x.Show vbModeless

или

Код


 Dim x As Form1

 x.visible=True

Проект ActiveX DLL. Вызывваю DLL-ку в простом приложении, написанном на vb, форма начинает появлятся, выполняется следующая строчка кода и исчезает, причем из памяти не выгружается, а в прилажении ниписанном на delphi даж не успевает появиться, но в памяти есть...

Причем, если ее попытаться отобразить модально, работает... Можете помочь, как можно "зафиксировать" форму, может через API есть способ, по её hwnd???

Это сообщение отредактировал(а) DrBoom - 23.2.2008, 17:29

BorisVorontsov

Дата 24.2.2008, 11:38 (ссылка)

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

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

А где именно вызывается вышеуказанный код?
Вообще, было бы неплохо привести пример, где это все проявляется.

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

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

DrBoom

Дата 24.2.2008, 15:42 (ссылка)

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

Загрузка ...

QIP VB-SDK Developer

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

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

Module.dll: Class="Plugin"

Код


 Option Explicit

 Sub Demo()
  Form1.Show 
    'не хочет появляться, если только модально=( а это мне не нежно!
 End Sub

Some.DLL на Delphi:

Код


 x := CreateOLEObject('Module.Plugin');
 x.Demo;

В целом проблема еще хуже, пишу плагин для проги на Delphi, код закрыт у неё, есть только SDK. dll-ка на delphi, содержит код, предоставляемый в sdk, Module.dll - основной код, поскольку я более предпочитаю vb///
Всё работает, но когда вызываю Form1.Show программа вылетает, ставлю on error resume next перед этим, работает, но не появляется, ставлю vbmodal, и с и без обхода ошибки появляется... чудеса просто, что можете посоветовать?

Добавлено @ 15:45
Так же пробывал запустить module.dll-ку из exe, на vb, оно появлялось и тут же исчезало%)

Это сообщение отредактировал(а) DrBoom - 25.2.2008, 14:02

DrBoom

Дата 24.2.2008, 22:15 (ссылка)

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

Загрузка ...

QIP VB-SDK Developer

Профиль
Группа: Участник
Сообщений: 83
Регистрация: 19.2.2006

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

Проблему решил, долгие поиски по WinAPI привели меня к следующей функции:

Код


Public Declare Function SetWindowPos Lib "user32" _
 (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, _
  ByVal x As Long, ByVal Y As Long, _
  ByVal cx As Long, ByVal cy As Long, _
  ByVal wFlags As Long)  As Long

Однако всё равно, было бы интерсно иные варианты решения проблемы, думаю они есть smile

Добавлено @ 22:15
smile

Это сообщение отредактировал(а) DrBoom - 24.2.2008, 22:19

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »