VER A LARGURA/ALTURA DO FORM NO LOAD

WEBIER 29/05/2007 14:50:34
#218710

como faço para exibir num textbox a largura do form e em outro textbox a altura

GIOVANI.ARRUDA 29/05/2007 14:58:27
#218714 Resposta escolhida

Private Sub Form_Load()
Text1.Text = Form1.Width
Text2.Text = Form1.Height
End Sub

Private Sub Form_Resize()
Text1.Text = Form1.Width
Text2.Text = Form1.Height
End Sub

ALMARTI 29/05/2007 15:27:29
#218724

Toda vez que quiser se referenciar a um form ativo, use o ME. Seria como o GIOVANNI disse, com uma pequena diferença:

Private Sub Form_Resize()
 With Me
  Text1.Text = .Width
  Text2.Text = .Height
 End With
End Sub

No resise, qualquer modificação será captiada. No load, apenas a inicial será detectada.

Tópico encerrado , respostas não são mais permitidas

Voltar