[VB6] gestion textbox

Version imprimable

16/09/2009, 15h55
Bourdois

[VB6] gestion textbox

Bonjour,

je cherche une solution sur le point suivant:

une textbox de longueur 12, je voudrais permettre a l'utilisateur de pouvoir modifier que les deux derniers caractères de la valeur contenue dans la textbox.

Merci, de votre aide sur le sujet

Martial

Bienvenue sur DVP

Une solution a base de TextBoxs et une autre avec un RichTextBox
Sur un Form, 2 CommadButtons, un Label, 2 TextBoxs et un RichtextBox et ce

Code:

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
Option Explicit
 
Private Sub Form_Load()
Text1.FontSize = 10
Text1.Locked = True
'Label1.Visible = False
'Text2.BackColor = &HC0FFC0
Label1.AutoSize = True
Label1.FontSize = Text1.FontSize
Text2.FontSize = Text1.FontSize
Text2.Appearance = 0: Text2.BorderStyle = 0
Text2.Height = Text1.Height - 15
 
InitText "Mot à Proteger", "partie modifiable"
 
'*********************************************************
'*** Solution largement simplifiée avec un RichTextBox ***
'*********************************************************
RichTextBox1.MultiLine = False
RichTextBox1.TextRTF = ""
RichTextBox1.SelText = "Protection "
RichTextBox1.SelColor = &HFF0000
RichTextBox1.SelProtected = True
RichTextBox1.SelText = "de cette partie du texte"
RichTextBox1.SelText = " mais pas de celle-ci"
'*********************************************************
End Sub
 
Public Sub InitText(MotProteger As String, MotModifiable)
Text1.Text = MotProteger
Text2.Text = MotModifiable
Label1.Caption = Text1.Text & "  " & Text2.Text
Text1.Width = Label1.Width + 90
Label1.Caption = "  " & Text2.Text
Text2.Width = Label1.Width - 30
Text2.Move (Text1.Left + Text1.Width) - Text2.Width - 15, Text1.Top + 30
Text2.Width = Text2.Width - 15
End Sub
Private Sub Text1_GotFocus()
Text2.SetFocus
End Sub
Private Sub Command1_Click()
InitText "On ne touche pas", "mise à par dans cette partie c'est possible"
End Sub
Private Sub Command2_Click()
InitText "ABCDEFGHIJK", "12"
End Sub

Bonsoir,

Avec une textbox (seule) : celà pourrait ressembler à ceci :

Code:

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
Option Explicit
Private anc As String
 
Private Sub Form_Activate()
  Text1.Text = "123456789012" 'juste pour exemple et simulation
  anc = Text1.Text
End Sub
 
Private Sub Text1_Change()
  Select Case Len(Text1.Text)
   Case 10, 11, 12 ' à toi de limiter comme tu l'entends
     anc = Text1.Text
   Case Else
     non
   End Select
End Sub
Private Sub non()
  Text1.Text = anc
  DoEvents
  Text1.SelStart = 10: Text1.SelLength = 2 ' voilà (1er souci) de quoi assurerle confort de l'utilisateur
End Sub
Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
  ' on choisit le mousemove plutôt que le GotFocus pour éviter un autre petit problème)
  non
End Sub
 
'--------un rajout pour empêcher l'inconvénient signalé par OhMonBato
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
  If KeyCode = 37 And Text1.SelStart = 10 Then KeyCode = 0 
  DoEvents
End Sub

EDIT : et on se protège du même coup des copier/coller non souhaitables.

16/09/2009, 21h39
OhMonBato

Sauf erreur de ma part, avec ta solution ucfoutu, on ne se protège pas des déplacements manuels du curseur qui permettent ensuite d'effacer un autre caractère.

Bonjour, OhMonBato,

C'est vrai ! on y parvient dans certaines circonstances.
Qu'à cela ne tienne : on va changer le fusil d'épaule et rendre le "préfixe" immuable, alors. (j'ai également modifié le 1er exemple pour éviter ce problème)

Premier essai :
Code:

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 Private rac As String, anc As String, deja As String Private Sub Form_Activate() anc = Text1.Text rac = Left(anc, 10) End Sub Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single) ' on choisit le mousemove plutôt que le GotFocus pour éviter un autre petit problème) couic End Sub Private Sub Text1_Change() If Len(Text1.Text) < 10 Or Len(Text1.Text) > 12 Then Text1.Text = anc: couic: Exit Sub If Not Text1.Text Like rac & String(Len(Text1.Text) - 10, "?") Then Text1.Text = anc: couic Else anc = Text1.Text End If End Sub Private Sub couic() If Text1.SelStart > 10 Then Exit Sub Text1.SelStart = 10: Text1.SelLength = 2 ' voilà (1er souci) de quoi assurerle confort de l'utilisateur DoEvents End Sub
si maintenant tu veux imposer au moins un caractère et pas plus de 2 en "suffixe", remplace donc

Code:

If Not Text1.Text Like rac & String(Len(Text1.Text) - 10, "?") Or Len(Text1.Text) > 12 Then

par

Code:

If Not Text1.Text Like rac & String(Len(Text1.Text) - 10, "?") Or Len(Text1.Text) > 12 Or Len(Text1.Text) < 11 Then

Bon... je n'ai pas réussi à trouver un piège autre, mais il y en a peut-être un qui m'échappe....
Voilà en tout état de cause deux approches, même si perfectibles).

17/09/2009, 10h16
Bourdois

vb6 gestion textbox

Merci, a vous pour votre aide, sa fonctionne a la perfection

cordialement