Discussion :

[mouloudéen]

bonjour,

Je travaillais avec une résolution d’écran égale à 1024x768 Pixels. J’ai crée un formulaire dont les propriétés Fen Indépendante et Fen Modale sont à Oui et J’ai enlevé les barres de défilement. Tous marche comme je veux.

Lorsque je passe à la résolution 800x600 certains contrôles disparaissent, et comme j’ai enlevé les barres de défilement. Alors ces contrôles ne peuvent pas être utilisés.

Est-ce qu’il y a un moyen qui me permet de consulter le formulaire sur des PC dont la résolution d’écran est différentes sans modifier à chaque fois la résolution d’écran.

Merci

[stigma]

En général, c'est la largeur qui pose problème. Dans ce cas je te conseille de garder l'ascenseur horizontal. Ce conseil est aussi valable pour les sous-formulaires comportant un grand nombre de colonnes.
J'espère que ça va t'aider.

[mouloudéen]

Bonjour,

J’ai trouvé la solution suivante :

Au démarrage de l’application je change la résolution de l’écran à celle qui me permet de voir le formulaire convenablement, et en quittant l’application je restaure la résolution précédente.

Pour changer la résolution j’ai trouvé la solution dans la FAQ. Il me reste l’astuce qui me permet de connaître la résolution actuelle d’un écran, pour que je puisse la restaurer après modification.

Quelqu’un peut m’aider ?

Merci encore pour votre aide.

[stigma]

Voilà ce que je mets dans certaines applis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Call GetLargeurEcran
 
Function GetLargeurEcran() As Integer
 
    '---------------  Résolution de travail
    GetLargeurEcran = apiGetSys(16)
    If GetLargeurEcran < 1024 Then
        MsgBox "Attention, la résolution de votre écran devrait" & vbCrLf & "" _
        & "être au minimum de 1024 x 768 afin que les" & vbCrLf & "" _
        & "formulaires soient visibles en totalité." & vbCrLf + vbCrLf & "" _
        & "Conseil : Consultez un ophtalmologiste.", vbExclamation, "PROBLEME RESOLUTION"
    End If
 
End Function

[mouloudéen]

Voilà ce que je mets dans certaines applis

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long
 
Call GetLargeurEcran
 
Function GetLargeurEcran() As Integer
 
    '---------------  Résolution de travail
    GetLargeurEcran = apiGetSys(16)
    If GetLargeurEcran < 1024 Then
        MsgBox "Attention, la résolution de votre écran devrait" & vbCrLf & "" _
        & "être au minimum de 1024 x 768 afin que les" & vbCrLf & "" _
        & "formulaires soient visibles en totalité." & vbCrLf + vbCrLf & "" _
        & "Conseil : Consultez un ophtalmologiste.", vbExclamation, "PROBLEME RESOLUTION"
    End If
 
End Function

merci stigma votre code m'a permis de trouver la solution

au début du module j'ai mis le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Private Declare Function apiGetSys Lib "user32" Alias "GetSystemMetrics" (ByVal nIndex As Long) As Long

pour obtenir la résolution j'ai utilisé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 apiGetSys(0)

pour obrtenir la largeur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 apiGetSys(1)

pour obrtenir la hauteur