Вход на сайт
Воспоминание программирование на VB 08.04.2024
1244 просмотров
Перейти к просмотру всей ветки
uscheswoi_82 коренной житель
в ответ uscheswoi_82 29.06.24 05:28
Продолжим разговор про изменения размера, работает так, но иногда происходит ошибка, т.к. размеры элемента т.е. ширина = 0 и высота = 0 не допустимы, см.:
Чтобы не было ошибки, нужно написать так On Error Resume Next, тогда не будет ошибки при изменение размера окна:
Private Sub Form_Resize() On Error Resume Next Me.Text1.Height = Me.ScaleHeight - Me.Text1.Top - 10 Me.Text1.Width = Me.ScaleWidth - Me.Text1.Left - 10 End Sub
Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение
Дневник тяжелобольного инвалида