ridimensionare form

[b.lory]

ciao a tutti, avrei bisogno di un aiuto !!!
io lavoro con una risoluzione dello schermo 1024 x 768 fino a quando utilizzo i miei applicativi su pc con la stessa risoluzione è tutto ok !!!! .... ma quando la risoluzione è differente es. 800 x 600 le form risultano sfalzate.
come è possible adattare l'applicativo in modo automatico ???
grazie
Ciao

[Markooo]

Sub CenterForm(frm As Form)
   On Error Resume Next
   Dim iTop, iLeft As Integer
   If frm.WindowState <> 0 Then Exit Sub
   iTop = (Screen.Height - frm.Height) \ 2
   iLeft = (Screen.Width - frm.Width) \ 2
   If iTop And iLeft Then
      frm.Move iLeft, iTop
   End If
End Sub

Questa subroutine, per mezzo dell'utilizzo dell'oggetto Screen, centra automaticamente qualsiasi form qualunque sia la risoluzione adottata!

[raffaeu]

io l' ho messa in un nodulo ma che parametro gli devo passare?

[Markooo]

Basta passare il nome del form: sopra si chiama frm, naturalmente va cambiato a seconda del nome

Nel form load quindi metti

Private Sub Form_Load()
    CenterForm nome_form
End Sub

oppure

Private Sub Form_Load()
    CenterForm Me
End Sub