Discussion :

[cabiste007]

bonjour ou bonsoir !!
comme indique le titre (j'ai trop cherché mais sans résultat ) je voudrais ouvrir une nouvelle form dans le même form actuelle (car une form.hide /form.show n'est pas très ergonomique pour les utilisateurs de l'appli)
et merci d'avance

[gnain]

Bonjour,
peut-être qu'une feuille MDI ferait votre affaire
il faut définir Form1 en tant que MDIChild (MDIChild = True)

ou

Utiliser SetParent (Ici Form1 contiendra Form2) :
exemple de code dans Form1 :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Declare Function SetParent Lib "user32" (ByVal hWndChild As Long,
 ByVal hWndNewParent As Long) As Long
 
 Private Sub Command1_Click()
     Dim oForm As Form2
     Set oForm = New Form2
     Call SetParent(oForm.hWnd, Me.hWnd)
     Call oForm.Show
     Set oForm = Nothing
 End Sub

[cabiste007]

en faite c'est pas sa ce que je voulais dire .je voudrais ouvrir une autre passé a une autre form sans quelle change de position ou de dimension

[gnain]

je voudrais ouvrir une autre passé a une autre form sans quelle change de position ou de dimension

en faite, j'ai beaucoup de difficulté à te comprendre.
D'après ce que j'en déduit, à l'ouverture du 2e form,
Est-ce que tu voudrais qu'elle soit à la même position et même grandeur que la première?
si oui il faut ajuster les propriétés top et left puis height et width

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
form2.left = form1.left
form2.top = form1.top
form2.height = form1.height
form2.width = form1.width