[2008] Disabled multi-line text box that's scrollable... possbile?

[gundie]

Is it possible to make a multi-line text box still scrollable while it's disabled?

The closest I can achieve this is to set the text box's ReadOnly property to false, which will gray out the text box, and still scrollable, but the text in the box remains black instead of being gray. Changing the forecolor of the text box does not have any effect. The color of the text changes back to black when I set ReadOnly to true.

I want to be able to mimic the disabled text box visually. Thanks for the help!

[jmcilhinney]

It's not possible. Disabled means disabled. Perhaps if you were to inherit the class and mess around with the internals but I wouldn't like to hazard a guess as to what exactly you'd need to do.

[ryytikki]

you could just make a small function that works on a timer ticking (set the tick timer to, say, 10) and then use this

textbox1.clear()
textbox1.text = "put your original text here)

This will reset the text whenever the timer ticks

Hope it helps

Ryy

[chris128]

you could just make a small function that works on a timer ticking (set the tick timer to, say, 10) and then use this

textbox1.clear()
textbox1.text = "put your original text here)

This will reset the text whenever the timer ticks

Hope it helps

Ryy

Thats a really bad way of doing it in my opinion. For one thing having a timer running every 10 ms has got to have some kind of impact on performance and for another thing it is just plain bad design. You would probably also find that the text appears to be constantly flickering if its getting cleared and reset every 10 miliseconds.


The way I would do it would be to just set the forecolor and backcolor manually and leave the ReadOnly property as False, then just use the KeyDown event like this to stop users being able to type into it:

Private Sub TextBox1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyDown
        e.SuppressKeyPress = True
End Sub

[Deepak Sakpal]

Public Class Form1
    Inherits System.Windows.Forms.Form
 
    Private Sub Form1_Load( _
        ByVal sender As System.Object, _
        ByVal e As System.EventArgs _
    ) Handles MyBase.Load
 
        CustomTextBox1.ReadOnly = True
        CustomTextBox1.BackColor = Color.White
        CustomTextBox1.ForeColor = Color.Gray
    End Sub
End Class
 
Public Class CustomTextBox
    Inherits TextBox
 
    Protected Overrides Sub OnPaint( _
        ByVal e As System.Windows.Forms.PaintEventArgs _
    )
        Dim brush As SolidBrush = New SolidBrush(ForeColor)
        e.Graphics.DrawString(Text, Font, brush, 0.0F, 0.0F)
    End Sub
 
    Public Sub New()
        MyBase.New()
        Me.SetStyle(ControlStyles.UserPaint, True)
    End Sub
End Class