Discussion :

[Sytchev3]

Comment peut on empecher la modification ou la suppression des données contenues dans un textbox ???

Existe-t-il une propriété comme existait la propriété locked en VB 6 ou faut-il empêcher l'utilisation du clavier sur ce composant ???

[neguib]

Propriété TextBox.ReadOnly

[Sytchev3]

Ca marche impeccablement bien merci.

Mais la couleur de fond devient la même que celle du forme !

Peut on empêcher le changement de couleur du textbox

[neguib]

Si tu veux eviter la manipulation de gdi+ pour redessiner le fond et la chaine de caractères
Il y a une autre astuce
Je pars du principe que ce TextBox peut de façon dynamique être ou ne pas être ReadOnly
Voici mon test qui fonctionne

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
 
'Dans InitializeComponent()
'J'assigne dès le depart un booleen qui represente le ReadOnly
Me.textBox1.Tag = false
'j'abonne l'evenement KeyPress de mon TextBox(saisie)
AddHandler Me.textBox1.KeyPress, AddressOf Me.TextBox1KeyPress
'...etc...
 
'Capture de l'evenement KeyPress de mon TextBox
Private Sub TextBox1KeyPress(sender As System.Object, e As System.Windows.Forms.KeyPressEventArgs)
  'J'assigne la même valeur au e.Handled que le tag du TextBox
   e.Handled = CType(Ctype(sender,Control).Tag, Boolean)
  'car si e.Handled = True ce qui correspond pour le test
  'à un ReadOnly = True alors
  ' l'evenement sera jugé comme déjà géré donc pas de saisie
End Sub
 
'ici pour le test j'ai utilisé un bouton qui modifie
'dynamiquement la valeur du Tag du textBox1
Private Sub Button1Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
     Me.textBox1.Tag = Not CType(Me.textBox1.Tag,Boolean)
End Sub