1 réponse
------------------------------
Réponse au message :
-------------------------------
Bonjour,
voila j'ai un petit soucis.
J'ai un programme avec une feuille mdi et les autres formulaire on une propriété mdi child a true.
Je souhaiterai centrer ces formulaire par rapport à la feuille mdi, mais quand je leur attribut la propriété start up position à center owner ou center screen, j'ai une erreur de validation.
Commend dois t on procéder
Merc
------------------------------
------------------------------
Moi je fais comme ça :
function FormCentree(F As Form , MDIF as form) as boolean
Dim W as integer 'largeur
Dim H as integer 'hauteur
Dim L as integer 'left
dim T as integer 'top
FormCentree = false
If F.MDIChild Then
W = MDIF.ScaleWidth
H = MDIF.ScaleHeight
Else
W = Screen.Width
H = Screen.Height
End If
L = (W - F.Width) \ 2
T = (H - F.Height) \ 2
'vérifier les coordonnées
If L < 0 Then L = 0
If T < 0 Then T = 0
F.Move L, T
FormCentree = true
End Sub
Et voila
--
Le petit nain jaune :approve)
Réponse au message :
-------------------------------
Bonjour,
voila j'ai un petit soucis.
J'ai un programme avec une feuille mdi et les autres formulaire on une propriété mdi child a true.
Je souhaiterai centrer ces formulaire par rapport à la feuille mdi, mais quand je leur attribut la propriété start up position à center owner ou center screen, j'ai une erreur de validation.
Commend dois t on procéder
Merc
------------------------------
------------------------------
Moi je fais comme ça :
function FormCentree(F As Form , MDIF as form) as boolean
Dim W as integer 'largeur
Dim H as integer 'hauteur
Dim L as integer 'left
dim T as integer 'top
FormCentree = false
If F.MDIChild Then
W = MDIF.ScaleWidth
H = MDIF.ScaleHeight
Else
W = Screen.Width
H = Screen.Height
End If
L = (W - F.Width) \ 2
T = (H - F.Height) \ 2
'vérifier les coordonnées
If L < 0 Then L = 0
If T < 0 Then T = 0
F.Move L, T
FormCentree = true
End Sub
Et voila
--
Le petit nain jaune :approve)
