Winform MDI (winform principal avec menu déroulant)

Version imprimable

04/08/2014, 16h38
philo_neo

Winform MDI (winform principal avec menu déroulant)

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

Bonjour,

Citation:

Envoyé par 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

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:

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:

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:

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

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:

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