Discussion :

[LeXo]

voila

j'aimerais

passer la form courante pour la centrer

pour cela je fais :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub formFacture_load()
 
centrer(frmFacture)
 
end

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public function centrer (maForm as Form)
mmaForm.left=(screen.width - maForm.width)/2
maForm.top=(screen.height - maForm.height)/2

mais sur

centrer(frmFacture)

, il me met type incompatible

avez vous une idée ?
d'avance merci

[Najdar]

Essaie

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
private sub formFacture_load()
 
centrer(me)
 
end

et

As Object permet d'utilise les feuilles "classique" et les feuilles MDI mères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
public function centrer (maForm as Object)
mmaForm.left=(screen.width - maForm.width)/2
maForm.top=(screen.height - maForm.height)/2

[ProgElecT]

Bonjour

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
public function centrer (maForm as Object)
mmaForm.left=(screen.width - maForm.width)/2
maForm.top=(screen.height - maForm.height)/2

Salut

[LeXo]

voila le résultat

Erreur d'éxécution 438
L'objet ne gere pas cette propriété ou cette méthode

[Najdar]

Où, dans quel pertie du code ? Dans la méthode centrer ou lors de l'appel à cette méthode.

De quel type est ta fenêtre ?

[LeXo]

désolé prog elect

j'ai loupé mon copier/ coller

mais je te promets de faire des efforts sinon sur le programme c bon



merci pour ton coup d'oeil en tout cas

[LeXo]

il me fait une erreur sur la premiere :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

maForm.Left = (Screen.Width - maForm.Width) / 2

et ma form et une form classique

bha non
avec le public sub, il me remet la meme erreur que la premiere


type incompatible

[ProgElecT]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Public Sub centrer(maForm As Form)
maForm.Left = (Screen.Width - maForm.Width) / 2
maForm.Top = (Screen.Height - maForm.Height) / 2
End Sub
Private Sub Form_Load()
centrer Me
End Sub

je viens de faire l'essais, l'appel doit etre fait sans ( )

[ProgElecT]

une fonction renvoi un resultat dans son NOM
l'appel ce fait donc : truc = MaFonction
Essais plutôt

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
public Sub centrer (maForm as Form)
maForm.left=(screen.width - maForm.width)/2
maForm.top=(screen.height - maForm.height)/2
End Sub

Sa devrait fonctionner