[VB6]Afficher du texte dans Textbox desactivé + scrollbar?

Version imprimable

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:

1 2 Text3.Text=Text3.Text & vbCrLf & "Essai"
Mais ça ne gère pas automatiquement le scrollbar.

J'ai essayé ceci :
Code:

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:

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.

Salut :)

En utilisant la fonction de recherche avancée du forum je suis tombé sur ce post :
http://www.developpez.net/forums/vie...ight=wmvscroll ;)

Sinon j'ai ce bout de code qui pourrait te servir peut-être :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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 Const WM_VSCROLL = &H115
    Private Const SB_LINEDOWN = 1
    Private Const SB_LINEUP = 0
    Private Const SB_BOTTOM = 7
    Private Const SB_TOP = 6
 
Private Sub Command1_Click()
    SendMessage Text2.hwnd, WM_VSCROLL, SB_LINEUP, 0
End Sub
Private Sub Command2_Click()
    SendMessage Text2.hwnd, WM_VSCROLL, SB_LINEDOWN, 0
End Sub
 
Private Sub Command3_Click()
    SendMessage Text2.hwnd, WM_VSCROLL, SB_TOP, 0
End Sub
 
Private Sub Command4_Click()
    SendMessage Text2.hwnd, WM_VSCROLL, SB_BOTTOM, 0
End Sub

Bon courage ... ;)

21/03/2006, 07h57
jmfmarques

Citation:

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.

J'utilise dans ces cas-là la propriété Locked, plutôt que la propriété Enable

Et, si je veux y écrire dynamiquement, à un moment ou à l'autre, je modifie temporairement cette propriété, envoie ma chaîne, puis restitue la propriété locked. Si les propriétés multiline et Scroll de ma textbox ont été réglées (en dur) comme il le faut, je ne rencontre acun problème (l'ascenseur s'affiche dès que celà devient nécessaire) !

N'ayant par ailleurs touché qu'à la propriété Locked (enabled est et reste toujours à True), l'ascenseur est utilisable à chaque instant.
21/03/2006, 18h40
toninlg

Ca fonctionne très bien avec la propriété Locked et en utilisant SendMessage pour le scrollbar automatique, merci beaucoup.