passer une form a une fonction

voila

j'aimerais

passer la form courante pour la centrer

pour cela je fais :

Code:

---

1 2 3 4 5

private sub formFacture_load()   centrer(frmFacture)   end

---

Code:

---

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

Citation:

---

centrer(frmFacture)

---

, il me met type incompatible

avez vous une idée ?
d'avance merci

Essaie

Code:

---

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:

---

1 2 3 4

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

---

Bonjour

Code:

---

1 2 3

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

---

Salut

voila le résultat

Citation:

---

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

---

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 ?

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

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

Code:

---

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

il me fait une erreur sur la premiere :

Code:

---

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

Code:

---

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 ( )

merci ProElect pour cet éclair de génie

bha nikel..... que dire sinon merci ;)

La même chose avec Function

Code:

---

1 2 3 4 5 6 7 8 9

Public Function centrerV(maForm As Form) As Single centrerV = (Screen.Width - maForm.Width) / 2 End Function Public Function centrerH(maForm As Form) As Single centrerH = (Screen.Height - maForm.Height) / 2 End Function Private Sub Form_Load() Me.Move centrerV(Me), centrerH(Me) End Sub

---

Ce qui permet de centrer indépendamment la frm soit sur la largeur, soit sur la hauteur
Dans les propriétés de la frm, au moment de la construction dans le projet tu as la propriété StartUpPosition qui permet de forcer, au démarage de l'appli la position à l'ecran.
L'interet de faire une fonction ou une sub dans le programme, est de pouvoir l'utiliser plusieurs fois au cour de son execution, sinon il semble preferable d'utiliser StartUpPosition (non disponnible durant l'execution de l'application).

Citation:

---

bha nikel..... que dire sinon merci

---

Utiliser le bouton RESOLUT :D

Il existe une propriété qui permet qu'une feuille soit centrée au chargement. Je ne me souviens plus du nom de la propriété mais je crois que c'est WindowState ou un truc du genre. Tu la met à CenterScreen (ou un truc du genre) et ta fonction devient inutile ;)

Pour les parenthèses : on ne les met que lorsqu'il sagit d'une fonction ET que l'on veut réccupérer une valeur de retour :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

Public Function Test(MaVar As Single) As Single ... End Function   Public Sub Appel() Dim Retour As Single   Retour = Test(3)   Test 3   End Sub

---

non moi j'ai en choix
de windowsState

normal
maximized
minimized

et pas center

et j'ai pris bonne note de ta remarque :mrgreen:

han mais g trouver
la propriété c'est

Citation:

---

StartupPosition

---

merci