Discussion :

[joel64230]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textbox.readonly = true

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

textbox.enabled = false

Et c'est là ma difficulté!
Merci par avance de votre aide. Cordialement.

[Rainui]

Bonjour,

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

[joel64230]

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.

[Sankasssss]

Vous pouvez vous faire votre controle perso

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
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

[joel64230]

Vous pouvez vous faire votre controle perso

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
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!