Конференция VBStreets

**Space** » 19.02.2007 (Пн) 17:19

У меня не работает прием данных от сервера сокетом клиента, если у клиента в Form2 Load включить MsgBox. Почему?

**Space** » 19.02.2007 (Пн) 23:15

Что за глюки? Первый раз зашёл в топик, не увидел добавленного приложения. Добавил приложение снова, появилось два. Приложение добавлено, кто не видит, я не виноват!

**EUGY** » 20.02.2007 (Вт) 3:33

DataArrival - это наверное какой-то метод какого-то ActiveX
И пока форма не загружена (msgbox висит модально) даже таймер работать не будет

**EUGY** » 20.02.2007 (Вт) 3:49

' и если уж очень хочется
Private Declare Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long

Private Sub Form_Load()
MessageBox Me.hwnd, "Load Form2", "Load Form2", 0
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''MsgBox "Load Form2"
End Sub

**Space** » 22.02.2007 (Чт) 5:06

EUGY писал(а):DataArrival - это наверное какой-то метод какого-то ActiveX
И пока форма не загружена (msgbox висит модально) даже таймер работать не будет

Form2 - это у меня окно авторизации, и оно само модальное, вызывается из Form1 и сокет лежит на Form1 и сокет работает, хотя Form_Load для Form1 не завершён ещё. Разве форма считается не загруженой, если не завершился обработчик Form_Load?

**EUGY** » 22.02.2007 (Чт) 20:03

Эксперимент: поместить на форму UserControl и посмотреть при загрузке формы....

Private Sub UserControl_Initialize()
Debug.Print Ambient.UserMode 'Error: Client Site Not Avaliable
End Sub

**EUGY** » 22.02.2007 (Чт) 20:30

А по поводу уровня модальности, не углубляясь в теорию (здесь есть более продвинутые товарищи), считаю что:

'в этом коде
Private Sub Form_Load() ' Load Form1
Form2.Show 1
End Sub

вторая форма организует свой цикл сообщений в приложении,
и этого НЕ происходит при

Private Sub Form_Load() ' Load Form1
MsgBox "qwerty"
End Sub

**GSerg** » 22.02.2007 (Чт) 20:40

Чё-то я не улавливаю суть дискуссии.
MsgBox - обычная функция, и пока она не вернётся, будет висеть всё приложение.
Что не так?

**EUGY** » 22.02.2007 (Чт) 20:41

Все так, но надо же разжевать...

**EUGY** » 22.02.2007 (Чт) 20:51

MessageBox в отличие от MsgBox позволяет выбрать свою модальность
MB_APPLMODAL и поэтому предпочтительнее в случае описанном выше...

**GSerg** » 22.02.2007 (Чт) 20:57

EUGY, ты о чём? :roll:

**tyomitch** » 22.02.2007 (Чт) 20:59

MB_APPLMODAL не в тему. MsgBox тоже вызывает MessageBox(MB_APPLMODAL).

Другое дело, что на время отображения родного MsgBox рантайм VB, действительно, искуственно тормозит свой message loop.

**EUGY** » 22.02.2007 (Чт) 21:01

to SERG:
Не поленись, открой пример Space и вместо MsgBox поставь MessageBox.

**EUGY** » 22.02.2007 (Чт) 21:05

to tyomitch:
может ошибся с константами (MB_),
но ведь и я говорю о message loop

**tyomitch** » 22.02.2007 (Чт) 21:35

Константы вообще не при чём.

**EUGY** » 22.02.2007 (Чт) 21:51

tyomitch писал(а):Константы вообще не при чём.

проверил, все так.

**Space** » 23.02.2007 (Пт) 2:12

вообще-то сокет отказывается работать после того, как MsgBox отработал (даже не во время его вызова).

**EUGY** » 23.02.2007 (Пт) 16:32

Я и хотел донести мысль, что пока какая-нибудь форма не организует цикл сообщений (а это происходит в модальных формах после Form_load) ocx будет считаться не загруженным.

**tyomitch** » 23.02.2007 (Пт) 16:44

2Space: вероятнее всего, события во время отображения MsgBox просто съедаются, а не скапливаются в очереди. (Сейчас проверил -- так оно и есть.)

2EUGY: кем он будет считаться незагруженным, и при чём здесь сообщения, интересно?

**EUGY** » 23.02.2007 (Пт) 17:27

tyomitch писал(а):2EUGY: кем он будет считаться незагруженным, и при чём здесь сообщения, интересно?

по-видимому, будет считаться незагруженным самим OCX (Client Site Not Avaliable).
А вот кем съедаются события:wink:
P.S. Сами сообщения тут совершенно не причем, но вот объект формы
сначала инициирует Form_load в VB, потом, в рантайм: ~BeginModalState~ и while (GetMessage...).
То есть, до цикла объект формы тоже считается не загруженным.

**tyomitch** » 23.02.2007 (Пт) 17:46

EUGY писал(а):
tyomitch писал(а):2EUGY: кем он будет считаться незагруженным, и при чём здесь сообщения, интересно?

по-видимому, будет считаться незагруженным самим OCX (Client Site Not Avaliable).

И при чём здесь сообщения, интересно?

**EUGY** » 23.02.2007 (Пт) 17:48

Схоластика на тему "Кем считается незагруженной сама форма"?

**tyomitch** » 23.02.2007 (Пт) 17:57

Нет, ты всё-таки не в ту сторону пошёл в своих рассуждениях.
Сообщения съедаются не потому, что кто-то не успевает начать цикл, а потому, что их намеренно съедают во время отображения MsgBox. Если перенести всё дело из Form_Load в Command1_Click, ничего не изменится.

**EUGY** » 23.02.2007 (Пт) 18:01

Да уж. факт.
А это где-то документировано?

**Space** » 23.02.2007 (Пт) 20:49

Тёмыч, я уже молчу во время работы MsgBox. Сокет не работает после того, как MsgBox закрылся (сервером отправляешь данные после отработки MsgBox в клиенте) и сокет клиента не принимает данные и вообще потом сокет ничего не принимает!

**Space** » 26.02.2007 (Пн) 0:07

Ау, люди!!!!!!! ? А чем MsgBox отличается от вызова модальной формы? Если заменить этот MsgBox вызовом своей модальной фомы типа MsgBox (BorderStyle=vbFixedDialog), сокет работает!

**Amed** » 26.02.2007 (Пн) 0:36

tyomitch писал(а):Сообщения съедаются не потому, что кто-то не успевает начать цикл, а потому, что их намеренно съедают во время отображения MsgBox.

Вот такое отличие

Конференция VBStreets

не работает DataArrival сокета

не работает DataArrival сокета

Кто сейчас на конференции