Discussion :

[Faladin]

Bonjour

C'est pas mon meilleur titre...

Il existe en VB une fonction qui permet de grossir/réduire les dimensions de boutons, textes et polices, etc. Un peu comme un zoom sur une page web ou les fonctions d'accessibilité pour handicapé sous windows?

Ou faut moi même que je code quelque chose qui sur un clic fait tout grossir dans tous mes formulaires?

[nikoko34]

Bonjour,

Pour les fontes et les couleurs (back et fore), tu peux t'économiser du travail en définissant la propriété au niveau de la form qui contient tous tes contrôles. La modif est alors automatiquement répercutée sur l'ensemble des contrôles de ta form.

Pour la taille du bouton c'est un autre problème...
Tu peux faire une fonction générique appelée dans le new de ta form qui parcours l'ensemble des contrôles et qui, si c'est un bouton, modifie sa taille (peut s'appliquer aux autres types de contrôle).

[Faladin]

Bonjour,

Pour les fontes et les couleurs (back et fore), tu peux t'économiser du travail en définissant la propriété au niveau de la form qui contient tous tes contrôles. La modif est alors automatiquement répercutée sur l'ensemble des contrôles de ta form.

C'est quelle propriété?

Pour la taille du bouton c'est un autre problème...
Tu peux faire une fonction générique appelée dans le new de ta form qui parcours l'ensemble des contrôles et qui, si c'est un bouton, modifie sa taille (peut s'appliquer aux autres types de contrôle).

Ouais j'ai commencé quelque chose du genre présentement, j'voulais m'éviter du travail mais c'est pas si long je crois...

Si y'a d'autres opinions sur le sujet...

[nikoko34]

Ben Font, BackColor et Forecolor, dirait Monsieur de la Palisse !

[Faladin]

Ah ok j'ai vu...je savais pas que la propriété Font pour un formulaire modifiait tout le formulaire.

Merci j'comprends là!

Je vais donc continuer sur cette voie, avec une boucle qui scannera tous les boutons, combobox, checkbox, etc.

[Danyel]

Ah ok j'ai vu...je savais pas que la propriété Font pour un formulaire modifiait tout le formulaire.

Ca permet de definir la/les valeurs par defaut pour l'ensemble des controles du dit formulaire.

[Faladin]

Par contre si mon contrôle est à l'intérieur d'un groupbox, il n'est pas modifié par cette variable...C'est normal ou je fais un truc bizarre?

[Faladin]

Bon vu mon dernier message, voici mon code. Je ne fais que changer la font des objets et leur grosseur est automatiquement modifié avec celle-ci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
        Dim min_size As Single = 10
        Dim max_size As Single = 20
        Dim _font As Font = _form.Font
        If _form.Font.SizeInPoints > max_size Then
            MsgBox("Maximum size obtained!", MsgBoxStyle.Information, "Error...")
            _form.Font = New Font(_font.FontFamily, max_size)
        ElseIf _form.Font.SizeInPoints < min_size Then
            MsgBox("Minimum size obtained!", MsgBoxStyle.Information, "Error...")
            _form.Font = New Font(_font.FontFamily, min_size)
        Else
            _form.Font = New Font(_font.FontFamily, _font.SizeInPoints + Convert.ToSingle(My.Settings.size_modifier))
            check_control(_form.Controls)
        End If

La fonction check_control(_form.Controls) scan chaque item et modifie leur grosseur de font. De plus, s'il rencontre un groupbox, c'est récursif. Donc tout est scanné.