Think I need a COM/VB expert

[SamSpade]

Is what I have below anywhere near correct?

Will DirectCast do a QueryInterface?

Would you do it differently?

Thanks for any help

'Applications can retrieve an ITextDocument pointer from a rich edit
control.

'To do this, send an EM_GETOLEINTERFACE message to retrieve an IRichEditOle
object from a rich edit control.

'Then, call the object's QueryInterface method to retrieve an ITextDocument
pointer.

'Dim mITextDocument As tom.ITextDocument

Dim mREOleInterface As Object

WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE, IntPtr.Zero,
mREOleInterface)

mITextDocument = DirectCast(mREOleInterface, tom.ITextDocument)

[One Handed Man \( OHM#\)]

Direct cast should be able to cast an object to any known type. Have you
tried this ?

Regards - OHM

" SamSpade" <st**************@REMOVEaol.com> wrote in message
news:Os****************@TK2MSFTNGP12.phx.gbl...

Is what I have below anywhere near correct?

Will DirectCast do a QueryInterface?

Would you do it differently?

Thanks for any help

'Applications can retrieve an ITextDocument pointer from a rich edit
control.

'To do this, send an EM_GETOLEINTERFACE message to retrieve an IRichEditOle object from a rich edit control.

'Then, call the object's QueryInterface method to retrieve an ITextDocument pointer.

'Dim mITextDocument As tom.ITextDocument

Dim mREOleInterface As Object

WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE, IntPtr.Zero, mREOleInterface)

mITextDocument = DirectCast(mREOleInterface, tom.ITextDocument)

[One Handed Man \( OHM#\)]

Direct cast should be able to cast an object to any known type. Have you
tried this ?

Regards - OHM

" SamSpade" <st**************@REMOVEaol.com> wrote in message
news:Os****************@TK2MSFTNGP12.phx.gbl...

Is what I have below anywhere near correct?

Will DirectCast do a QueryInterface?

Would you do it differently?

Thanks for any help

'Applications can retrieve an ITextDocument pointer from a rich edit
control.

'To do this, send an EM_GETOLEINTERFACE message to retrieve an IRichEditOle object from a rich edit control.

'Then, call the object's QueryInterface method to retrieve an ITextDocument pointer.

'Dim mITextDocument As tom.ITextDocument

Dim mREOleInterface As Object

WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE, IntPtr.Zero, mREOleInterface)

mITextDocument = DirectCast(mREOleInterface, tom.ITextDocument)

[SamSpade]

"One Handed Man ( OHM#)" <news.microsoft.com> wrote in message
news:OH**************@TK2MSFTNGP11.phx.gbl...

Direct cast should be able to cast an object to any known type.
Is an interface an Object? I mean, SendMessaage probably simply returns
a reference to the interface in mREOleInterface. I don't think, for example,
mREOleInterface.ToString would work ( as it should for all Dotnet objects.)

Or is a Dotnet object variable simply a reference to an interface?

Have you tried this ?

I believe it works. But I also think putting mITextDocument
in the sendmesasage also seems to work.

Dim mITextDocument As tom.ITextDocument
WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE,
IntPtr.Zero, mITextDocument )

What does DirectCast do? Can it cast an integer into a single,
and actually changes the contents of memory. Or does it not change
the contents but causes the variable type to change (like from a
Char to an Byte.)

How would it know when it needs to call QueryInterface?
Maybe that is how it casts an interface?
Thanks

Regards - OHM

" SamSpade" <st**************@REMOVEaol.com> wrote in message
news:Os****************@TK2MSFTNGP12.phx.gbl...

Is what I have below anywhere near correct?

Will DirectCast do a QueryInterface?

Would you do it differently?

Thanks for any help

'Applications can retrieve an ITextDocument pointer from a rich edit
control.

'To do this, send an EM_GETOLEINTERFACE message to retrieve an

IRichEditOle

object from a rich edit control.

'Then, call the object's QueryInterface method to retrieve an

ITextDocument

pointer.

'Dim mITextDocument As tom.ITextDocument

Dim mREOleInterface As Object

WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE,

IntPtr.Zero,

mREOleInterface)

mITextDocument = DirectCast(mREOleInterface, tom.ITextDocument)

[SamSpade]

"One Handed Man ( OHM#)" <news.microsoft.com> wrote in message
news:OH**************@TK2MSFTNGP11.phx.gbl...

Direct cast should be able to cast an object to any known type.
Is an interface an Object? I mean, SendMessaage probably simply returns
a reference to the interface in mREOleInterface. I don't think, for example,
mREOleInterface.ToString would work ( as it should for all Dotnet objects.)

Or is a Dotnet object variable simply a reference to an interface?

Have you tried this ?

I believe it works. But I also think putting mITextDocument
in the sendmesasage also seems to work.

Dim mITextDocument As tom.ITextDocument
WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE,
IntPtr.Zero, mITextDocument )

What does DirectCast do? Can it cast an integer into a single,
and actually changes the contents of memory. Or does it not change
the contents but causes the variable type to change (like from a
Char to an Byte.)

How would it know when it needs to call QueryInterface?
Maybe that is how it casts an interface?
Thanks

Regards - OHM

" SamSpade" <st**************@REMOVEaol.com> wrote in message
news:Os****************@TK2MSFTNGP12.phx.gbl...

Is what I have below anywhere near correct?

Will DirectCast do a QueryInterface?

Would you do it differently?

Thanks for any help

'Applications can retrieve an ITextDocument pointer from a rich edit
control.

'To do this, send an EM_GETOLEINTERFACE message to retrieve an

IRichEditOle

object from a rich edit control.

'Then, call the object's QueryInterface method to retrieve an

ITextDocument

pointer.

'Dim mITextDocument As tom.ITextDocument

Dim mREOleInterface As Object

WinApi.SendMessage(RichTextBox1.Handle, Rtf.EM_GETOLEINTERFACE,

IntPtr.Zero,

mREOleInterface)

mITextDocument = DirectCast(mREOleInterface, tom.ITextDocument)

[Mattias Sjögren]

Is what I have below anywhere near correct?
Looks like it, yes.

Will DirectCast do a QueryInterface?

Yes.

Mattias

--
Mattias Sjögren [MVP] mattias @ mvps.org
http://www.msjogren.net/dotnet/ | http://www.dotnetinterop.com
Please reply only to the newsgroup.