Microsoft 365 Titres des champs directement en TextBox ou ComboBox (plus besoin de Labels) V4

[Piment]

@fanch55, @patricktoulon et @Dudu2.
Messieurs bonsoir.
J'ai utilisé votre ressource, et je voudrais savoir où modifier les lignes de codes pour modifier les couleurs des titre de champs.
Bravo pour cette ressources.
Merci à vous

 

[ChTi160]

Bonsoir ,
en attendant l'un des Créateur de cette Ressource !
je pense que ce que tu cherches(modifer les Couleurs) ce trouve au Niveau de la Déclaration des TextBox !

Private Sub UserForm_Activate()
    cls.SetMasktTitle TextBox11, "Nom:"
    cls.SetMasktTitle TextBox12, "Prénom:", vbBlue, vbYellow
    cls.SetMasktTitle TextBox13, "sexe:"
    cls.SetMasktTitle TextBox14, "Age:"
    cls.SetMasktTitle TextBox15, "Téléphone:"
    cls.SetMasktTitle TextBox16, "Adresse:"
    cls.SetMasktTitle TextBox17, "Complement adresse:"
    cls.SetMasktTitle TextBox18, "Code postal:"
    cls.SetMasktTitle TextBox19, "Ville:"
    cls.SetMasktTitle TextBox20, "email:"
End Sub

on peut voir l'indication de Couleur comme a ce Niveau

'SetMasktTitle(Ref As Object, Xtitle As String, Optional F_Color& = vbBlack, Optional B_Color& = vbWhite)
cls.SetMasktTitle TextBox12, "Prénom:", vbBlue, vbYellow

F_Color& et B_Color& pour Forecolor et BackColor

a voir donc
Jean marie

 

[Piment]

Bonsoir ,
en attendant l'un des Créateur de cette Ressource !
je pense que ce que tu cherches(modifer les Couleurs) ce trouve au Niveau de la Déclaration des TextBox !

Private Sub UserForm_Activate()
    cls.SetMasktTitle TextBox11, "Nom:"
    cls.SetMasktTitle TextBox12, "Prénom:", vbBlue, vbYellow
    cls.SetMasktTitle TextBox13, "sexe:"
    cls.SetMasktTitle TextBox14, "Age:"
    cls.SetMasktTitle TextBox15, "Téléphone:"
    cls.SetMasktTitle TextBox16, "Adresse:"
    cls.SetMasktTitle TextBox17, "Complement adresse:"
    cls.SetMasktTitle TextBox18, "Code postal:"
    cls.SetMasktTitle TextBox19, "Ville:"
    cls.SetMasktTitle TextBox20, "email:"
End Sub

on peut voir l'indication de Couleur comme a ce Niveau

'SetMasktTitle(Ref As Object, Xtitle As String, Optional F_Color& = vbBlack, Optional B_Color& = vbWhite)
cls.SetMasktTitle TextBox12, "Prénom:", vbBlue, vbYellow

a voir donc
Jean marie

Salut Jean-Marie.
Comment tu vas?
Merci de ton retour.
Après t'avoir lu, j'ai regardé de plus près, et j'ai trouvé où modifier le code

    With BuiltInFieldName
        .SetControlTitle Me.Cbx_Quartier, "Quartier", vbWhite
        .SetControlTitle Me.Txt_NomPrenom, "Nom Prénom°", vbWhite
        .SetControlTitle Me.Txt_Adresse, "Adresse", vbWhite
        .SetControlTitle Me.Txt_NumTel, "Numéro Tél:", vbWhite
        .SetControlTitle Me.Txt_Notes, "Annotations:", vbBlue
        
    End With

Merci à toi.
Par contre si tu savais comment lui dire de mettre en gras pour que ce soit plus visible, je suis preneur. En effet, mes textBox ont un fond en couleurs. Il faudrait aussi pouvoir modifier la police ce qu'il y a en transparence.
Merci encore.

 

[ChTi160]

Re
Je vais bien ! Merci
Là , il faut ou ajouter cette propriété directement dans la class ou ajouter un élément A la fonction.
Mais Là il faut voir . Car c'est une ressource issue du forum . Il faut voir avec les créateurs.
Depuis mon téléphone.
Jean marie

 

[fanch55]

Bonsoir,
Heu, de quelle ressource parle-t-on ?
Si c'est celle de @patricktoulon , c'est bien le SetMasktTitle sinon pour @Dudu2 , c'est le SetControlTitle
Attention, adapté à ce jour au Userform et non une feuille

 

[ChTi160]

Re
Tu dis :"Par contre si tu savais comment lui dire de mettre en gras pour que ce soit plus visible"
Tu peux peut être, directement modifier la propriété des textBox concernés.
Sans passer par le code
Jean marie

 

[fanch55]

Partie de code à modifier dans la classe :

    'Dynamic TextBox for the title of the Control
    With Control.Parent.Controls.Add("Forms.Textbox.1", PrefixTitle & Control.Name, True)
        .ForeColor = ForeColor
        .BackColor = Control.BackColor
         Set .Font = Control.Font
        .SpecialEffect = Control.SpecialEffect
        .BorderStyle = Control.BorderStyle
        .BorderColor = Control.BorderColor
        .Value = Titre
        .Move Control.Left, Control.Top, Control.Width, Control.Height
    End With

La police du textbox sera identique à son contenant (combobox/textbox/etc...)

 

[Piment]

Partie de code à modifier dans la classe :

    'Dynamic TextBox for the title of the Control
    With Control.Parent.Controls.Add("Forms.Textbox.1", PrefixTitle & Control.Name, True)
        .ForeColor = ForeColor
        .BackColor = Control.BackColor
         Set .Font = Control.Font
        .SpecialEffect = Control.SpecialEffect
        .BorderStyle = Control.BorderStyle
        .BorderColor = Control.BorderColor
        .Value = Titre
        .Move Control.Left, Control.Top, Control.Width, Control.Height
    End With

La police du textbox sera identique à son contenant (combobox/textbox/etc...)

Jean-Marie, Fanch55 bonjour à tous les deux. Merci de vos réponses.
Jean-Marie, tu as raison, il faut modifier dans la classe. J'avais mis en gras et en blanc dans la textBox mais aucun effet.
Fanch55, je vais modifier dans la class comme proposé. Je vous fais un retour.
Merci encore.
Bonne journée.

 

[Piment]

Jean-Marie, Fanch55 bonjour à tous les deux. Merci de vos réponses.
Jean-Marie, tu as raison, il faut modifier dans la classe. J'avais mis en gras et en blanc dans la textBox mais aucun effet.
Fanch55, je vais modifier dans la class comme proposé. Je vous fais un retour.
Merci encore.
Bonne journée.

Re : Je confirme, la modification fonctionne. Merci à tous les deux.

 

[patricktoulon]

perso j'avais modifié la mienne pour une demande et par ce que je trouvais ça pas con du tout
les couleur de text et de font sont paramètrables pour le textbox et son mask
oui il arrive que parfois dans des interfaces on est des couleurs pour facultatif ou pas
donc parti de cette idée 4 couleur sont paramétrables ou pas (blanc par defaut et gris pour le mask
et blanc pour le fond et noir pour le texte dans le textbox

je redépose là une copie au cas ou

voila
patrick

 

[jcf6464]

perso j'avais modifié la mienne pour une demande et par ce que je trouvais ça pas con du tout
les couleur de text et de font sont paramètrables pour le textbox et son mask
oui il arrive que parfois dans des interfaces on est des couleurs pour facultatif ou pas
donc parti de cette idée 4 couleur sont paramétrables ou pas (blanc par defaut et gris pour le mask
et blanc pour le fond et noir pour le texte dans le textbox

je redépose là une copie au cas ou
Regarde la pièce jointe 1219092
voila
patrick

Bonjour à vous toutes et tous,

Une remarque très bon travail comme d'habitude,

Quand on à un calendrier dans un textbox et que l'on saisie la date par le calendrier l'inscription reste et la couleur du fond ne change pas ,
par-contre en saisissant la date à la main cela fonctionne tout le reste fonctionne,

Bonne continuation jcf

 

[patricktoulon]

bonjour @jcf6464
ha bon ?????????????

 

[Piment]

bonjour @jcf6464
ha bon ?????????????

Bonsoir à tous.
Merci pour vos réponses.
Patrick c'est parfait.
Merci à toi.
Bonne soirée.

 

[jcf6464]

bonjour @jcf6464
ha bon ?????????????

'Private Sub TextBox_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
'If flag = True Then flag = False: Exit Sub
'If TextBox.Tag = "calendar" Then
'If Button = 2 And flag = False Then TextBox = Calendar.ShowX(TextBox, 2, 0, 1): flag = True
'End If
'End Sub

bonsoir à vous tous

est il normal que tu ai ce code ci-dessus dans l'userform et dans le module de classe
j'ai supprimer celui de l'userform


cordialement jcf

 

[patricktoulon]

comment ce fait il que tu es ce code dans l'userform je l'avait enlevé