Discussion :

[philo_neo]

bonjour,
Je voudrais pourvoir déclarer un Winform MDI, comme sur les anciennes version de VB, c'est a dire un Winform général avec un menu et surtout un multi-fenètrage des winforms Fils.

Cdlt,
Philippe

[clementmarcotte]

Bonjour,

bonjour,
Je voudrais pourvoir déclarer un Winform MDI, comme sur les anciennes version de VB, c'est a dire un Winform général avec un menu et surtout un multi-fenètrage des winforms Fils.

Cdlt,
Philippe

En principe, tu prends une Form de ton projet, ou une nouvelle Form si le cœur t'en dit, tu ajoutes un menustrip ou un ToolStrip et tu mets la propriété :

Code :

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

Form.IsMdiContainer = true

Pour "installer" des Feuilles enfants dans ton MDIContainer tu t'inspires de cet exemple pris dans l'aide de VB.net

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Sub CreateMyChildForm()
   ' Create a new form to represent the child form.
   Dim child As New Form()
   ' Increment the private child count.
   childCount += 1
   ' Set the text of the child form using the count of child forms.
   Dim formText As String = "Child " + childCount.ToString()
   child.Text = formText
 
   ' Make the new form a child form.
   child.MdiParent = Me
   ' Display the child form.
   child.Show()
End Sub

Si l'envie te prend de fusionner le menu du MDIContainer avec un menu d'un autre form, tu mets les propriétés:

Code :

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

AllowMerge = true

La touche F1 de VB.net, a le même effet que la touche F1 de VB6.

Tu peux aussi jeter un œil par là:

http://msdn.microsoft.com/fr-fr/libr...(v=vs.90).aspx

http://msdn.microsoft.com/fr-fr/libr...code-snippet-1

[philo_neo]

Bonsoir,
Merci de ton message, j'ai mis en pratique la programmation des childwinforms, peut t'ont envisager d'appliquer un thread pour chaque childwinform?
aussi peut t'ont envisager un thread maitre et les fils esclave avec héréditée (parents/fils) ?
Voici le code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Public Class main
    Private Sub CreateMyChildForm()
        ' Create a new form to represent the child form.
        Dim childCount As Integer
        Dim child As New Form()
        ' Increment the private child count.
        childCount += 1
        ' Set the text of the child form using the count of child forms.
        Dim formText As String = "Child " + childCount.ToString()
        child.Text = formText
 
        ' Make the new form a child form.
        child.MdiParent = Me
        ' Display the child form.
        child.Show()
    End Sub
    Private Sub newToolStripMenuItem_Click(ByVal sender As Object, ByVal e As EventArgs) Handles newToolStripMenuItem.Click
 
        Dim f As New ChildForm()
        f.MdiParent = Me
        f.Text = "Form - " + Me.MdiChildren.Length.ToString()
        f.Show()
 
    End Sub
    Private Sub main_Load(sender As Object, e As EventArgs) Handles MyBase.Load
 
    End Sub
 
    Private Sub MenuStrip1_ItemClicked(sender As Object, e As ToolStripItemClickedEventArgs) Handles newToolStripMenuItem.ItemClicked
 
    End Sub
End Class

Cdlt,
Philippe