Resolution Ecran ??

Salut
j ai fait uner appli mais certains utilisateurs ont des vieux ordis avec des resolutions faible.
Ma question est la suivante :

yaurai til moyen qu au demarage il resize tt mes fenetres et les elements de ma fenetre en fonction de la taille de l; ecran ?

Merci ;)

--
Tetris

Bien sur...

tu peux recuperer les dimensions de ton ecran assez facilement (Screen.Width & screen.Height)


dans le Form_Resize (ou Form_Load), tu peux placer tous tes composants dynamiquement..

mais rien d'automatique n'existe.

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

Ca veut dire ke je dois faire une fonction qui va resize chaque elements en fonction de la resolution ?

cad un truyc ds le genre ? ?


Sub resize_Fom()
lblStep1.Width = Screen.Width + 335
lblStep1.Height = Screen.Height + 15
lblStep2.Width = Screen.Width + 440
lblStep2.Height = Screen.Height + 18
lblStep3.Width = Screen.Width + 450
lblStep3.Height = Screen.Height + 20
......
lblStepX.Width = Screen.Width + 335
lblStepX.Height = Screen.Height + 15

lblStepxxx.Width =

end Sub



Mais si j ai 150 boutons textbox ... a resize ?? je V devoir tt me taper ds cet esprit ???
--
Tetris

on peut rien te cacher......

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

!!!!
C pas possible
je crois pas qque les gars ki ont coder VB on pas pense a ca ??
!!!!!
j abandonne dans ce cas la .....

--
Tetris

salut

dans option explicit
Dim object As Object

dans form load tu mmets


'***********determiner la resolution de l'ecran ****************
largeur = Screen.Width / Screen.TwipsPerPixelX
haut = Screen.Height / Screen.TwipsPerPixelX
If largeur = 800 Then Form1.Height = 9000: Form1.Width = 12000
If largeur = 1024 Then Form1.Height = 11500: Form1.Width = 15400
'***************************************************************
mem_long = 0
mem_long = Form1.Width

On Error Resume Next
Me.Tag = CStr(Me.Width) & ":" & CStr(Me.Height)
For Each object In Me
object.Tag = CStr(object.x1) & ":" & CStr(object.y1) & ";" & CStr(object.X2) & "!" & CStr(object.y2)
object.Tag = CStr(object.Width) & ":" & CStr(object.Height) & ";" & CStr(object.Left) & "!" & CStr(object.Top)
Next object


et enfin dans form_resize

On Error Resume Next
For Each object In Me
'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))
'pour les fonts
object.Font.Size = (Me.Font.Size * (Form1.Width / mem_long))
Next object

bon courage

Dis mois, je, tu t'es dechainé !!

bon boulot, ca devrai fonctionner....

j'ai corrigé (et allegé le code)

largeur = Screen.Width / Screen.TwipsPerPixelX haut = Screen.Height / Screen.TwipsPerPixelX If largeur = 800 Then Me.Height = 9000: Me.Width = 12000 If largeur = 1024 Then Me.Height = 11500: Me.Width = 15400 '*************************************************************** mem_long = 0 mem_long = Me.Width Me.Tag = CStr(Me.Width) & ":" & CStr(Me.Height) For Each Object In Me If TypeOf Object Is Line Then Object.Tag = CStr(Object.X1) & ":" & CStr(Object.Y1) & ":" & CStr(Object.X2) & ":" & CStr(Object.Y2) Else Object.Tag = CStr(Object.Width) & ":" & CStr(Object.Height) & ":" & CStr(Object.Left) & ":" & CStr(Object.Top) End If Next Object On Error Resume Next Dim W As Long, H As Long, L As Long, T As Long, MW As Long, MH As Long Dim Object As Control MW = Val(Split(Me.Tag, ":")(0)) MH = Val(Split(Me.Tag, ":")(1)) For Each Object In Me W = Val(Split(Object.Tag, ":")(0)) H = Val(Split(Object.Tag, ":")(1)) L = Val(Split(Object.Tag, ":")(2)) T = Val(Split(Object.Tag, ":")(3)) If TypeOf Object Is Line Then Object.X1 = W * Me.Width / MW Object.Y1 = H * Me.Height / MH Object.X2 = L * Me.Width / MW Object.Y2 = T * Me.Height / MH Else 'pour le reste Object.Width = W * Me.Width / MW Object.Height = H * Me.Height / MH Object.Left = L * Me.Width / MW Object.Top = T * Me.Height / MH 'pour les fonts On Error Resume Next Object.Font.Size = (Me.Font.Size * (Me.Width / mem_long)) On Error GoTo 0 End If Next Object

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

en tout cas, jo, je dois dire que ca marche très bien, chapeau ;-)

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........

Bon moi j ai trop mal :(

a chaque fois que tu fais : "Me.quelquechose"
Me faut pas le remplacer par frm1 ?

ya pas moyen plutot de mettre une fonction resize en module et de la rapeller kan on en a besoin ?

sinon un GRAND merci a vous pour ce code :)

--
Tetris

NON !! Me, tu le laisse....

ca signifie "Feulle ou est ce code" donc Form1 !!

ca permet de remettre ce code dans d'autres forms, sans modifier une ligne !

By Renfield

thomas_reynald@msn.com

Aucune touche n'a ete blessee lors de la saisie de ce texte..........