Discussion :

[Attila54]

Bonjour,
J'essaye de lancer un formulaire avec une taille réduite en %
Au cas présent : je voudrais que mon formulaire, quand il se lance, aie une taille de 70% de sa propriété size.
Est ce possible ? car j'ai trouvé pour le lancer en mode "réduit" mais pas avec un % de size.
Merci bien

[Franck.H]

Code :

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

1
2
Form1.Width = (Form1.Width x 70) / 100
Form1.Height = (Form1.Height x 70) / 100

Ca devrait le faire je pense

[shayw]

Salut

Au cas présent : je voudrais que mon formulaire, quand il se lance, aie une taille de 70% de sa propriété size.

ce n'est pas clair car le size aussi n'est pas fixe
dans le constructeur de ta form

Code :

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

1
2
3
4
5
6
7
8
9
10
Public Sub New()
       ' This call is required by the Windows Form Designer.
        InitializeComponent()
 
        ' Add any initialization after the InitializeComponent() call.
       Me.WindowState = FormWindowState.Normal
        Me.Width = Convert.ToInt32(Me.Size.Width * 0.7)
        Me.Height = Convert.ToInt32(Me.Size.Height * 0.7)
 
    End Sub

[Attila54]

bonjour a vous deux
tout dabord merci de l'aide.

e n'est pas clair car le size aussi n'est pas fixe
dans le constructeur de ta form

je ne comprends pas shayw, mon form, dans sa conception est toujours en 745X1032.

Ce que je veux moi, c'est qu'au form.show, il s'affiche a seulement 70% de sa taille, donc 70% de W et 70% de H.
en plus il me semble que en faisant comme montré, ça va me tronquer mon form et pas me l'afficher en entier mais a une taille réduite

C'est faux ce que je dis ?

[shayw]

je ne comprends pas shayw, mon form, dans sa conception est toujours en 745X1032.

Dans les proprietés de ta form comment est definit le windowstate ?

[Attila54]

ben a normal

[shayw]

et le size est 745X1032. ?
au fait le code ne fonctionne pas ? pas de résultat

[Attila54]

oui le size est 745X1032
ah ben si y a un resultat .... j'ai effectivement une fenetre a 70% qui s'affiche, mais le contenu de la form est reste a 100%. Du coup j'en vois qu'un bout ...

[Franck.H]

oui le size est 745X1032
ah ben si y a un resultat .... j'ai effectivement une fenetre a 70% qui s'affiche, mais le contenu de la form est reste a 100%. Du coup j'en vois qu'un bout ...

Si tu es sur du VB.Net normalement si tu as définit les ancrages pour tes objets (boutons, textbox, etc..) ça devrait fonctionner, du moins si tu as agencé ton interface dans les règles de l'art.

[callo]

Il faut aussi penser à utiliser des conteneurs (groupbox, panel, ...) pour tes différents contrôles. N'oublie pas de jouer également sur les propriétés Anchor et Dock des contrôles.

[Kropernic]

De ce qu'il explique, j'ai l'impression qu'il veut faire un zoom à 70% et non pas redimensionner la fenêtre à 70% de sa taille originale.

A confirmer...

Mais est-ce possible ? Perso, je n'ai jamais cherché à faire cela...

[Attila54]

j'ai bien pensé a essayer les proprietes de anchor mais visiblement ca ne fait rien
exemple :
dans mon form j'ai un rectangleshape
si je mets les W et H de mon form a 70% comment je mets mon anchor sur le rectangleshape pour qu'il s'adapte ?
j'ai essaye top,left ; top,right .... etc et je ne vois pas de différence. Et sur msdn, ils parlent bien d'anchor, mais ne définissent pas concrètement les valeurs

[Attila54]

alors de ce que j'explique, effectivement c'est un zoom arrière a 70%. Le but n'est pas tant de zoomer mais de permettre l'affichage de 2 formulaires de même taille simultanément a l'écran sans qu'ils se chevauchent

[Rainui]

Bonjour,
une fenêtre MDI peut peut être convenir. En modifiant le layoutMDI, vous pourrez facilement faire ce que vous souhaitez.
Ça a l'avantage de ne pas avoir besoin de gérer la résolution de l'écran, la taille des fenêtres, ...
Mais ça oblige à repenser l'affichage des fenêtres...

[shayw]

à tester

dans le constructeur de ta form

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Sub New()
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        Me.Width = Convert.ToInt32(Me.Size.Width * 0.7)
        Me.Height = Convert.ToInt32(Me.Size.Height * 0.7)
        For Each ctrl As Control In Me.Controls
            ctrl.Width = Convert.ToInt32(ctrl.Width * 0.7)
            ctrl.Height = Convert.ToInt32(ctrl.Width * 0.7)
            ctrl.Location = New Point(Convert.ToInt32(ctrl.Left * 0.7), Convert.ToInt32(ctrl.Top * 0.7))
        Next
        ' Add any initialization after the InitializeComponent() call.
 
    End Sub

[Attila54]

ah bah çà fonctionne quasi nickel hormis les polices qui du coup ne sont pas adaptées et quelques trucs comme les rectangleshape qui ne se redimensionnent pas encore. Mais c super dejà

[shayw]

pour l'instant
ou peut etre ici

[Attila54]

j'y songe sérieusement
La débroussailleuse fera parfaitement l'affaire chez moi

[shayw]

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
Public Sub New()
 
        ' This call is required by the Windows Form Designer.
        InitializeComponent()
        Me.Width = Convert.ToInt32(Me.Size.Width * 0.7)
        Me.Height = Convert.ToInt32(Me.Size.Height * 0.7)
        For Each ctrl As Control In Me.Controls
            ctrl.Font = New Font(ctrl.Font.Name, Convert.ToInt32(ctrl.Font.Size * 0.7), ctrl.Font.Style)
            ctrl.Width = Convert.ToInt32(ctrl.Width * 0.7)
            ctrl.Height = Convert.ToInt32(ctrl.Height * 0.7)
            ctrl.Location = New Point(Convert.ToInt32(ctrl.Left * 0.7), Convert.ToInt32(ctrl.Top * 0.7))
        Next
        ' Add any initialization after the InitializeComponent() call.
 
    End Sub

pour les rectangleshapes je ne sais pas

[Attila54]

merci bien shayw, ton code fonctionne et me suffit amplement, j'ai résolu le prob en virant le rectangleshape