Codejock Developer Community : Getting the child handle

Getting the child handle : Or if you'd prefer to...

Mon, 21 Mar 2011 07:12:00 +0000

Author: Xander75
Subject: 18076
Posted: 21 March 2011 at 7:12am

Or if you'd prefer to use an API, you can do this with one line of code in the "NavigateButtonClick" event...


Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, _
ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long

Const WM_CLOSE = &H10

Private Sub Form_Load()
    wndTab.ShowCloseItemButton = xtpTabItemButtonSelected
    wndTab.InsertItem 0, "Example Tab", Form2.hwnd, 0
    wndTab.InsertItem 1, "Example Tab", Form3.hwnd, 0
End Sub

Private Sub wndTab_NavigateButtonClick(ByVal Id As Long, Cancel As Variant)
    PostMessage wndTab.Selected.Handle, WM_CLOSE, 0&, 0&
End Sub

Getting the child handle : Hi,Use the following code...

Mon, 21 Mar 2011 06:25:15 +0000

Author: Xander75
Subject: 18076
Posted: 21 March 2011 at 6:25am

Hi,

Use the following code to resolve the issue you have of closing the child form.


Private Sub wndTab_NavigateButtonClick(ByVal Id As Long, Cancel As Variant)
    Dim i As Long

    For i = Forms.Count - 1 To 0 Step -1
        If Forms(i).hWnd = wndTab.Selected.Handle Then
            Unload Forms(i)
        End If
    Next
End Sub

Getting the child handle : This is what I am doing... is...

Sat, 19 Mar 2011 22:06:18 +0000

Author: eSynaptic
Subject: 18076
Posted: 19 March 2011 at 10:06pm

This is what I am doing... is there an easier way?

Private Sub wndTab_NavigateButtonClick(ByVal Id As Long, Cancel As Variant)
On Error Resume Next
Dim i As Long
Dim szTag As String
Dim oFrm As Form

szTag = wndTab.Selected.Tag

'find the tag name
For i = Forms.Count - 1 To 1 Step -1
    DoEvents

    If Forms(i).Tag = szTag Then
      Unload Forms(i)
    End If
Next

End Sub

Getting the child handle : I am dynamically loading a form...

Sat, 19 Mar 2011 21:23:50 +0000

Author: eSynaptic
Subject: 18076
Posted: 19 March 2011 at 9:23pm

I am dynamically loading a form as a tab item. When I hit the close button on the tab, how can I get the handle of the form so I can unload it when the tab closes?

example:

'load the form as a tab item
With wndTab

Set nTab = .InsertItem(0, "Example Tab", form1.hWnd, 0

End With

Now... using the NavigateButtonClick event, how can I get the loaded form to unload it?

Thank you!!

Jason