Bonjour,

Comment faire pour afficher du texte dans un Textbox dont la propriété enable est false pour que l'utilisateur ne puisse pas y écrire?

J'ai essayé ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
 
Text3.Text=Text3.Text & vbCrLf & "Essai"
Mais ça ne gère pas automatiquement le scrollbar.

J'ai essayé ceci :

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
 
Sub WriteScreen(varString As String)
 
    Dim x As Long
    x = Len(Text1.Text)
 
    ' adds a carriage return/line feed
    Text3.SelStart = x
    Text3.SelText = vbCrLf
 
    ' adds the string to the end of the text
    Text3.SelStart = x + 2
    Text3.SelText = varString
 
    ' makes the end of the text in view
    Text3.SelStart = x + 2 + Len(varString)
    Text3.Refresh
 
End Sub
et ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Private Const WM_VSCROLL = &H115
 
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
 
Private Function ShowBottom(oObject As Object)
    SendMessage oObject.hWnd, WM_VSCROLL, 196608004, 0
End Function
 
avec l'appel :
 
Private Sub Text3_Change()
   ShowBottom Text3
End Sub
Ces deux derniers morceaux de code ont l'air de gérer le scrollbar et de le faire descendre automatiquement mais apparement comme le TextBox est désactivé, le scrollbar l'est aussi et on ne sait pas le remonter.

Comment peut-on ajouter du texte dans un textbox désactivé tout en laissant l'utilisateur accéder au scrollbar?
Je programme en VB 6.

Merci beaucoup.