Posizione form e risoluzione delle schermo

[trinityck]

Originariamente inviato da Lathspell
Intendevo proprio questo.... non è proprio il massimo, però....

a mali estremi...

ti farò sapere, grazie x l'aiuto, se funzia hai contribuito al successo dell'Area di Progetto di una quinta (inteso come classe, non come boops... anche xkè io sono un lui, ripeto )a corto di tempo e in vista degli esami

[Lathspell]

Originariamente inviato da trinityck
a mali estremi...

ti farò sapere, grazie x l'aiuto, se funzia hai contribuito al successo dell'Area di Progetto di una quinta (inteso come classe, non come boops... anche xkè io sono un lui, ripeto )a corto di tempo e in vista degli esami

Mi sono diplomato lo scorso anno e vi capisco. Se avete bisogno, nel limite delle mie conoscenze, ben volentieri.

[axsw]

prova questo magari modificandolo.
non sò io ci provo ad aiutarti.

Tramite questo codice è possibile centrare un Form all'interno di un'altra finestra (che sia lo schermo o un altro Form.

Sub CenterForm(Frm As Form, Optional onFrm As Variant)

Dim XPos As Integer, YPos As Integer

Screen.MousePointer = 11

If IsMissing(onFrm) Then
'** Il Form viene centrato nello schermo.
XPos = (Screen.Width - Frm.Width) \ 2
YPos = (Screen.Height - Frm.Height) \ 2
Else
'** Il Form viene centrato in un altro Form.
XPos = (onFrm.Width - Frm.Width) \ 2
YPos = (onFrm.Height - Frm.Height) \ 2
XPos = XPos + onFrm.Left
YPos = YPos + onFrm.Top
End If

Frm.Move XPos, YPos
Screen.MousePointer = 0

End Sub

[trinityck]

vero anche questo ma ridimensionare il form principale è un po' un caos...