Probleme de resolution

Signaler
Messages postés
16
Date d'inscription
mardi 6 août 2002
Statut
Membre
Dernière intervention
11 août 2003
-
Messages postés
2
Date d'inscription
vendredi 4 avril 2003
Statut
Membre
Dernière intervention
2 juillet 2003
-
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 ?

2 réponses

Messages postés
28
Date d'inscription
mercredi 2 octobre 2002
Statut
Membre
Dernière intervention
21 mai 2003

non, la seule façon est gerer l'evenement Resize et
d ' ajuster tous tes controles de facon proportionnelles.

il existe de OCX qui gere le Resize pour toi.

nb:quand tu commence un programme,comme en HTML pense plus petit (800x600)

salut
sebsoft
0
Messages postés
2
Date d'inscription
vendredi 4 avril 2003
Statut
Membre
Dernière intervention
2 juillet 2003

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

End Sub
0