if résolution client trop petite then Messagebox.Show ( blalala) exit
google est mon ami quand tu cherches quelque chose demande lui clairement
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Pour ma part cela faire plus 15 ans que je travail en VB, j'ai commencé avec VB3.0 puis VB4 VB5 VB6 pour basculer en VB9 et maintenant VB10 et lorsque la page est assez haute, je tape du code à chaque page pour replacer les contrôles à l'ecran en fonction de la grandeur de l'ecran, sinon le logiciel perd de sa valeur au niveau esthétique !
Par contre Anchor et Dock ne corrige pas tout désolé !
En fonction de la resolution de l'ecran 4/3 ou 16/9 le rendu n'est pas le même
si tu te contente de Anchor et Dock ....
Public Sub ResizeObjects(ByRef MyControl As Control, ByVal IsParent As Boolean) ScreenWidth as integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Width ScreenHeight as integer = System.Windows.Forms.Screen.PrimaryScreen.Bounds.Height CoefWidth as single = CSng(ScreenWidth / 1024) CoefHeight as single = CSng(ScreenHeight / 768) For Each obj In MyControl.Controls MyControl.Height = CInt(Math.Floor(CDbl(CSng(MyControl.Height) * CoefHeight))) MyControl.Width = CInt(Math.Floor(CDbl(CSng(MyControl.Width) * CoefWidth))) ResizeObjects(MyControl, false) next