Taille de fenetre?

Version imprimable

Taille de fenetre?

Bonjour.

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

Dans mon programme, il y a:

Code:

Me.MaximizeBox = False

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

J'ai trouvé ce code:

Code:

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

16/07/2007, 15h47
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 8-)

Tu as quelle programme
16/07/2007, 15h54
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?
16/07/2007, 15h58
jockyboss777

Enfin moi ça marche.
Sinon
www.msdn.com/fr-fr
16/07/2007, 16h09
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?
16/07/2007, 16h16
jockyboss777

Tien tu n'as qu'a essayer ça

Code:

Me.ResizeRedraw = True

Tu le met dans le formulaire que tu veux redimensionner.

je ne suis pas sur que sa marche:? Mais tente toujours
16/07/2007, 16h23
Lutine

Hm non toujours pas..

Mais t'as pas répondu à ma question ^^

Si quelqu'un sait?
16/07/2007, 16h41
jockyboss777

Ou le met tu se "In Me"
17/07/2007, 08h41
Lutine

Ben regarde mon code... -_-

Code:

For Each Objet As Object In Me
17/07/2007, 08h53
bouvda

Bonjour,

Citation:

Envoyé par Lutine

Ben regarde mon code... -_-

Code:

For Each Objet As Object In Me

je pense que tu veux écrire :

Code:

For Each Objet As Object In Me.Controls
17/07/2007, 09h10
Lutine

Bonjour !

Merci pour ton aide, mais lorsque je mets '.controls' après le 'In Me', il me dit que les '.quelqueschoes' qui sont après les Object dans la suite du code de sont pas membres de Object.

:roll: Je suis perdue -_-
17/07/2007, 09h14
SaumonAgile

Tu peux alors essayer avec :

Code:

For Each Objet As Control In Me.Controls

Dans cette partie du code :

Code:

1
2
3
4
5
6
7
8
9
    Private Sub Form_Load()
        Dim Objet As Object
        On Error Resume Next
        Me.Tag = CStr(Me.Width) & ":" & CStr(Me.Height)
        For Each Objet As Control In Me.Controls
            Objet.Tag = CStr(Objet.X1) & ":" & CStr(Objet.Y1) & ";" & CStr(Object.X2) & "!" & CStr(Object.Y2)
            Objet.Tag = CStr(Objet.Width) & ":" & CStr(Object.Height) & ";" & CStr(Object.Left) & "!" & CStr(Object.Top)
        Next Objet
    End Sub

Après avoir remplacé avec ta proposition, SaumonAigle, il me dit que la variable 'Objet' masque une variable dans un bloc englobant.
Ainsi que 'X1' n'est pas un membre de 'System.Windows.Forms.Control'.

Dans la seconde partie:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Resize()
        On Error Resume Next
        For Each Objet As Control In Me.Controls
            'pour les graphiques
            Object.X1 = Val(Mid(Object.Tag, 1, InStr(Object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Object.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))
            Object.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))
            Object.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
            Object.Width = Val(Mid(Object.Tag, 1, InStr(Object.Tag, ":") - 1)) * Me.Width / Val(Mid(Me.Tag, 1, InStr(Me.Tag, ":") - 1))
            Object.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))
            Object.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))
            Object.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 Object
    End Sub

Il me dit que .X1 n'est pas un membre de Object. Enfin il me dit ca pour tout ce qu'il y a après les Object.

17/07/2007, 10h17
jockyboss777

Ca doit surement être ça.:king:
Saumon Agile est un très bon programmateur.
Dis-Nous si cela marche
17/07/2007, 10h51
Lutine

J'ai l'impression que tu ne lis pas ce que j'écris.......

Citation:

Après avoir remplacé avec ta proposition, SaumonAigle, il me dit que la variable 'Objet' masque une variable dans un bloc englobant.
Ainsi que 'X1' n'est pas un membre de 'System.Windows.Forms.Control'.

J'ai posté après lui. Et j'ai dis que cela ne marchait pas.

J'ai trouvé une facon de procéder.. Mais si vous trouver l'erreur dans ce code, je suis preneuse !
17/07/2007, 10h58
jockyboss777
Je suis désolé je ne suis pas monté assez haut:oops: vraiment Désolé:oops: .
Donc pour revenir a notre problème essai de les déclarer ;)
Code:

1 2 'exemple Dim X1 As Object
Enfin peut-être
17/07/2007, 11h01
SaumonAgile

Citation:

Envoyé par Lutine

Dans cette partie du code :
Après avoir remplacé avec ta proposition, SaumonAigle, il me dit que la variable 'Objet' masque une variable dans un bloc englobant.
Ainsi que 'X1' n'est pas un membre de 'System.Windows.Forms.Control'.

Il faut que tu castes la variable Objet dans le type qui contient les propriétés X1, etc.

Citation:

Envoyé par Lutine

Dans la seconde partie:

Il me dit que .X1 n'est pas un membre de Object. Enfin il me dit ca pour tout ce qu'il y a après les Object.

C'est le même problème, il faut aussi que tu castes la variable Objet. Et au passage dans ce morceau de code, tu utilises Object à la place de Objet, je pense qu'il s'agit d'une petite erreur d'inattention.

Sinon que représentent les propriétés X1, Y1 ? Font-elles parties d'une classe que tu as toi-même definie ? Sinon ne devrais-tu pas plutot utiliser les propriétés Top et Left ?
17/07/2007, 15h50
Lutine

Merci beaucoup SaumonAigle

Effectivement je viens de remarquer qu'il y a quelques petites erreurs d'inattentions de ma part -_-

De plus, il est préférable que j'utilise Top et Left. X1 et Y1 étaient dans des propriétés mais je pense que top et left seront plus appropriés.

En tout cas, merci à Jockyboss777 et SaumonAigle 8-)