русский

Воспоминание программирование на VB 08.04.2024

02.07.24 00:09
Re: Воспоминание программирование на VB 08.04.2024
 
uscheswoi_82 коренной житель
uscheswoi_82

Продолжим разговор про изменения размера, работает так, но иногда происходит ошибка, т.к. размеры элемента т.е. ширина = 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
Если я кому-то отвечаю, это не значит что я ему симпатизирую, каждый остаётся при своём мнение Tagebuch der schwerbehinderten Person
 

Sprung zu