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

ChTi160 à dit:

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 !

VB:

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

Code:

'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

Cliquez pour agrandir...

    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

fanch55 à dit:

Partie de code à modifier dans la classe :

VB:

    '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...)

Cliquez pour agrandir...

Piment à dit:

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.

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

patricktoulon à dit:

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

Cliquez pour agrandir...

'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