En form inni en form, hvordan få til dette?

[Gjest Slettet-aNZFa3]

Jag har sett i noen programmer hvor det er en form inni en form, og den formen kan bare dras til kantene av hovedformen, hvordan får jeg til dette. Bruker VB.NET med Microsoft Visual Basic s008 Express Edition, hvis det har noe å si.

[ze5400]

Les om MDI...

 

 

Edit. En form skal være MDI Parent.

Deretter setter du de andre til MDI childeren.

 

Når hovedformen er MDI Parent, åpner du mdi childeren slik:

 

Dim MDIChilderen As Formendin = New Formendin()

Formendin.MdiParent = Me

Formendin.Show()

 

Styggt rett for at det er en del syntaksfeil der, men pytt sann

Endret 26. august 2007 av ze5400

[Wubbable]

Nytt prosjekt -> Project > Add windows form > MDI parent form

[Merko]

Du Kan kan gjøre følgende.

 

Lag en Picturebox (Du kan selvfølgelig bruke formen i stedenfor..)

 

Private Declare Function SetParent Lib "user32" _  
    (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long  
 
Private Sub Form_Load()  
    SetParent(Form2.hWnd, Picture1.hWnd) 
    Form2.Show
End Sub

[ze5400]

Du Kan kan gjøre følgende.

 

Lag en Picturebox (Du kan selvfølgelig bruke formen i stedenfor..)

 

Private Declare Function SetParent Lib "user32" _  
    (ByVal hWndChild As Long, ByVal hWndNewParent As Long) As Long  
 
Private Sub Form_Load()  
    SetParent(Form2.hWnd, Picture1.hWnd) 
    Form2.Show
End Sub

9433609[/snapback]

 

 

Sa han han brukte VB6?

 

Nei

[GeirGrusom]

Hvis du vil ha samme resultat som vbPro i .NEt, må du skru av egenskapen TopLevel og bruke Control.Controls.Add(Formen)

 

f.eks.

 

Public Class ThisForm
 Inherits System.Windows.Forms.Form

 Public Sub AddChild()
   Dim childForm As System.Windows.Forms.Form
   childForm = New System.Windows.Forms.Form
   childForm.Text = "Hello World!"
   childForm.TopLevel = False
   Me.Controls.Add(childForm)
 End Sub
End Class