Выравнивание текста по форме как в блокноте.

06.10.2009, 11:56. **Показов** 2793. **Ответов** 2

Author24 — интернет-сервис помощи студентам

Мне нужно сделать чтобы текстовое поле выравивалось по форме, как например это сделано в Notepad (Блокнот). В VB.NET это сделать легко, а как это сделать в VB6?

@pl · 06.10.2009, 13:03

Private Sub Form_Resize()
If Me.WindowState <> vbMinimized Then
If Me.Width < 6000 Then Me.Width = 6000
If Me.Height < 4000 Then Me.Height = 4000
Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight
End If
End Sub

07.10.2009, 10:58

Спасибо!
Только при изменении размера окно помигивает. В VB.NET конечно это лучше реализованно.

glower
		1
	Выравнивание текста по форме как в блокноте. 06.10.2009, 11:56. Показов 2793. Ответов 2 Метки нет (Все метки) Мне нужно сделать чтобы текстовое поле выравивалось по форме, как например это сделано в Notepad (Блокнот). В VB.NET это сделать легко, а как это сделать в VB6?

@pl 51 / 17 / 6 Регистрация: 18.05.2007 Сообщений: 1,322
	06.10.2009, 13:03	2
	Private Sub Form_Resize() If Me.WindowState <> vbMinimized Then If Me.Width < 6000 Then Me.Width = 6000 If Me.Height < 4000 Then Me.Height = 4000 Text1.Move 0, 0, Me.ScaleWidth, Me.ScaleHeight End If End Sub 0

glower
	07.10.2009, 10:58	3
	Спасибо! Только при изменении размера окно помигивает. В VB.NET конечно это лучше реализованно.