Discussion :

[LeXo]

Bonjour

voila

j'ai envie de faire un modele de form et que certaines de mes feuilles aient ce modele
width, height, startUposition, couleur de fond status bar, no clipcontrol, contours fixes...etc


parce que o fur et a mesure du développement je dois toutes les changer une par une et si je veux ajouter autre chose ....pareil


comment dois je my prendre ???

merci

[Najdar]

Bonjour Lexo (re-bonjour),

Pour moi la solution serai de créer une fonction à laquelle tu passe ta feuille en paramétre.
Cette fonction doit être appeler dans le Form_Load de ta feuille.
Un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Public Sub MetEnForme(byref MaFeuille as form)
  With MaFeuille
    .top=
    ....
  End With
End Sub
 
Dans la feuille
 
Private Sub Form_Load
  MetEnForme Me
End Sub

Attention pas testé, juste saisi dans le forum

[LeXo]

erreur de compilation
impossible d'affecter a une propriété en lecture seule

oui évidement tu ne peux que tester mais pas les changer

mais la différence entre ça

Code :

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

1
2
3
4
5
Public Function MisenForm(ByRef maform As Form)
With maform
.StartUpPosition = CenterScreen
End With
End Function

et

Code :

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

1
2
3
4
Public Function centrer(maform As Form)
maform.Left = (Screen.Width - maform.Width) / 2
maform.Top = (Screen.Height - maform.Height) / 2
End Function

[Najdar]

oui évidement tu ne peux que tester mais pas les changer

Pourrais-tu être plus clair, je n'ai pas compris le sens de ta remarque...

[LeXo]

je faisaais part d'une remarque

que les propriétés, on ne peut que les tester

style

if maform.norderstyle =...

ou

msgBox maform.borderStyle

mais pas changer leur état

en plus j'aurais aimé faire
ajouté un statusBar j'en demande peut etre beaucoup mais ça doit surement existé :

maform.add.Statusbar
statusBar.panels(1)="Bonjour"& userCourant.nom

[Najdar]

Malheureusement, certaines propriétés des feuilles ne sont modifiables qu'en conception.
L'idéal serai d'avoir en VB6 l'héritage sur les feuilles, mais ce n'est pas le cas.

A ma connaissance il n'y a pas de solution simple.
La seule que j'imagine est d'utiliser les API pour créer ou modifier les fenêtres par du code. Pas simple...