Discussion :

[thierry007]

BOnjour a tous

Dans mon petit projet, Je but sur le changement de police, taille, bold,...

Dans ma form, j'ai un bouton (Bold), (Underline ), (Italic), un combobox pour la police et un pour la taille

lorsque j'ai un mot ou plusieurs dans ma sélection, je souhaite pouvoir le mettre en gras souligné
Quand je clic sur Bold , ok il le met en gras , mais quand je clic sur Underline, il le souligne bien, mais retire le gras, hors je souhaiterais conserver les 2 voir 3 avec Italic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub BtnItalic_Click(sender As Object, e As EventArgs) Handles BtnItalic.Click
 
                With TxttexteMateriel
 
                        If TxttexteMateriel.SelectionFont.Italic = True Then
                                .SelectionFont = New Font(TxttexteMateriel.SelectionFont, FontStyle.Italic = False)
                        Else
                                .SelectionFont = New Font(TxttexteMateriel.SelectionFont, FontStyle.Italic)
                        End If
 
 
                End With
End Sub

[mactwist69]

Hello.

Petite pré-question : Du coup, ton bouton gère deux statuts : Activé ou Désactivé ? Genre, Bold activé, le bouton change de couleur ?
Sinon, un checkbox ferait plus l'affaire (fonctionnellement) qu'un bouton. Si tu gères deux états de boutons, c'est plus jolie, mais il faut le coder.

Et puis pour changer la police, tu as donc une procédure qui cherches les paramètres activé (bold etc + combobox) ?
Et c'est là que tu changes la police dynamiquement ?

[thierry007]

Bonjour mactwist69

Bien pensé , j'opterais pour checkestate, mais cela résoudrait-il le problème étant donné que je regarde déjà si le texte sélectionné est Bold ou pas

Code :

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

 If TxttexteMateriel.SelectionFont.Bold = False Then

[thierry007]

En fait il y a pas mal d'exemple sur google mais si je mets du texte en gras et qu'en suis je veux le souligner, il me retire le gras

[chrismonoye]

Bonsoir,
si j'ai bien compris :
si "gras" est détecté, avec l'opérateur "or", ça devrait fonctionner :

Code :

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

FontStyle.Bold Or FontStyle.Italic

[mactwist69]

Non mais en fait, tu utilises SelectionFont, ce qui ne te permet de ne prendre qu'une seule option.

Donc je pensais plutôt à ce que tu crées un procédure qui va regarder tous tes controls et calculer le font.

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
Public Sub SetNewFont 
 
   Dim _FontFamily as FontFamily = Me.ComboBox_Family.SelectedValue
   Dim _FontSize as Single = Me.Combobox_Taille.SelectedValue
 
   Dim _FontStyle as FontStyle
 
   If Me.CheckBox_Bold.Cheked Then
       _FontStyle = FontStyle.Bold
   Else
       _FontStyle = FontStyle.Regular
   End If
 
   If Me.CheckBox_ITalic.Cheked Then
        'Le Or a pour affet d'aditionner les deux valeurs
        _FontStyle =  _FontStyle or FontStyle.Italic
    End If
 
      'Meme truc pour le souligné
 
   'Et maintenant, tu appliques :
   Me.TxttexteMateriel.Style.Font = New Font(_FontFamily, _FontSize, _FontStyle)
 
 
End Sub

J'ai pas tester, j'ai mis des noms de controls pour que ça colle avec l'idée.

[thierry007]

Oups, sorry pour le retard mais fin d'année oblige

Merci bien pour l'aide , je regarde a cela cette semaine

encore merci de votre participation a mon développement intellectuel

[ZenZiTone]

Quand je clic sur Bold , ok il le met en gras , mais quand je clic sur Underline, il le souligne bien, mais retire le gras, hors je souhaiterais conserver les 2 voir 3 avec Italic

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
  Private Sub BtnItalic_Click(sender As Object, e As EventArgs) Handles BtnItalic.Click
 
                With TxttexteMateriel
 
                        If TxttexteMateriel.SelectionFont.Italic = True Then
                                .SelectionFont = New Font(TxttexteMateriel.SelectionFont, FontStyle.Italic = False)
                        Else
                                .SelectionFont = New Font(TxttexteMateriel.SelectionFont, FontStyle.Italic)
                        End If
 
 
                End With
End Sub

Bonjour thierry007,

Il est normal que le texte ne soit plus gras si tu soulignes car tu fais un "New Font".

L'idéal ici serait de donner une valeur à un propriété "souligne" (par exemple) puis appeler un updateFont(). QUelque chose comme :

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
 
Private Sub BtnItalic_Click(sender As Object, e As EventArgs) Handles BtnItalic.Click
              Underline = Not Underline
              UpdateFont()
End Sub
 
Private Sub UpdateFont()
            Dim f As New Font()
            If Underline = true Then
                f.FontStyle.Underline = true
            End If
           'Faire de même pour Bold, Size, etc...
 
           TxttexteMateriel.SelectionFont = f
End Sub