add scrollbars to text box
This commit is contained in:
parent
b7b137e690
commit
d206c30ad8
@ -287,6 +287,7 @@ Public Class ClassControlCreator
|
|||||||
control.ReadOnly = oControlRow.Item("READ_ONLY")
|
control.ReadOnly = oControlRow.Item("READ_ONLY")
|
||||||
control.TabStop = Not oControlRow.Item("READ_ONLY")
|
control.TabStop = Not oControlRow.Item("READ_ONLY")
|
||||||
control.BackColor = IIf(oControlRow.Item("READ_ONLY"), Color.LightGray, Color.White)
|
control.BackColor = IIf(oControlRow.Item("READ_ONLY"), Color.LightGray, Color.White)
|
||||||
|
control.ScrollBars = ScrollBars.Vertical
|
||||||
Else
|
Else
|
||||||
control.ReadOnly = True
|
control.ReadOnly = True
|
||||||
End If
|
End If
|
||||||
|
|||||||
Loading…
x
Reference in New Issue
Block a user