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