Adapter à la taille de l'ecran

salut
je suis un peu bloqué dans mon programme
j'ai crée un form qui ocupe toute la taille de mon ecran qui est à plus de 17 pouces
lorque je vais l'ouvrir dans une machine de 15 pouces, il m'est impossible de voir tout le formulaire
juste une partie est vue puisse que l'ecran est petit.
comment faire pour adapter mon formulaire à toute taille d'ecran
merci pour votre compréhension.

julie

Bonjour,

Alors je dirai :
<span style="color:#008000">'*************************************************************************</span>
<br /><span style="color:#008000">'* Reformatage de la feuille en adaptant les controles pr&#233;sents</span>
<br /><span style="color:#008000">'*************************************************************************</span>
<br /><span style="color:#0000FF">Private</span> <span style="color:#0000FF">Sub</span> Form_Resize()
<br /><span style="color:#0000FF">Dim</span> ctl <span style="color:#0000FF">As</span> Control
<br />
<br />    <span style="color:#008000">'-- On v&#233;rifie que le l'&#233;tat visuel de la Feuille n'est pas sur minimale</span>
<br />    <span style="color:#008000">'-- Si c'est le cas on sort de la proc&#233;dure</span>
<br />    <span style="color:#0000FF">If</span> (<span style="color:#0000FF">Me</span>.WindowState = 1) <span style="color:#0000FF">Then</span> <span style="color:#0000FF">Exit</span> <span style="color:#0000FF">Sub</span>
<br />    <span style="color:#008000">'-- Pour chaque controle</span>
<br />    <span style="color:#0000FF">For</span> <span style="color:#0000FF">Each</span> ctl <span style="color:#0000FF">In</span> <span style="color:#0000FF">Me</span>.Controls
<br />        <span style="color:#008000">'-- On v&#233;rifie le type de controle</span>
<br />        <span style="color:#0000FF">If</span> <span style="color:#0000FF">TypeOf</span> ctl <span style="color:#0000FF">Is</span> ComboBox <span style="color:#0000FF">Then</span>
<br />            <span style="color:#008000">'-- Les comboboxes ont leur Propri&#233;t&#233; Height en lecture seule</span>
<br />            <span style="color:#008000">'-- On modifie les propri&#233;t&#233;es de Largeur, de position</span>
<br />            ctl.Move ctl.Left * <span style="color:#0000FF">Me</span>.Width / Lng, ctl.Top * <span style="color:#0000FF">Me</span>.Height / lLar, ctl.Width * <span style="color:#0000FF">Me</span>.Width / lLng
<br />        <span style="color:#0000FF">Else</span>
<br />            <span style="color:#008000">'-- On modifie les propri&#233;t&#233;es de Largeur, de hauteur, de position</span>
<br />            <span style="color:#0000FF">If</span> ExistProperty(ctl, &quot;<span style="color:#8B0000">Width</span>&quot;) <span style="color:#0000FF">And</span> ExistProperty(ctl, &quot;<span style="color:#8B0000">Height</span>&quot;) <span style="color:#0000FF">Then</span>
<br />                ctl.Move ctl.Left * <span style="color:#0000FF">Me</span>.Width / lLng, ctl.Top * <span style="color:#0000FF">Me</span>.Height / lLar, _
<br />                ctl.Width * <span style="color:#0000FF">Me</span>.Width / lLng, ctl.Height * <span style="color:#0000FF">Me</span>.Height / lLar
<br />            <span style="color:#0000FF">End</span> <span style="color:#0000FF">If</span>
<br />        <span style="color:#0000FF">End</span> <span style="color:#0000FF">If</span>
<br />    <span style="color:#0000FF">Next</span>
<br />    <span style="color:#008000">'-- On red&#233;fini les variables</span>
<br />    lLng = <span style="color:#0000FF">Me</span>.Width
<br />    lLar = <span style="color:#0000FF">Me</span>.Height
<br />
<br /><span style="color:#0000FF">End</span> <span style="color:#0000FF">Sub</span>
<br />
<br /><span style="color:#008000">'*************************************************************************</span>
<br /><span style="color:#008000">'* On test si la propri&#233;t&#233; du controle existe</span>
<br /><span style="color:#008000">'*************************************************************************</span>
<br /><span style="color:#0000FF">Public</span> <span style="color:#0000FF">Function</span> ExistProperty(Obj <span style="color:#0000FF">As</span> <span style="color:#0000FF">Object</span>, <span style="color:#0000FF">ByVal</span> PropertyName <span style="color:#0000FF">As</span> <span style="color:#0000FF">String</span>) <span style="color:#0000FF">As</span> <span style="color:#0000FF">Boolean</span>
<br />
<br />    <span style="color:#008000">'-- Fonction qui test les diff&#233;rentes propri&#233;t&#233;s a savoir si elle existe ou pas.</span>
<br />    <span style="color:#0000FF">On</span> <span style="color:#0000FF">Error</span> <span style="color:#0000FF">Resume</span> <span style="color:#0000FF">Next</span>
<br />    CallByName Obj, PropertyName, VbGet
<br />    ExistProperty = (Err.Number = 0)
<br />    Err.Clear
<br />
<br /><span style="color:#0000FF">End</span> <span style="color:#0000FF">Function</span>
<br /><br />
<!-- Code colorisé via http://tools.codes-sources.com/colorizeCode.aspx
 -->

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- <

Same player shoot again

'*************************************************************************
'* Reformatage de la feuille en adaptant les controles présents
'*************************************************************************

PrivateSub Form_Resize()
Dim ctl As Control

    '-- On vérifie que le l'état visuel de la Feuille n'est pas sur minimale
    '-- Si c'est le cas on sort de la procédure
    If (Me.WindowState = 1) ThenExitSub
    '-- Pour chaque controle
    ForEach ctl InMe.Controls
        '-- On vérifie le type de controle
        IfTypeOf ctl Is ComboBox Then
            '-- Les comboboxes ont leur Propriété Height en lecture seule
            '-- On modifie les propriétées de Largeur, de position
            ctl.Move ctl.Left * Me.Width / Lng, ctl.Top * Me.Height / lLar, ctl.Width * Me.Width / lLng
        Else
            '-- On modifie les propriétées de Largeur, de hauteur, de position
            If ExistProperty(ctl, "Width") And ExistProperty(ctl, "Height") Then
                ctl.Move ctl.Left * Me.Width / lLng, ctl.Top * Me.Height / lLar, _
                ctl.Width * Me.Width / lLng, ctl.Height * Me.Height / lLar
            EndIf
        EndIf
    Next
    '-- On redéfini les variables
    lLng = Me.Width
    lLar = Me.Height

EndSub

'*************************************************************************
'* On test si la propriété du controle existe
'*************************************************************************
PublicFunction ExistProperty(Obj AsObject, ByVal PropertyName AsString) AsBoolean

    '-- Fonction qui test les différentes propriétés a savoir si elle existe ou pas.
    OnErrorResumeNext
    CallByName Obj, PropertyName, VbGet
    ExistProperty = (Err.Number = 0)
    Err.Clear

EndFunction

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- <

Ben ouaip!!! a adapter....
On peut pas toujours tout donner tout cuit :-D
(Comment va?)

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- <

bonjour,

ça me semble bien compliqué tout ce code alors qu'il y aurait une solution tres simple :

ta form tu la configures avec des dimensions standards (en general le 1024 X 768)
et si tu veux qu'elle soit en plein ecran quel que soit la resolution de l'ecran sur lequel tu travailles,
tu mets la propriété "WindowState" sur "Maximised"

a toi d'essayer si ça te convient...

_____________
 (débutant inside)

@Tyrell2
Bonjour,
Ta solution est chouette mais certains pc en industrie sont encore avec des résolution en 800x600
de plus même si tu mets la propriété sur Maximised tu aura ta fenetre qui sera agrandi mais en aucun cas l'ensemble de tes composants ajusté à la taille...

S.L.B.

---

-- Le règlement tu liras -- Des recherches tu feras -- Le style SMS tu banniras --
-- De la validation pertinente tu feras -- Du respect tu auras -- <

ben pour le premier point tu met ta cré ta form en 800x600 (meme en 640 x 480 si tu veux)

et pour le passage en maximised tu pourrais faire un truc du style : lecture de la resolution d'affichage du poste sur lequel tu executes le programme et deplacement des composants en fonction ...

pour lire la resolution tu as My.Computer.Screen.Bounds.Width  & My.Computer.Screen.Bounds.Height

ensuite pour deplacer un groupbox par exemple tu utilises

Me.GroupBox1.Size = New System.Drawing.Size(xxx, yyy)
Me.GroupBox1.Location = New Point(xx, xx)

ce qui ferait un truc du style : if largueur ecran = 1024 then groupbox = position
_____________
 (débutant inside)