- 'DECLARATION API
- Private Declare Function SetParent Lib "user32" _
- (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
-
- Public Function FormWithinForm(oParent As Object, _
- oChild As Object)
-
- 'Cette fonction permet d'afficher un formulaire dans un autre formulaire.
- 'Il est toutefois possible d'utiliser cette fonction pour afficher une sorte de contrôle enfant dans un container.
-
- On Error Resume Next
-
- SetParent oChild.hwnd, oParent.hwnd
- FormWithinForm = (Err.Number = 0 And Err.LastDllError = 0)
-
- End Function
-
'DECLARATION API
Private Declare Function SetParent Lib "user32" _
(ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long
Public Function FormWithinForm(oParent As Object, _
oChild As Object)
'Cette fonction permet d'afficher un formulaire dans un autre formulaire.
'Il est toutefois possible d'utiliser cette fonction pour afficher une sorte de contrôle enfant dans un container.
On Error Resume Next
SetParent oChild.hwnd, oParent.hwnd
FormWithinForm = (Err.Number = 0 And Err.LastDllError = 0)
End Function