cs_Viviane
Messages postés26Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention20 mars 2009
-
27 janv. 2006 à 10:42
cs_Viviane
Messages postés26Date d'inscriptionmardi 26 février 2002StatutMembreDernière intervention20 mars 2009
-
27 janv. 2006 à 18:17
Bonjour !
J'ai développé une appli en 10024 X 768
Mais pour un utilisateur en 800 x 600,
les formulaires sont tronqués et les scrollbars ne s'affichent pas.
Où est mon problème ????
Merci à tous ceux qui pourront m'aider !
vite, tant qu'il me reste un cheveu sur la tête ...
cs_boumbo73
Messages postés107Date d'inscriptionlundi 25 octobre 2004StatutMembreDernière intervention16 décembre 2010 27 janv. 2006 à 11:32
J'ai eu le même pb sauf que tout redimentionner franchement c'est pas drôle et puis après suivant tes formulaires ca devient très petit et tu n'affiches rien !
Tu as une propriété de formulaire qui s'appelle autoscroll, tu l'as met à true et tu auras les scrollbars.
jpleroisse
Messages postés1788Date d'inscriptionmardi 7 novembre 2000StatutMembreDernière intervention11 mars 200627 27 janv. 2006 à 11:49
Bonjour,
Essaye ce code, Redimentionner les contrôles de la feuille.
Option Explicit
Dim lar As Long, lng As Long
Private Sub Form_Load()
lng = Me.Width
lar = Me.Height
End Sub
Private Sub Form_Resize()
Dim ctl As Control
If (Me.WindowState = 1) Then
Exit Sub
End If
For Each ctl In Me.Controls
If TypeOf ctl Is ComboBox Then
ctl.Move ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, ctl.Width * Me.Width / lng
Else 'Les comboboxs ont leur propriété Height en lecture seule
ctl.Move ctl.Left * Me.Width / lng, ctl.Top * Me.Height / lar, ctl.Width * Me.Width / lng, ctl.Height * Me.Height / lar
End If
Next
lng = Me.Width
lar = Me.Height
End Sub
jpleroisse
Si une réponse vous convient, cliquez Réponse Acceptée.
Vous n’avez pas trouvé la réponse que vous recherchez ?