Pb textbox

Question

Bonjour je voudrais effacer le contenue d'une textbox si je commence a saisir un autre text que celui indiquer
Ex: VB6
Pour des raisons technique j'ai une valeur "N.C" ds la propriete text d'une textbox
et je voudrais effacer le "N.C" si je saisie quelque chose dans la textbox
merci d'avance

cs_DARKSIDIOUS · Answer

Salut,



Il te suffit de s&#233;lectionner tout le texte d&#232;s que le textbox prends le focus par exemple :



Text1_GotFocus()



Text1.SelStart = 0

Text1.SelLength = len(text1.text)



end Sub

_____________________________________________________________________
DarK Sidious

Un API Viewer (pour le VB, VB.NET, C, C# et Delphi) tout en fran&#231;ais : www.ProgOtoP.com/popapi/

violent_ken · Answer

Violent Ken

Tu peux aussi faire :

Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (RepetAppui) And Text1.Text "N.C" Then Text1.Text vbNullString
End Sub

ou encore si tu ne veut pas que la textbox soit effac&#233;e si l'utilisateur change le texte apr&#232;s avoir rentr&#233; lui-m&#234;me "N.C" :

Dim RepetAppui As Boolean
Private Sub Form_Load()
RepetAppui = False
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)If Not (RepetAppui) And Text1.Text "N.C" Then Text1.Text vbNullString
RepetAppui = True
End Sub

@+

defdlm · Answer

Merci ca d&#233;chire,
J'ai r&#233;ussi facilement grace &#224; tes indications

tks

Pb textbox

3 réponses

Discussions similaires