1. #1
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    3 973
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 61
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 973
    Points : 7 662
    Points
    7 662

    Par défaut Un TextBox standard avec un style PlaceHolder

    Salut

    Tout est dans le titre.

    Le TextBox est tout à fait standard, mais avec un peu de code, si aucune entrée n'a été faite par l'utilisateur, un petit texte d'information se loge dans le TextBox.
    Dés la première frappe, le texte d'information disparait pour laisser la place à l'entrée de l'utilisateur.

    Image au départ:
    Nom : Img1.JPG
Affichages : 15
Taille : 106,2 Ko

    Exemple 1, l'entrée utilisateur déclenche la recherche dans un 2ém TextBox
    Nom : Img2.JPG
Affichages : 14
Taille : 106,2 Ko


    Exemple 2, l'entrée utilisateur est vérifiée suite au clique d'un bouton
    Nom : Img3.JPG
Affichages : 12
Taille : 40,7 KoNom : Img4.JPG
Affichages : 11
Taille : 40,0 Ko

    Comme vous pouvez le voir, le texte d'information est paramétrable ainsi que sa couleur.
    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
    26
    27
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    Option Explicit
    '***************************** requis pour le TextBox style PlaceHolder ****************
    Dim TextFond As String, ColorRech As ColorConstants, ColorText As OLE_COLOR
    '***************************************************************************************
     
     
    Private Sub Form_Load()
    '***************************** requis pour le TextBox style PlaceHolder ****************
    ColorText = Text1.ForeColor 'Couleur encre du TextBox
    ColorRech = vbBlue 'Exemple de couleur encre indicateur de ce que doit faire l'utilisateur du TextBox
    TextFond = "Rechercher..." 'Exemple de texte indicateur de ce que doit faire l'utilisateur du TextBox
    'initialisation du TextBox
    Text1.ForeColor = ColorRech: Text1.Text = TextFond
    '***************************************************************************************
     
    Text1.FontBold = True 'option, pour rendre la demonstration plus visible
    End Sub
     
     
    Private Sub Text1_GotFocus()
    '***************************** requis pour le TextBox style PlaceHolder ****************
    If Text1.ForeColor = ColorRech Then Text1.SelStart = 0
    '***************************************************************************************
    End Sub
    Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
    '***************************** requis pour le TextBox style PlaceHolder ****************
    If Text1.ForeColor = ColorRech Then Text1.SelStart = 0
    '***************************************************************************************
    End Sub
    Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    '***************************** requis pour le TextBox style PlaceHolder ****************
    If Text1.ForeColor = ColorRech Then Text1.SelStart = 0
    '***************************************************************************************
    End Sub
    Private Sub Text1_Change()
    '***************************** requis pour le TextBox style PlaceHolder ****************
    If Len(Text1.Text) = 0 Then Text1.Text = TextFond: Text1.ForeColor = ColorRech: Exit Sub
    If (Len(Text1.Text) - Len(TextFond)) = 1 And Text1.ForeColor = ColorRech Then
        Text1.Text = Replace(Text1.Text, TextFond, "", , , vbTextCompare)
        Text1.ForeColor = ColorText
        Text1.SelStart = Len(Text1.Text)
    End If
    '***************************************************************************************
     
     
     
    '----- Ici, pour la demo un exemple simplicte, recherche de la premiere correspondance ------
    Dim Deb As Integer
    Text2.SelStart = 1: Text2.SelLength = 0 'pour deselectionner la precedante recherche
    If Len(Text1.Text) > 2 Then 'limiter le debut de recherche que si au moins 3 caracteres
        Deb = InStr(1, Text2.Text, Text1.Text, vbTextCompare)
        If Deb <> 0 Then 'quelque chose a été trouvée
            Text2.SelStart = Deb - 1: Text2.SelLength = Len(Text1.Text)
        End If
    End If
    '--------------------------------------------------------------------------------------------
    End Sub
    Private Sub Command1_Click()
    '----- Ici, pour la demo un autre exemple simplicte ------
    If Text1.ForeColor = ColorRech Then
        MsgBox "vous devez renseigner le TextBox" & vbNewLine & "style PlaceHolder", vbCritical, "Non valide"
        Else
        MsgBox "Merci d'avoir renseigné le TextBox" & vbNewLine & "style PlaceHolder", vbInformation, "Valide"
    End If
    '--------------------------------------------------------------------------------------------
    End Sub
    Fichiers attachés Fichiers attachés

Discussions similaires

  1. Définir un textBox password avec le style XP
    Par NicolasJolet dans le forum Windows
    Réponses: 3
    Dernier message: 19/03/2006, 13h43
  2. Réponses: 2
    Dernier message: 18/12/2005, 21h10
  3. Réponses: 1
    Dernier message: 30/11/2005, 14h57
  4. Renvoi d'une valeur dans un champ avec un style
    Par m@thieu dans le forum JavaScript
    Réponses: 2
    Dernier message: 15/11/2005, 18h09
  5. PB sortie standard avec les PTHREAD !!!
    Par djspit dans le forum C++
    Réponses: 15
    Dernier message: 19/11/2004, 01h17

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo