Code dans menu dynamique

Question

Bonjour,

J'ai créé un menu dynamique qui contient toutes les polices.
Je voudrais changer la police de tout les contrôles sur le formulaire en sélectionnant une police de ce menu, mais je ne sais pas comment faire.

Voici mon code qui crée le menu

Dim colFonts As New InstalledFontCollection()

        Dim Font As FontFamily

        For Each Font In colFonts.Families
            mnuPolice.DropDownItems.Add(Font.Name)
        Next

Merci de votre aide.

Raphaël

Utilisateur anonyme · Answer

Salut,

Grace à une petite fonction récursive :


Private Sub mnuPolice_DropDownItemClicked(ByVal sender As Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles mnuPolice.DropDownItemClicked
  Call ChangeFont(Me, e.ClickedItem.Text)
End Sub

Sub ChangeFont(ByVal Ctrl As Control, ByVal NewFont As String)
  For Each c As Control In Ctrl.Controls
    c.Font = New Font(NewFont, c.Font.Size)
    Call ChangeFont(c, NewFont)
  Next
End Sub


_____________
Kenji

cs_aaa · Answer

Un gros merci pour ton aide ça fonctionne 

Raphaël

Code dans menu dynamique

2 réponses

Votre réponse

Discussions similaires