Thread: How do i accomplish this?

Code:

Private Sub Command1_Click()
    Dim lStyle As Long
    
    lStyle = GetWindowLong(dhwnd, GWL_STYLE)
    lStyle = lStyle And (Not MY_WS_DOCK)
    SetWindowLong dhwnd, GWL_STYLE, lStyle
    
    SetParent dhwnd, Picture1.hwnd
    MoveWindow dhwnd, 0, 0, Picture1.ScaleWidth / Screen.TwipsPerPixelX, Picture1.ScaleHeight / Screen.TwipsPerPixelY, True

End Sub

Public Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetParent Lib "user32" (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long

Public Declare Function MoveWindow Lib "user32" (ByVal hwnd As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal bRepaint As Long) As Long

Public Const WS_CAPTION = &HC00000 'Window with a title bar and border
Public Const WS_THICKFRAME = &H40000 'Create a window with a sizing border.
Public Const WS_SYSMENU = &H80000 'Create a window with a system menu on its
'Title bar. Must be combined with WS_CAPTION
Public Const MY_WS_DOCK = WS_CAPTION Or WS_THICKFRAME Or WS_SYSMENU
Public Const GWL_STYLE = (-16)

That will remove the window border for destinator, should be same principle.

Aha Thanks Frodo, is this based on garrys (confused) code?

Originally Posted by Danceheaven

Aha Thanks Frodo, is this based on garrys (confused) code?

yes

Originally Posted by frodobaggins

yes

Thought so...

Hi frodo i tried that code, it didnt work
it basically did the same thing as the code i was already using just displayed the vid or visuals in my pic box but with the frames still attached around the window, i managed to loose the frames by simple offsetting the image by - 10 to the left and - 20 above then strching the image past the pciture box as the box by + 20 and + 40 respectivly i know this is not the best way but it works do you know of any other ways?

Originally Posted by Danceheaven

Hi frodo i tried that code, it didnt work
it basically did the same thing as the code i was already using just displayed the vid or visuals in my pic box but with the frames still attached around the window, i managed to loose the frames by simple offsetting the image by - 10 to the left and - 20 above then strching the image past the pciture box as the box by + 20 and + 40 respectivly i know this is not the best way but it works do you know of any other ways?

Well I was assuming the frame was a window border. I haven't actually seen what you are referring to.

Aha this is very true frodo,
ok rather than me explaing it if you have a copy of winamp installed change the skin to winamp classic so that original looking skin that winamp came supplied with and then run either the video window or the visualisation windows and thats the borders / frames i want to loose around those windows.

I would stick to the way you are doing it.

Well it does work that way but.. its cheating a bit, dont you think.
i was speaking to confused last night and he said the coyote did it with out this shifting around trick im using plus he used an overlay or someway of exiting full screen visuals by tapping top right section of the viduals to exit