Discussion :

[toninlg]

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.

[ridan]

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 :

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

[jmfmarques]

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.

[toninlg]

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