Textbox non sélectionnable et non grisé

Version imprimable

21/04/2013, 12h22
joel64230

Textbox non sélectionnable et non grisé

Bonjour, je cherche le moyen de rendre un textbox non modifiable par l'utilisateur, ce que je fais avec

Code:

textbox.readonly = true

, mais également non sélectionnable sans que le texte contenu soit grisé, ce qui est le cas si on met

Code:

textbox.enabled = false

Et c'est là ma difficulté! :oops:
Merci par avance de votre aide. Cordialement.
21/04/2013, 12h32
Rainui

Bonjour,

Comme il 'y a donc aucun intérêt à utiliser un textBox, changez de type de contrôle pour un Label ...
21/04/2013, 18h41
joel64230

Citation:

Envoyé par Rainui

Bonjour,

Comme il 'y a donc aucun intérêt à utiliser un textBox, changez de type de contrôle pour un Label ...

Bonjour,
Je n'ai pas suffisamment explicité; le textBox (en fait 300 regroupés dans un panel) ne doit pas être sélectionnable ou mis en surbrillance uniquement lorsque un utilisateur n'a que le droit de visualiser; bien entendu, il est alimenté et/ou modifié par les utilisateurs habilités; si cela était permanent, le Label aurait convenu, et c'est le comportement que je souhaite pour le textBox lorsque l'utilisateur est en visualisation. Merci.
Cordialement.

Vous pouvez vous faire votre controle perso

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
Public Class PersoTextBox
    Inherits TextBox
 
 
    Const WM_MOUSEMOVE As Integer = &H200
    Const WM_LBUTTONDOWN As Integer = &H201
    Const WM_LBUTTONUP As Integer = &H202
    Const WM_RBUTTONDOWN As Integer = &H204
 
    Public Selectionnable as Boolean
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        Dim traite As Boolean = False
 
        Select Case m.Msg
            Case WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RBUTTONDOWN
 
                traite = not Selectionnable 
 
            Case Else
        End Select
 
        If Not traite Then
            MyBase.WndProc(m)
        End If
    End Sub
End Class

Citation:

Envoyé par Sankasssss

Vous pouvez vous faire votre controle perso

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
Public Class PersoTextBox
    Inherits TextBox
 
 
    Const WM_MOUSEMOVE As Integer = &H200
    Const WM_LBUTTONDOWN As Integer = &H201
    Const WM_LBUTTONUP As Integer = &H202
    Const WM_RBUTTONDOWN As Integer = &H204
 
    Public Selectionnable as Boolean
 
    Protected Overrides Sub WndProc(ByRef m As Message)
        Dim traite As Boolean = False
 
        Select Case m.Msg
            Case WM_MOUSEMOVE, WM_LBUTTONDOWN, WM_LBUTTONUP, WM_RBUTTONDOWN
 
                traite = not Selectionnable 
 
            Case Else
        End Select
 
        If Not traite Then
            MyBase.WndProc(m)
        End If
    End Sub
End Class

Bonjour et merci, je vais tester cette solution.
Cordialement.

Merci, ça marche!:ccool: