Discussion :

[Lutine]

Bonjour.

J'aimerais pouvoir choisir la dimansion de ma fenetre et la changer comme je le souhaite.

Dans mon programme, il y a:

Code :

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

 Me.MaximizeBox = False

Lorsque je mets la valeur à True, la fenetre reste toute grande.

J'ai trouvé ce code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Form_Resize()
        Dim Objet As Object
        On Error Resume Next
        For Each Objet As Object In Me
            'pour les graphiques
            Objet.X1 = Val(Mid(Object.Tag, 1, InStr(Object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Objet.Y1 = Val(Mid(Object.Tag, InStr(Object.Tag, ":") + 1, Len(Object.Tag) - InStr(Object.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
            Objet.X2 = Val(Mid(Object.Tag, InStr(Object.Tag, ";") + 1, Len(Object.Tag) - InStr(Object.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Objet.Y2 = Val(Mid(Object.Tag, InStr(Object.Tag, "!") + 1, Len(Object.Tag) - InStr(Object.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
            'pour le reste
            Objet.Width = Val(Mid(Object.Tag, 1, InStr(Object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Objet.Height = Val(Mid(Object.Tag, InStr(Object.Tag, ":") + 1, Len(Object.Tag) - InStr(Object.Tag, ":") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
            Objet.Left = Val(Mid(Object.Tag, InStr(Object.Tag, ";") + 1, Len(Object.Tag) - InStr(Object.Tag, ";") + 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Objet.Top = Val(Mid(Object.Tag, InStr(Object.Tag, "!") + 1, Len(Object.Tag) - InStr(Object.Tag, "!") + 1)) * Me.Height / Val(Mid(Me.Tag, InStr(Me.Tag, ":") + 1, Len(Me.Tag) - InStr(Me.Tag, ":") + 1))
        Next Objet
    End Sub

Mais je n'arrive pas à l'adapter de facon à ce qu'il marche. Il permet d'agrandir tous les controle de la fenetre en meme temps. Il les adapte.


Je souhaiterais pouvoir faire en sorte de redimensionner à la guise de l'utilisateur, de pouvoir mettre en plein écran ou à la taille d'origine.

Comment faire?

(il me sors l'erreur:
L'expression est du type 'Davidson.Form1', qui n'est pas un type collection.)

Je travaille osus VBExpress 2005

[jockyboss777]

Eh bien tu laisse simple.
Pas besoin de Maximisebox.


Enfin pour moi lorsque je lance mon programme je peux ensuite redimensionner mes fenètre a ma guise

Tu as quelle programme

[Lutine]

C'est un programme que deux étudiants ont créé pour une entreprise et que je dois reprendre et corriger les erreurs ou améliorer le programme. Il gère une base de données candidats. Je vais tenter ta solution.

Donc, en enlevant la maximizebox, il ne me permet toujours pas de redimensionner la fenetre lorsque je lance le programme...



Si quelqu'un à une autre idée?

[jockyboss777]

Enfin moi ça marche.
Sinon
www.msdn.com/fr-fr

[Lutine]

J'ai chercher sur msdn déjà...

J'ai pas trouvé ce que je cherchais. Je suis débutante en la matière, et je souhaiterais savoir ce que c'est qu'un type collection.

Car dans mon code, 'In Me' c'est pas accepté à cause de cette erreur: ce n'est pas un type collection...

Alors que mettre?

[jockyboss777]

Tien tu n'as qu'a essayer ça

Code :

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

Me.ResizeRedraw = True

Tu le met dans le formulaire que tu veux redimensionner.

je ne suis pas sur que sa marche Mais tente toujours