Embedding a window in VB6 - Help

pioneer · 05-09-2004, 01:49 PM

Hello, can someone give me some help on how to embedd a window into vb. im playing with the destinator sdk and im trying to get it to embedd into my project.

thanks, Tom

Enforcer · 05-09-2004, 02:28 PM

Upon doing a

, one finds http://www.mp3car.com/vbulletin/show...&highlight=VB6

pioneer · 05-09-2004, 02:44 PM

hmm, seems i dont use the right words to search with

Jeep · 05-26-2004, 08:12 AM

Test this in VB6. Need to have Destinator 2 SDK installed!

Laidback · 05-26-2004, 08:23 AM

Quote: Originally Posted by Jeep

Test this in VB6. Need to have Destinator 2 SDK installed!

That's not embedded, I can move Destinator around

Jeep · 05-26-2004, 08:33 AM

Yes in a way, you can move Destinator inside the picturebox. You have do edit Destinator inf file and set Destinators window to the same size as the picturebox. Inf file is here: C:\PowerLOC\Destinator\Common\Interface\Destinator .Inf Look for "D" ("D,650,412,640") (with,height,osk keyboard with)

Laidback · 05-26-2004, 08:37 AM

Quote: Originally Posted by Jeep

Yes in a way, you can move Destinator inside the picturebox. You have do edit Destinator inf file and set Destinators window to the same size as the picturebox. Inf file is here: C:\PowerLOC\Destinator\Common\Interface\Destinator .Inf Look for "D" ("D,650,412,640") (with,height,osk keyboard with)

Yeah, sorry. I meant you can still see the title bar and move it. you could also get the titlebar height in VB and move Destinator to picture1.top - titlebar height, same for borders etc

Confused · 05-26-2004, 11:59 AM

This is some code for embedding Destinator into a Visual Basic 6 (VB6) application.

(Sorry, just trying to put as many key-words into that first sentence as possible for anyone searching later!!

)

Here is code to embed Destinator 2 into VB :

Make two timers, don't enable either. Give them whatever interval you want.

Make a Picture Box called pctDest (or change the code below

) on your form and place it where you want.

Then put this code in your project.

Code:

Public Sub Form_Load()

tmrLoadDest.Enabled = True

End Sub


Private Sub tmrLoadDest_Timer()

Set Dest2 = New Dest
Dest2.CreateDestinatorWindow 4

Tmr_LaunchTimeOut.Enabled = False
Tmr_LaunchTimeOut.Enabled = True
myhandle = 0
While myhandle = 0 And Tmr_LaunchTimeOut.Enabled = True
    myhandle = FindWindowByName("*Destinator*")
DoEvents
Wend
Tmr_LaunchTimeOut.Enabled = False

If myhandle = 0 Then Exit Sub

CurrentStyle = GetWindowLong(myhandle, GWL_STYLE)
CurrentStyle = CurrentStyle And Not WS_DLGFRAME
CurrentStyle = CurrentStyle And Not WS_SYSMENU
CurrentStyle = CurrentStyle And Not WS_THICKFRAME
CurrentStyle = CurrentStyle And Not WS_MINIMIZEBOX
CurrentStyle = CurrentStyle And Not WS_MAXIMIZEBOX

SetWindowLong myhandle, GWL_STYLE, CurrentStyle
SetParent myhandle, pctDest.hWnd
ShowWindow myhandle, SW_MAXIMIZE
tmrLoadDest.Enabled = False

End Sub

Little bit of help with that code was from coyote

Garry

pioneer · 06-22-2004, 03:10 PM

hmm, i cant seem to get the code to work

Multiplayer · 06-22-2004, 04:25 PM

I've tried it aswell. But it gives an error in the line "Set Dest2 = New Dest". Could anyone please explain what this line, is soposed to do.