Redimentionner en fonction de la résolution d'écran

Question

takezo  

Voila je d&#233;veloppe avec une r&#233;solution d'&#233;cran de 1400 par 1050 et je voudrai redimentionner pour une r&#233;solution de 1024 par 728 ou toute autres r&#233;solution dans le cas ou il faudrai exe l'application dans une autre r&#233;solution, mais voila je patoge avec les &#233;chelles alors si un champion pouvez me mettre sur la voie ca serai vraiment cool
merci d'avance &#224; tous

jpleroisse · Answer

Place un control SysInfo sur ta Form et nomme-le sysDetectOS.
Normalement, d'apr&#232;s l'aide de VB, ce code adapte ta Form &#224; la r&#233;solution d&#233;tect&#233;e.
Je nais pas pu l'essayer car ma carte graphique (assez ancienne) ne me permet q'un max de 800 x 600). Si cela fonctionne tient moi au courant.

Private Sub sysDetectOS_DisplayChanged()
If Screen.ActiveForm.Width > _
sysDetectOS.WorkAreaWidth Then
Screen.ActiveForm.Left = _
sysDetectOS.WorkAreaLeft
Screen.ActiveForm.Width = _
sysDetectOS.WorkAreaWidth
End If
If Screen.ActiveForm.Height > _
sysDetectOS.WorkAreaHeight Then
Screen.ActiveForm.Top = _
sysDetectOS.WorkAreaTop
Screen.ActiveForm.Height = _
sysDetectOS.WorkAreaHeight
End If
End Sub

jpleroisse

mushashi4 · Answer

takezo
 
Je te remerci pour ta r&#233;ponce. bien j'ai mis le control comme tu le d&#233;crits avec la proc&#233;dure la feuille de code de ma form et le r&#233;sultat n'est pas senssasse bon il faut que je planche sur le sujet si j'ai de meilleurs r&#233;sultes je te teinds au courant

Salut &#224; toi

Redimentionner en fonction de la résolution d'écran

2 réponses

Discussions similaires