14 Январь 2009

Изменение размера TextBox вместе с формой

TextBox |  Таги: ,

Изменение размера TextBox вместе с формой
Как сделать так чтобы размеры текстового поля изменялись вместе с изменением размера формы.
Удобно использовать в текстовом редакторе.

Option Explicit

Private Sub Form_Load()
Me.WindowState = 2
End Sub

Private Sub Form_Resize()
'В режиме проектирования измените свойства TextBox
'Установим Multiline в True
'ScrollBar установите в 3 - Both
Text1.Height = Form1.ScaleHeight
Text1.Width = Form1.ScaleWidth
End Sub


Оставить комментарий

Я не робот.