Feuille MDI Mere/Fille & redimenssion

Question

Bonjour &#224; tous,

j'ai besoin de votre aide :( j'essaie de developper un petit programme avec VB6, pour qu'il soit plus esth&#233;tique et que cela fasse plus pr&#233;sentable. J'ai cr&#233;e une feuille MDI (qui est donc la feuille m&#233;re), sur cette feuille MDI j'utilise le cr&#233;ateur de menu pour ajouter des menu type Fichier, Edition...ensuite je cr&#233;e une form et j'applique a l'attribut MDIchild la valeur true. Pour finir, j'applique au menu Fichier l'instruction 

Private Sub menu_Click()
    Form1.Show
End Sub

Jusque la tout va bien...mais lorsque je lance mon appli et que je clique sur Fichier alors ma form (minimiser car j'ai laiss&#233; la valeur par d&#233;faut) se place juste en dessous du menu et en plus sa taille heigth et witdh est chang&#233;e automatique du coup ma form est &#233;tir&#233;e.

Donc :

1./ Pourquoi cette form se redimenssionne ?
2./ Comment faire pour que cette form ne se redimenssionne pas ?

On peut  appliquer ce code :
   ' Centre la form.
    Me.Top = (MDIForm1.ScaleHeight - ScaleHeight) / 2
    Me.Left = (MDIForm1.ScaleWidth - ScaleWidth) / 2
   '  Permet de remettre les bonnes taille
    Me.Width = 2500
    Me.Height = 2500
,mais existe-t-il une autre methode car lorsque l'on applique ce code on voit ces modifs au lancement de la form.

3./ Comment placer automatique la form au centre de la feuille M&#233;re ?

D&#233;sol&#233; pour le pav&#233; &#224; lire lol mais j'aimerai comprendre le pourquoi du comment...

...Merci d'avance des futures r&#233;ponses...et si vous avez de bon site ou tuto traitant des MDI je suis preneur, car je d&#233;bute dans le VB et j'y connais rien de rien mais j'aimerai apprendre.

cs_RegiO · Answer

J'ai pas trouv&#233; le bouton pour r&#233;editer mon message, j'apporte quelques correction &#224; mon code.

2./  Pour centrer cette form avec ces dimenssions par d&#233;faut :
Dans le code de la form, on peut placer ce code :


Private Sub Form_Load()
    '  Permet de mettre les bonnes dimenssions de la form
    Me.Width = 2500  '< -- Largeur de la form cr&#233;e.
    Me.Height = 2500 ' <-- Hauteur de la form cr&#233;e.
   ' Centre la form au centre de l'&#233;cran.
    Me.Top = (MDIForm1.ScaleHeight - ScaleHeight) / 2
    Me.Left = (MDIForm1.ScaleWidth - ScaleWidth) / 2
End Sub

Apparement, en appliquant Load au lieu de Initialize cela resoud le probl&#233;me des changements que l'on voyait s'effectuer.

Ceci est une bonne solution je pense mais j'aimerai comprendre pourquoi les form filles sont automatiques redimenssionn&#233;es et positionn&#233;es.

Feuille MDI Mere/Fille & redimenssion

1 réponse

Discussions similaires