Disabled Bar

[Alexander]

this problem is really bugging me, neither me or AG can work it out... how can you have a disabled richtext box but still have the scrollbar enabled therefore preventing people editing / selecting / clicking the text but being able to view it?

[Cation]

Would this help? (hope this long url pastes ok)

groups.google.com/groups?hl=en&lr=&ie=UTF-8&threadm=O1Lr2we6%24GA.275%40cppssbbsa04&rnum=1&prev=/groups%3Fhl%3Den%26lr%3D%26ie%3DISO-8859-1%26q%3Dsubclass%2Brichtext%2Bscrollbar%26meta%3Dgroup%253Dmicrosoft.public.vb.general.*

[Tewl]

lock the control, set color to grey if u wantt he disabled look, then set the focus to something else when it is recieved

[Dangermouse]


Public Sub switchRTB(ByRef rtb As RichTextBox)
   With rtb
       If .Locked = True Then
           .Locked = False
           .SelStart = 0
           .SelLength = Len(.Text)
           .SelColor = &H0&
           .SelLength = 0
       Else
           .Locked = True
           .SelStart = 0
           .SelLength = Len(.Text)
           .SelColor = &H80000011
           .SelLength = 0
       End If
   End With
End Sub


Will 'switch' the enable/disable look

[Alexander]

yea unfortunatly u get flickering when someone tries to select stuff, i cant seem to prevent that

[Dangermouse]

Well obviously because i assume you are deselecting text after they have already selected it, you will need to catch it before they highlight it and cancel it (api stuff)

[Alexander]

yea, its kinda weird, i did think about using a vscroll on the rtfbox seperatly but theres no tuts on vscrolls at all

[Dangermouse]

Set it to locked, and in the Click event, focus on another control (out of view) like kerry said, and de select, they cant select the text at all, and you can scroll.

edit : mouse/key down/up event too

best youre gonna get without api

[Webagent]

.SetFocus on something else would do it yes, I have done it before, theres no way you can select something in the richtext thingy then, but you can scroll and read it.. I had no flickering.


Private Sub YourTXTthingy_KeyPress(KeyAscii As Integer)

sometingelse.SetFocus

End Sub