Message Queues

[Neil Stevens]

Hi,

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i
need to implement this kind of message loop as part of an execution yield, i
dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Thanks in advance
Neil

[CJ Taylor]

Look in your help under messagequeues, and message class. For instance, its
already intercepted for you in most cases with the overridable function
WndProc from the Control class. Check out that and it may be a good start.

HTH,
CJ
"Neil Stevens" <ne**********@b lueyonder.co.uk > wrote in message
news:uP******** *****@tk2msftng p13.phx.gbl...

Hi,

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i need to implement this kind of message loop as part of an execution yield, i dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Thanks in advance
Neil

[CJ Taylor]

Look in your help under messagequeues, and message class. For instance, its
already intercepted for you in most cases with the overridable function
WndProc from the Control class. Check out that and it may be a good start.

HTH,
CJ
"Neil Stevens" <ne**********@b lueyonder.co.uk > wrote in message
news:uP******** *****@tk2msftng p13.phx.gbl...

Hi,

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i need to implement this kind of message loop as part of an execution yield, i dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Thanks in advance
Neil

[Armin Zingler]

"Neil Stevens" <ne**********@b lueyonder.co.uk > schrieb

I would like to implements a message queue much like i used to in vb6
as below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in
VB.NET, i need to implement this kind of message loop as part of an
execution yield, i dont want to use DoEvents() because of the
propblems i have had with using it in the past and this method has
proved the best in VB6 for yilding execution.

Out of interest: When do you need this?
--
Armin

[Armin Zingler]

"Neil Stevens" <ne**********@b lueyonder.co.uk > schrieb

I would like to implements a message queue much like i used to in vb6
as below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in
VB.NET, i need to implement this kind of message loop as part of an
execution yield, i dont want to use DoEvents() because of the
propblems i have had with using it in the past and this method has
proved the best in VB6 for yilding execution.

Out of interest: When do you need this?
--
Armin

[Sin]

> I would like to implements a message queue much like i used to in vb6 as

below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i need to implement this kind of message loop as part of an execution yield, i dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Give us more details on what you're really trying to do.

The fact there are threads and that these threads can be priorized in .NET
changes the whole picture. If you want to yield to another application just
lower your main threads priority, or higten the other app's thread, etc...

You don't give us enough info to really know what you want to do so I might
be totally off...

Alex.

[Sin]

> I would like to implements a message queue much like i used to in vb6 as

below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i need to implement this kind of message loop as part of an execution yield, i dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Give us more details on what you're really trying to do.

The fact there are threads and that these threads can be priorized in .NET
changes the whole picture. If you want to yield to another application just
lower your main threads priority, or higten the other app's thread, etc...

You don't give us enough info to really know what you want to do so I might
be totally off...

Alex.

[Neil Stevens]

What i have in the application is a form that opens a web document, i have a
method that sets the document property of the web browser control. The html
document has an amount of processing that has to be completed before it can
be shown to the user, so the form is hidden the web browser controls
document property is set to the html page and the html page starts
processing itself.

What i have then is a Yield method which processing the message queue so
that the application doesnt lock up while the html document is processing,
when the document is loaded then the method which sets up the document
property can continue to set up the form sizes and finally show the form.

As i said i have had some problems with the DoEvents method and personally
dont like this for of yielding execution, i have found that during a
DoEvents execution pops off to some other part of the application and i want
to prevent this until the form has fully loaded and been shown. The
following code is an example of the code i have

{Method that navigates to a page in a web browser control}
Set wb = New WebBrowser
wb.Navigate htmlPageToLoad

Dim hDoc as HTMLDocument
Set hDoc = wb.Document
If hDoc Is Nothing Then
Exit Function
End If

Do
Yield()
Loop Until (LCase$(hDoc.Re adyState) = "complete" Or LCase$(hDoc.Rea dyState)
= "interactiv e") And wb.Busy = False

{Returns hDoc if it is not nothing}

' This is the yield method, it process any post message on the stack - not
keyboard or mouse messages
Public Sub Yield()
Dim m As MSG

While PeekMessage(m, 0, 0, 0, PM_REMOVE Or PM_QS_POSTMESSA GE Or
PM_QS_PAINT)
TranslateMessag e m
DispatchMessage m
Wend
End Sub

I hope this makes things a little more clearer, i have other parts of the
code where this type of method is used.

I also use the PostMessage to post a close message from a handling UI class
to a form

Public Sub PostCloseMessag e(ByVal hWnd As Long)
Posts a WM_CLOSE message to the target hWnd
PostMessage hWnd, WM_CLOSE, 0, 0
End Sub

And would like to know if there is an equivalant .NET Framework method.

Thanks for your time in advance
Neil

"Sin" <br****@hotmail .com> wrote in message
news:NY******** ************@we ber.videotron.n et...

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET,

i

need to implement this kind of message loop as part of an execution

yield, i

dont want to use DoEvents() because of the propblems i have had with

using it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Give us more details on what you're really trying to do.

The fact there are threads and that these threads can be priorized in .NET
changes the whole picture. If you want to yield to another application

just lower your main threads priority, or higten the other app's thread, etc...

You don't give us enough info to really know what you want to do so I might be totally off...

Alex.

[Neil Stevens]

What i have in the application is a form that opens a web document, i have a
method that sets the document property of the web browser control. The html
document has an amount of processing that has to be completed before it can
be shown to the user, so the form is hidden the web browser controls
document property is set to the html page and the html page starts
processing itself.

What i have then is a Yield method which processing the message queue so
that the application doesnt lock up while the html document is processing,
when the document is loaded then the method which sets up the document
property can continue to set up the form sizes and finally show the form.

As i said i have had some problems with the DoEvents method and personally
dont like this for of yielding execution, i have found that during a
DoEvents execution pops off to some other part of the application and i want
to prevent this until the form has fully loaded and been shown. The
following code is an example of the code i have

{Method that navigates to a page in a web browser control}
Set wb = New WebBrowser
wb.Navigate htmlPageToLoad

Dim hDoc as HTMLDocument
Set hDoc = wb.Document
If hDoc Is Nothing Then
Exit Function
End If

Do
Yield()
Loop Until (LCase$(hDoc.Re adyState) = "complete" Or LCase$(hDoc.Rea dyState)
= "interactiv e") And wb.Busy = False

{Returns hDoc if it is not nothing}

' This is the yield method, it process any post message on the stack - not
keyboard or mouse messages
Public Sub Yield()
Dim m As MSG

While PeekMessage(m, 0, 0, 0, PM_REMOVE Or PM_QS_POSTMESSA GE Or
PM_QS_PAINT)
TranslateMessag e m
DispatchMessage m
Wend
End Sub

I hope this makes things a little more clearer, i have other parts of the
code where this type of method is used.

I also use the PostMessage to post a close message from a handling UI class
to a form

Public Sub PostCloseMessag e(ByVal hWnd As Long)
Posts a WM_CLOSE message to the target hWnd
PostMessage hWnd, WM_CLOSE, 0, 0
End Sub

And would like to know if there is an equivalant .NET Framework method.

Thanks for your time in advance
Neil

"Sin" <br****@hotmail .com> wrote in message
news:NY******** ************@we ber.videotron.n et...

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET,

i

need to implement this kind of message loop as part of an execution

yield, i

dont want to use DoEvents() because of the propblems i have had with

using it in the past and this method has proved the best in VB6 for yilding
execution.

Could somebody provide some example code of how to do this in VB.NET or
point me to a good resource on the internet.

Give us more details on what you're really trying to do.

The fact there are threads and that these threads can be priorized in .NET
changes the whole picture. If you want to yield to another application

just lower your main threads priority, or higten the other app's thread, etc...

You don't give us enough info to really know what you want to do so I might be totally off...

Alex.

[Herfried K. Wagner [MVP]]

* "Neil Stevens" <ne**********@b lueyonder.co.uk > scripsit:

I would like to implements a message queue much like i used to in vb6 as
below:-

dim myMsg as MSG
while (PeekMessage(my Msg, hWnd, 0, 0))
if myMsg.Msg = WM_QUIT Then
End
end if
TranslateMessag e(myMsg)
DispatchMessage (myMsg)
wend
(I know the syntax probably isnt correct)

Is there a way that i can implements something similar to this in VB.NET, i
need to implement this kind of message loop as part of an execution yield, i
dont want to use DoEvents() because of the propblems i have had with using
it in the past and this method has proved the best in VB6 for yilding
execution.

I think you can use the same code in VB.NET, but why do you need that?
Maybe there is a better, managed solution.

--
Herfried K. Wagner [MVP]
<URL:http://dotnet.mvps.org/>