Discussion :

[Titiso]

Bonsoir,
Quand je clique sur mon checkbox chkFldGrCru, je voudrais qu'il passe en rouge et en gras. Pour le rouge pas de problème, mais je n'arrive pas à le passer en gras, savez vous comment faire ?
chkFldGrCru.Font = Font.Bold ne fontionne pas :

Code :

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

1
2
3
4
5
6
If chkFldGrCru.Checked = True Then
            chkFldGrCru.ForeColor = Color.Red
            chkFldGrCru.Font = Font.Bold
        Else
            chkFldGrCru.ForeColor = Color.Black
End If

[ACIVE_CS]

Bonjour,

J'ai vu cet article :
http://visualbasic.about.com/od/quic...t/fontchg1.htm

Ca peut peut-être t'aider...

A+

[wallace1]

Bonsoir,

Comme ceci :

Code :

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

1
2
3
4
5
6
7
 
If chkFldGrCru.Checked = True Then
            chkFldGrCru.ForeColor = Color.Red
            chkFldGrCru.Font = New Font(FontFamily.GenericSerif, 10, FontStyle.Bold)
        Else
            chkFldGrCru.ForeColor = Color.Black
End If

PS : lorsque tu découvres des nouvelles signatures [ex : New Font(SIGNATURE=Un certain nombre d'arguments)] alors n'hésites à utiliser l'auto-complétion pour affiner ton paramétrage et/ou par simple curiosité.


A+

[Titiso]

Merci,
j'ai déjà essayé ce code mais "Impossible d'utilser 'New' pour une interface" et Font est souligné en bleu !

[clementmarcotte]

Merci,
j'ai déjà essayé ce code mais "Impossible d'utilser 'New' pour une interface" et Font est souligné en bleu !

Reste juste à deviner quel code.

[wallace1]

Reste juste à deviner quel code.

En effet.....

As-tu ajoutés "System.Drawing" dans les références de ton projet (on sait jamais) ??? :Cqfd:

Tu peux faire des captures d'écran ça sera plus parlant pour nous autres.....

[Titiso]

Désolé...ton code : chkFldGrCru.Font = New Font(FontFamily.GenericSerif, 10, FontStyle.Bold)


Oui bien sûr. System.Drawing" est bien dans les références. Voici la capture d'écran :

[WisperDarkness]

Bonjour/Bonsoir,

Essayez comme ceci

Code :

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

1
2
Dim mafont As New Font(FontFamily.GenericSerif, 10, FontStyle.Bold)
Label1.Font = mafont

Remplace juste "label1" par le nom de ta checkbox . d'après un test rapide de mon côté ça fonctionne et je n'est pas eu besoin d'importer les références system.drawing

Bonne journée

[Titiso]

Merci de ta réponse, mais toujours la même erreure, "Impossible d'utilser 'New' pour une interface" et Font est souligné en bleu !

[WisperDarkness]

re - Bonsoir

sur quel ligne l'erreur ? Car selon MSDN Font, constructeur (FontFamily, Single, FontStyle) est un constructeur et dois être appelé par New (on instancie le résultat du constructeur dans une variable)

Je sais pas si j'ai été clair

[wallace1]

re - Bonsoir

(on instancie le résultat du constructeur dans une variable)

Pas nécessairement ! On peut tout aussi bien instancier et affecter dans la foulée sans devoir passer par une variable

Une autre question Titiso :

Ton contrôle Checkbox est-il un userControl ou bien un contrôle d'origine de Microsoft ??
(Survol "Font" de "chkFldGrCru" pour voir les détails du membre et postes le résultat stp)


A+

[Sankasssss]

Bonjour,

(Survol "Font" de "chkFldGrCru" pour voir les détails du membre et postes le résultat stp)

Ou place toi sur Font et appuie sur Maj F2, tu devrais avoir :

Public NotInheritable Class Font
Inherits System.MarshalByRefObject
Membre de System.Drawing
Résumé*:
Définit un format spécifique pour le texte, notamment la police, la taille et les attributs de style.Cette classe ne peut pas être héritée.

[Titiso]

Bonsoir,
Merci de votre aide.
En faisant ce qu'a dit Sankasssss je vois :

Code :

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

1
2
3
4
5
6
7
Public Overridable Property Font As System.Drawing.Font
     Membre de System.Windows.Forms.Control
Résumé*:
Obtient ou définit la police du texte affiché par le contrôle.
 
Valeurs de retour*:
Objet System.Drawing.Font à appliquer au texte affiché par le contrôle.La valeur par défaut est celle de la propriété System.Windows.Forms.Control.DefaultFont.

J'ai une base access, et j'ai fait glisser ce champ de ma source de données sur ma Form.

[tovin]

Bonjour,

Je viens de tester ceci qui marche parfaitement :

Code :

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

1
2
3
4
5
6
 If CheckBox1.Checked = True Then
            CheckBox1.ForeColor = Color.Red
            CheckBox1.Font = New Font("Algerian", 16, FontStyle.Bold)
        Else
            CheckBox1.ForeColor = Color.Black
        End If

sans ajouter quoi que se soit en imports.

[Pol63]

@titiso en remplacant New Font par New System.Drawing.Font ca marche ?

sinon faire clic droit / atteindre la définition sur Font pour voir si tu tombes sur une interface au lieu de la classe font

[sinople]

Probablement qu'il y a un import foireux d'un namespace qui fait que le compilateur se mélange les pinceaux.

La solution donnée par Pol63 devrait résoudre le problème (mais vérifier les imports et les références est un plus)

[Titiso]

Bonsoir,
Merci pour votre aide. En effet la solution de Pol63 fonctionne très bien. Comment puis-je savoir que j'ai un import foireux ?
Merci beaucoup pour votre aide.
Titiso