VB.NET Изменить размер формы и определить размер в текстовом поле

Получил два текстовых поля, одно из которых представляет ширину формы, а другое - высоту.

Когда форма загружается, она отображает размер ширины и высоты формы в каждом текстовом поле.

Когда вы измените размер формы, он автоматически обновит текст в текстовых полях и сообщит вам текущий размер формы.

Как я могу это сделать?

Я использовал приведенный ниже код, чтобы вы могли установить нужный размер, а затем он применил его к размеру формы, но до сих пор не понял, как автоматически определять ширину и высоту формы при изменении ее размера.

Private sizew As Integer
Private sizey As Integer

sizew = TextBox1.Text
sizey = TextBox2.Text
Me.Size = New System.Drawing.Size(sizew, sizey)

Разобрался, что я делаю не так. Для тех, кому интересно, как это сделать, вот код ниже.

Private sizew As Integer
Private sizey As Integer

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    TextBox1.Text = Me.Size.Width()
    TextBox2.Text = Me.Size.Height()
End Sub

Private Sub Form1_SizeChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.SizeChanged
    TextBox1.Text = Me.Size.Width()
    TextBox2.Text = Me.Size.Height()
End Sub

forms size resize textbox detect
person Michael Schwartz    schedule 20.07.2012    source источник

Ответы (2)


arrow_upward
2
arrow_downward

Обработайте событие SizeChanged и прочитайте Me.Size.

person SLaks    schedule 20.07.2012

arrow_upward
1
arrow_downward

поставь на форму таймер и выставь интервал 100 потом поставь на него этот код

TextBox1.Text = Me.Size.Width()
TextBox2.Text = Me.Size.Height()

Примечание. Убедитесь, что таймер включен.

person Alireza Tabasi    schedule 27.12.2012