RichTextBox и Resize. Помогите.. плиз....

[Александр80]

В проекте есть и Toolbar1 и StatusBar1 также есть RichTextBox1 (текстовое поле).
Как сделать так чтобы при убирании как StatusBar1 (StatusBar1.Visible = false) так и Toolbar1 (Toolbar1.Visible = false) RichTextBox1 растягивался на весь экран.
Хотелось бы также учесть что StatusBar1 и StatusBar1 могут находится в разном состоянии (например StatusBar1.Visible = false а Toolbar1.Visible = true или наоборот).

Помогите пожалуйста…

[mad_Max]

Если "на весь экран"="на всю форму", то поставь следующий код на Form_Resize

Код: Выделить всё

Public Sub Form_Resize()
On Error Resume Next
Dim newTop As Integer
Dim newHeight As Integer
newHeight = IIf(ToolBar1.Visible, Me.ScaleHeight - ToolBar1.Height, Me.ScaleHeight)
newHeight = IIf(StatusBar1.Visible, newHeight - StatusBar1.Height, newHeight)
newTop = IIf(ToolBar1.Visible, ToolBar1.Height, 0)
RichTextBox1.Move 0, newTop, newHeight, Me.ScaleWidth
End Sub

И при изменении свойств StatusBar1.Visible и ToolBar1.Visible вызывай Form_Resize.

[Juriev]

' На форме- RichTextBox1, Toolbar1, StatusBar1, Command1, Command2
Private Sub Command1_Click()
StatusBar1.Visible = False
Toolbar1.Visible = False
RichTextBox1.Top = 0
RichTextBox1.Height = Form1.ScaleHeight
End Sub

Private Sub Command2_Click()
StatusBar1.Visible = True
Toolbar1.Visible = True
RichTextBox1.Top = Toolbar1.Height
RichTextBox1.Height = Form1.ScaleHeight - StatusBar1.Height
End Sub

[Александр80]

Огромное спасибо...