cs_DeepImpact
Messages postés16Date d'inscriptionmardi 6 août 2002StatutMembreDernière intervention11 août 2003
-
18 oct. 2002 à 21:42
sobocan
Messages postés2Date d'inscriptionvendredi 4 avril 2003StatutMembreDernière intervention 2 juillet 2003
-
2 juil. 2003 à 16:12
VOila j'ai creer une application sous une resolution de 1024 x 768 et je doit la lancer sur un ecran de 800 x 600 mais mon form depasse. Y a t'il un moyen pour redimmensionner sans reduire la taile de ma fenetre ?
sobocan
Messages postés2Date d'inscriptionvendredi 4 avril 2003StatutMembreDernière intervention 2 juillet 2003 2 juil. 2003 à 16:12
Mettre les contrôles de ta feuille dans un contrôle "SSTAB" ou "Frame"
Private Sub Form_Resize()
Dim Feuille As Form
Set Feuille = Screen.ActiveForm
If (Feuille.WindowState = vbMinimized) Then
Exit Sub
End If
Static Longueur As Long
Static Hauteur As Long
Dim PropLongueur As Single
Dim PropHauteur As Single
If ((Longueur > 0) And (Hauteur > 0)) Then
PropLongueur = Feuille.Width / Longueur
PropHauteur = Feuille.Height / Hauteur
Dim Ctrl As Control
On Error Resume Next
For Each Ctrl In Feuille.Controls
Ctrl.Left = CInt(Ctrl.Left * PropLongueur)
Ctrl.Top = CInt(Ctrl.Top * PropHauteur)
Ctrl.Width = CInt(Ctrl.Width * PropLongueur)
Ctrl.Height = CInt(Ctrl.Height * PropHauteur)
Next
On Error GoTo 0
End If
Longueur = Feuille.Width
Hauteur = Feuille.Height