[IHM] Gérer la résolution des formulaires [Sources]

seb92400 · 19/07/2007, 14h18

Hello,

Voici un code à placer dans un module... Il permet de détecter la résolution actuelle de l'écran et de redimensionner en fonction de la résolution de développement.

Ca existait déjà, les petits + sont :
+ Gestion des contrôles spéciaux : Onglets, boutons radios, listes, sections...
+ Lisibilité améliorée des polices (par un léger agrandissement à prendre en compte lors de la création)
+ Gestion des résolutions plus élevées, mais aussi plus petites
+ Gestion des contrôles ActiveX (Comme le calendrier. Attention toutefois, les polices de celui-ci étant intégrées, il arrive que pour certaines résolutions, le texte de la date disparaisse s'il est trop petit, comme le Calendrier, par exemple. mais c'est à prendre à compte lors de la conception)...

Voici le code. Je suis ouvert à toutes les remarques et à tous les bugs

PS : Comme c'est la première que je poste ici, soyez indulgent, hein ???

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
Option Compare Database
Option Explicit
'
Private Declare Function GetDeviceCaps Lib "gdi32" (ByVal hdc As Long, ByVal nIndex As Long) As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" (ByVal hwnd As Long, ByVal hdc As Long) As Long
 
Private Const HORZRES As Long = 8
Private Const VERTRES As Long = 10
Private Const HWND_DESKTOP = 0
 
Private Const ResolutionInitialeX = 1024
Private Const ResolutionInitialeY = 768
 
Private FactRedimX As Double
Private FactRedimY As Double
 
Private CoordsFD(0 To 255, 0 To 255) As Long
'
'
'###################################'
'                                   '
'          CODE RESOLUTION          '
'                                   '
'###################################'
Private Sub ResolutionActuelle()
On Error GoTo Erreur
 
    Dim hdc As Long
    Dim ResolutionActuelleX As Long
    Dim ResolutionActuelleY As Long
    Dim RatioX As Double
    Dim RatioY As Double
 
    'Donne la résolution actuelle en pixels...
    hdc = GetDC(HWND_DESKTOP)
    ResolutionActuelleX = GetDeviceCaps(hdc, HORZRES)
    ResolutionActuelleY = GetDeviceCaps(hdc, VERTRES)
    ReleaseDC HWND_DESKTOP, hdc
 
    'Facteur de redimensionnement...
    FactRedimX = ResolutionActuelleX / ResolutionInitialeX
    FactRedimY = ResolutionActuelleY / ResolutionInitialeY
 
    'Ratio permettant d'agrandir légèrement les contrôles et les formulaires pour un facteur
    'inférieur ou égale à 1 (exemple : Initiale 1024 x 768, Actuelle 800 x 600)
    'afin de rendre certaines polices ou certains contrôles lisibles...
    'Il est IMPORTANT de vérifier constamment qu'un formulaire agrandi ne dépasse pas de la zone écran !!!
    RatioX = FactRedimX / FactRedimY
    RatioY = FactRedimY / FactRedimX
    If (ResolutionActuelleX <> ResolutionInitialeX) Or (ResolutionActuelleY <> ResolutionActuelleY) Then
        If RatioX <= 1 Then FactRedimX = FactRedimX * 1.1
        If RatioY <= 1 Then FactRedimY = FactRedimY * 1.05
    End If
 
Sortie:
    Exit Sub
 
Erreur:
    MsgBoxPlusErreur "modResolution", "ResolutionActuelle", CStr(Err.Number), Err.Description
    Err.Clear
    Resume Sortie
 
End Sub
'
'
'
'##################################################'
'                                                  '
'          CODE REDIMENSIONNEMENT GENERAL          '
'                                                  '
'##################################################'
Public Sub proResolution(ByRef frmRedim As Form)
On Error GoTo Erreur_proResolution
 
    Dim LargeurFormulaire As Long
    Dim HauteurFormulaire As Long
 
    Dim numControle As Integer
    Dim typeControle As Variant
 
    'Os : Objets spéciaux...
    Dim Os As Boolean 'Passe à Oui si des Os sont détectés (sauf pour OsSection, toujours présents)...
    Dim OsCompteur As Integer
 
    Dim OsSection(0 To 20) As Integer 'Nombre de sections possibles dans le formulaire (!), 21 est déjà pas mal ;-)...
 
    Dim OsNom(0 To 255) As String 'Nombre d'Os possible par formulaire (chaîne)...
    Dim OsCoords(0 To 255, 1 To 6) As Double 'Coordonnéees des Os...
 
    Dim OsColonnes(0 To 255) As String 'Largeur des colonnes pour les listes (chaînes)...
    Dim OsCarColonnes(0 To 255) As Long 'Nombre de caractères pour la chaîne OsColonnes...
    Dim OsPositionCar As Integer 'Position du caractère ";" dans la chaîne OsColonnes...
    Dim OsNombreColonnes As Integer 'Nombre de colonnes à redimensionner...
    Dim OsDimensionColonne(0 To 255) As String 'Dimensions de chaque colonne des listes...
    Dim OsRedimColonnes As String 'Redimensionnement des colonnes...
 
    Dim FactRedimPolice As Double
 
'Calcul des facteurs de redimensionnement, "enregistrement" des hauteurs des sections,
'et initialisation de la variable Os...
    ResolutionActuelle
    LargeurFormulaire = frmRedim.InsideWidth
    For OsCompteur = 0 To 20
        OsSection(OsCompteur) = frmRedim.Section(OsCompteur).Height
    Next
    Os = False
 
'Surdimensionnement (x2) du formulaire afin d'éviter l'erreur 2100 lors du redimensionnement des onglets...
    'Largeur...
    frmRedim.InsideWidth = LargeurFormulaire * 2
    'Hauteur...
    HauteurFormulaire = 0
    For OsCompteur = 0 To 20
        HauteurFormulaire = HauteurFormulaire + OsSection(OsCompteur)
        frmRedim.Section(OsCompteur).Height = OsSection(OsCompteur) * 2
    Next
    frmRedim.InsideHeight = HauteurFormulaire * 2
 
'Lecture des contrôles du formulaire à la recherche des Os !! (normalement 206 dans le corps humain)...
    For numControle = 0 To (frmRedim.Controls.Count - 1)
        typeControle = frmRedim.Controls(numControle).ControlType
        Select Case typeControle
            Case acOptionGroup, acPage
                Os = True
                With frmRedim.Controls(numControle)
                    OsNom(numControle) = .Name
                    OsCoords(numControle, 1) = .Left
                    OsCoords(numControle, 2) = .Top
                    OsCoords(numControle, 3) = .Width
                    OsCoords(numControle, 4) = .Height
                End With
            Case acTabCtl
                Os = True
                With frmRedim.Controls(numControle)
                    OsNom(numControle) = .Name
                    OsCoords(numControle, 1) = .Left
                    OsCoords(numControle, 2) = .Top
                    OsCoords(numControle, 3) = .Width
                    OsCoords(numControle, 4) = .Height
                        '1 à 4 : Left, Top, Width, Height de tous les contrôles Os...
                    OsCoords(numControle, 5) = .TabFixedWidth
                    OsCoords(numControle, 6) = .TabFixedHeight
                        '5 à 6 : Largeur et hauteur des étiquettes des contrôles Os onglets...
                End With
            Case acComboBox, acListBox
                Os = True
                With frmRedim.Controls(numControle)
                    OsNom(numControle) = .Name
                    OsColonnes(numControle) = .ColumnWidths
                    OsCarColonnes(numControle) = Len(.ColumnWidths)
                End With
        End Select
    Next
 
'Redimensionnement des contrôles...
    'Placement de tous les contrôles, sauf les onglets et les pages d'onglets...
    For numControle = 0 To (frmRedim.Controls.Count - 1)
        typeControle = frmRedim.Controls(numControle).ControlType
        Select Case typeControle
            Case acTabCtl, acPage
            Case Else
            frmRedim.Controls(numControle).Move Left:=frmRedim.Controls(numControle).Left * FactRedimX, _
                                                Top:=frmRedim.Controls(numControle).Top * FactRedimY
        End Select
    Next
 
    'Redimensionnement des contrôles...
    For numControle = 0 To (frmRedim.Controls.Count - 1)
        typeControle = frmRedim.Controls(numControle).ControlType
        Select Case typeControle
            Case acOptionGroup, acPage 'Os
                If Os = True Then
                    frmRedim.Controls(numControle).Move Left:=OsCoords(numControle, 1) * FactRedimX, _
                                                        Top:=OsCoords(numControle, 2) * FactRedimY, _
                                                        Width:=OsCoords(numControle, 3) * FactRedimX, _
                                                        Height:=OsCoords(numControle, 4) * FactRedimY
                End If
            Case acTabCtl 'Os
                If Os = True Then
                    frmRedim.Controls(numControle).TabFixedWidth = OsCoords(numControle, 5) * FactRedimX
                    frmRedim.Controls(numControle).TabFixedHeight = OsCoords(numControle, 6) * FactRedimY
                    frmRedim.Controls(numControle).Move Left:=OsCoords(numControle, 1) * FactRedimX, _
                                                        Top:=OsCoords(numControle, 2) * FactRedimY, _
                                                        Width:=OsCoords(numControle, 3) * FactRedimX, _
                                                        Height:=OsCoords(numControle, 4) * FactRedimY
                End If
            Case acComboBox, acListBox 'Os
                If Os = True Then
                    frmRedim.Controls(numControle).Move Left:=frmRedim.Controls(numControle).Left, _
                                                        Top:=frmRedim.Controls(numControle).Top, _
                                                        Width:=frmRedim.Controls(numControle).Width * FactRedimX, _
                                                        Height:=frmRedim.Controls(numControle).Height * FactRedimY
                    'Si des dimensions ont été renseignées à la création des listes...
                    If OsCarColonnes(numControle) > 0 Then
                        OsNombreColonnes = 1
                        'Test de la variable dimensions à la recherche des ";"...
                        For OsCompteur = 1 To OsCarColonnes(numControle)
                            OsPositionCar = InStr(OsCompteur, OsColonnes(numControle), ";", vbTextCompare)
                            If OsPositionCar <> 0 Then
                                OsNombreColonnes = OsNombreColonnes + 1
                                OsCompteur = OsPositionCar + 1
                            End If
                        Next
                    OsRedimColonnes = ""
                    'Redimensionne chaque colonne...
                    For OsCompteur = 0 To OsNombreColonnes - 1
                        OsDimensionColonne(OsCompteur) = Split(OsColonnes(numControle), ";")(OsCompteur)
                        'Si colonne non renseignée (sauf la dernière), elle est égale à zéro...
                        If Len(OsDimensionColonne(OsCompteur)) = 0 Then OsDimensionColonne(OsCompteur) = "0"
                        OsDimensionColonne(OsCompteur) = CDbl(OsDimensionColonne(OsCompteur)) * FactRedimX
                        OsRedimColonnes = OsRedimColonnes & OsDimensionColonne(OsCompteur) & ";"
                    Next
                    frmRedim.Controls(numControle).ColumnWidths = Left(OsRedimColonnes, Len(OsRedimColonnes) - 1)
                                                                  'Enlève le dernier ";"...
                    End If
                End If
            Case acOptionButton, acCheckBox 'Contrôles non redimensionnables...
                'La longueur ("virtuelle") est redimensionnée afin d'éviter au texte d'être trop collé...
                frmRedim.Controls(numControle).Move Left:=frmRedim.Controls(numControle).Left, _
                                                    Top:=frmRedim.Controls(numControle).Top, _
                                                    Width:=frmRedim.Controls(numControle).Width * FactRedimX, _
                                                    Height:=frmRedim.Controls(numControle).Height
            Case Else 'Tous les autres contrôles...
                frmRedim.Controls(numControle).Move Left:=frmRedim.Controls(numControle).Left, _
                                                    Top:=frmRedim.Controls(numControle).Top, _
                                                    Width:=frmRedim.Controls(numControle).Width * FactRedimX, _
                                                    Height:=frmRedim.Controls(numControle).Height * FactRedimY
        End Select
    Next
 
   'Redimensionnement des polices...
    FactRedimPolice = (IIf(FactRedimX > FactRedimY, FactRedimY, FactRedimX))
    For numControle = 0 To (frmRedim.Controls.Count - 1)
        typeControle = frmRedim.Controls(numControle).ControlType
        Select Case typeControle
            Case acOptionGroup, acPage, acRectangle, acLine, acCheckBox, acOptionButton, acImage, acCustomControl, _
                acSubform, acPageBreak, acBoundObjectFrame, acObjectFrame
                'Contrôles n'ayant pas de police...
            Case Else
                frmRedim.Controls(numControle).FontSize = frmRedim.Controls(numControle).FontSize * FactRedimPolice
        End Select
    Next
 
'Redimensionnement final du formulaire après redimensionnement des contrôles...
    'Largeur...
    frmRedim.InsideWidth = LargeurFormulaire * FactRedimX
    'Hauteur...
    HauteurFormulaire = 0
    For OsCompteur = 0 To 20
        HauteurFormulaire = HauteurFormulaire + OsSection(OsCompteur)
        frmRedim.Section(OsCompteur).Height = OsSection(OsCompteur) * FactRedimY
    Next
    frmRedim.InsideHeight = HauteurFormulaire * FactRedimY
 
Sortie_proResolution:
    Exit Sub
 
Erreur_proResolution:
    If Err.Number = 2462 Or Err.Number = 438 Or Err.Number = 2100 Then
        '2462 : Section inexistante, 438 : Propriété non gérée (polices), 2100 : Dépassement de capacité...
        Err.Clear
        Resume Next
    Else
        MsgBoxPlusErreur "modResolution", "proResolution", CStr(Err.Number), Err.Description
        Err.Clear
        Resume Sortie_proResolution
    End If
 
End Sub
'
'
'
'#############################################################'
'                                                             '
'          CODE REDIMENSIONNEMENT FEUILLE DE DONNEES          '
'                                                             '
'#############################################################'
Public Sub proResolutionFD(ByRef frmRedim As Form)
On Error GoTo Erreur_proResolutionFD
 
    Dim numControle As Integer
 
    For numControle = 0 To frmRedim.Controls.Count - 1
        Select Case frmRedim.Controls(numControle).ControlType
            Case 109 '109 : Contrôle colonne...
                CoordsFD(frmRedim.Count, numControle) = frmRedim.Controls(numControle).ColumnWidth
                frmRedim.Controls(numControle).ColumnWidth = frmRedim.Controls(numControle).ColumnWidth * FactRedimX
            End Select
    Next
 
Sortie_proResolutionFD:
    Exit Sub
 
Erreur_proResolutionFD:
    If Err.Number = 438 Then '438 : Propriété non gérée (colonnes)...
        Err.Clear
        Resume Next
    Else
        MsgBoxPlusErreur "modResolution", "proResolutionFD", CStr(Err.Number), Err.Description
        Err.Clear
        Resume Sortie_proResolutionFD
    End If
 
End Sub
'
'
'
Public Sub proResolutionFD_Exit(ByRef frmRedim As Form)
On Error GoTo Erreur_proResolutionFD_Exit
 
    Dim numControle As Integer
 
    For numControle = 0 To frmRedim.Controls.Count - 1
        Select Case frmRedim.Controls(numControle).ControlType
            Case 109 '109 : Contrôle colonne...
                frmRedim.Controls(numControle).ColumnWidth = CoordsFD(frmRedim.Count, numControle)
            End Select
    Next
 
Sortie_proResolutionFD_Exit:
    Exit Sub
 
Erreur_proResolutionFD_Exit:
    If Err.Number = 438 Then '438 : Propriété non gérée (colonnes)...
        Err.Clear
        Resume Next
    Else
        MsgBoxPlusErreur "modResolution", "proResolutionFD_Exit", CStr(Err.Number), Err.Description
        Err.Clear
        Resume Sortie_proResolutionFD_Exit
    End If
 
End Sub
'
'
'
'###############################'
'                               '
'          UTILISATION          '
'                               '
'###############################'
'
'Ecrire 'proResolution Me' dans la procédure VBA Form_Open du formulaire à redimensionner...
'
'Ecrire 'proResolutionFD Me' dans la procédure VBA Form_Open du formulaire feuille de données...
'
'Ecrire 'proResolutionFD_Exit Me.NomDuContrôleSousFormulaire.Form' dans la procédure VAB Form_Close
'du formulaire à redimensionner (celui contenant le(s) sous-formulaire(s) en feuille de données).
'A écrire autant de fois qu'il y a de sous-formulaires en feuille de données...
'
'Attention à bien dimensionner les colonnes au départ, sans aucun redimensionnement, et à prévoir une
'marge car l'ascenseur s'élargit lorsqu'on descend en résolution...

Le 20.07.2007 : Prise en charge des onglets et des boutons radios

Test effectués (Access 2003 et XP) : Boutons radios, cases à cocher, onglets avec plusieurs pages (contenant elles mêmes d'autres objets spéciaux), images, Calendrier ActiveX, et puis les contrôles standards : Boutons, listes, étiquettes...

Bogues constatés : Problème de redimensionnement des sections, colonnes des listes non redimensionnées...

Améliorations à venir :
+ Gestion de la largeur des colonnes des listes. Les listes se mettent aux bonnes dimensions, mais pas les colonnes. Elles restent fixent par rapport aux cm entrès lors de la conception...
+ Prise en charge complète des sections...

Le 21.07.2007 : Prise en charge des listes et des sections, simplification du code

Test effectués (Access 2003 et XP) : Tous les tests précédents ainsi que des tests avec différentes sections et différentes listes (fixes, déroulantes)

Le 26.07.2007 : Essai prise en charge des formulaires "feuille de données" + quelques 'tites modifs du code...

Nouveaux essais (Access 2003 et XP) : Concluants pour le 1er redimensionnement, mais les colonnes ne reprennent pas leurs dimensions originales...

Le 27.07.2007 : Prise en charge des formulaires "feuille de données"

Nouveaux essais concluants ! Petit bug constaté : Lorsqu'on change de résolution, il faut ouvrir deux fois le formulaire. La première fois, les colonnes sont invisibles, pourtant unr boite de message me certifie que celles-ci sont de largeur > 0... Je ne sais pas d'où ça vient...

Ceci dit, je pense qu'il faudrait pousser plus loin la recherche et affecter à chaque colonne, non pas une dimension, mais un pourcentage en fonction de la largeur (moins la largeur de l'ascenseur...).................

Tests à venir : Essais avec le RunTime...

Merci à tous pour vos conseils...

et merci d'avance si vous souhaitez jeter un oeil à ce code et effectuer différents tests...

Invité · 19/07/2007, 14h20

Bonjour

Il faudrait essayer de tester evec des composants non standard qui sont souvent utiliser sous Access (DtPicker, Calendrier, et...)

Starec

seb92400 · 19/07/2007, 14h22

Ok, je note...

Edit:
Pour le calendrier ActiveX, aucun problème... Il se redimensionne, j'ai juste corrigé au niveau du redimensionnement de la police (ce contrôle n'en ayant pas).

Je n'ai jamais utilisé le "dtPicker" par contre... je le trouve où ?

seb92400 · 20/07/2007, 08h59

Hello,

Je viens d'apporter quelques corrections à mon code de départ, notamment la gestion des onglets... J'ai également mis quelques annotations en plus...

PS : J'ai préféré corriger le code du début de mon premier messge afin qu'il n'y ait pas trop de codes ou trop de versions dans ce message... Si j'ai mal fait, n'hésitez pas à me corriger !!

Bonne journée à tous ! (euh... sous la pluie ici............)

**JeremieT** · 20/07/2007, 12h31

Bonjour à tous !

Ce sujet a l'air super intéressant !

J'ai donc tester le code, je suis sous Access 97.
Sur un Form_open j'ai donc indiqué proResolution Me et là j'ai une erreur à l'ouverture du formulaire :
"Erreur de compilation, sub ou fonction non définie" sur

Code :

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

1
2
3
4
5
Else
        MsgBoxPlusErreur "modResolution", "proResolution", CStr(Err.Number), Err.Description
        Err.Clear
        Resume Sortie_proResolution
    End If

Par avance merci :-)

seb92400 · 20/07/2007, 13h52

Hello,

Oui, tout à fait, et c'est normal !!!

C'est une gestion d'erreur perso ! Remplace ce morceau de code par :

Code :

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

1
2
3
MsgBox Err.Number & " : " & Err.Description
Err.Clear
Resume Sortie_proResolution

Voilà...

Attenton à une chose : Je ne sais pas si c'est compatible avec des versions antérieures à Access 2003...

**curt** · 12/04/2009, 21h36

Bonsoir à tous,

Le code (superbe !!) donné ici fonctionne correctement sur mon formulaire, mais, chose étrange, j'ai un soucis sur un Sous-formulaire en feuille de données qui ne m'affiche pas 10 contrôles (date) sur les 24 présents. Les largeurs de ces contrôles passent à 0 et du coup ne sont pas affichées.
Pour les autres contrôles, pas de soucis, ça fonctionne !!!
J'ai bien mis le code

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
    proResolutionFD Me
End Sub

sur le sous-formulaire... rien n'y fait.
Quelqu'un a déjà rencontré ce phénomène ??
En tout cas, bravo à Seb pour ce code.

Curt

**DMboup** · 07/04/2010, 13h10

Bonjour

J'ai beaucoup de bug avec ce code ci-dessous

Code :

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

1
2
3
Private Sub Form_Open(Cancel As Integer)
    proResolutionFD Me
End Sub

Par contre avec celui de ce lien ca marche trés bien et je suis même arrivé à l'appliquer sur les sous formulaires en mode continue.

Pour les feuilles de données ca ne marche pas chez moi.
Et pour terminer il ya un clignotement de l'écran au moment du redimensionnement qu'il faut peut être arriver à stabiliser.

**michelbrunet** · 03/10/2012, 08h25

Bonjour
Votre module m’intéresse beaucoup, mais pouvez vous m'en dire un peu plus sur sa méthode d'intégration. Sur mon application, j'ai plusieurs formulaires avec des gros boutons qui appellent eux même d'autres formulaires.
Merci de m'apporter quelques éclaircissements.
Cordialement,
Michel

**Majora1** · 20/06/2018, 18h58

Bonjour Monsieur Seb, je viens de tomber sur votre code et j'aimerais savoir si vous avez puis sortir un API final pour ce poste parce que j'en ai vraiment besoin.
Au passage je remercie tous les membres de ce forum, franchement vous faites un excellent travail. Merci

**stigma** · 29/12/2021, 14h24

Un peu tard je sais.
Access 2003 : ça ne fonctionne pas avec les sous-Formulaires continus. Il n'y a qu'un enregistrement à la fois qui apparaît

**micniv** · 29/12/2021, 15h29

dixit Stigma : Access 2003 : ça ne fonctionne pas avec les sous-Formulaires continus

Est-ce que je lis bien ou alors on passe directement au 1er avril 2022 ?

**stigma** · 29/12/2021, 16h38

Envoyé par micniv

Est-ce que je lis bien ou alors on passe directement au 1er avril 2022 ?

???

**micniv** · 30/12/2021, 11h24

Désolé, Stigma ! J'ai lu un peu vite hier :en lecture trop rapide, je comprenais que les formulaires continus ne fonctionnaient pas en ACC2003 ...

Bon Access en 2022 !

**philepil** · 18/08/2022, 10h56

Bonjour
J'utilise ce code depuis plusieurs années, un grand merci et félicitations pour ce développement !

Cependant depuis quelque temps (je précise que j'utilise la fonction telle quelle sans modification), le système se met à "dérailler"

Le changement de résolution se fait de manière erratique et la résolution reste à la valeur précédente comme si access conservait les "derniers paramètres quelque part"
J'ai beau lancer les fonctions de dimensionnement et de suppression de ce re dimensionnent, rien n'y fait !
Cdlt
Phil

[QUOTE=seb92400;2316812]Hello,

Voici un code à placer dans un module... Il permet de détecter la résolution actuelle de l'écran et de redimensionner en fonction de la résolution de développement.

Ca existait déjà, les petits + sont :
+ Gestion des contrôles spéciaux : Onglets, boutons radios, listes, sections...
+ Lisibilité améliorée des polices (par un léger agrandissement à prendre en compte lors de la création)
+ Gestion des résolutions plus élevées, mais aussi plus petites
+ Gestion des contrôles ActiveX (Comme le calendrier. Attention toutefois, les polices de celui-ci étant intégrées, il arrive que pour certaines résolutions, le texte de la date disparaisse s'il est trop petit, comme le Calendrier, par exemple. mais c'est à prendre à compte lors de la conception)...

Voici le code. Je suis ouvert à toutes les remarques et à tous les bugs

PS : Comme c'est la première que je poste ici, soyez indulgent, hein ???

**User** · 23/08/2022, 17h35

Bonjour,

Envoyé par philepil

Bonjour
J'utilise ce code depuis plusieurs années, un grand merci et félicitations pour ce développement !

Cependant depuis quelque temps (je précise que j'utilise la fonction telle quelle sans modification), le système se met à "dérailler"

Le changement de résolution se fait de manière erratique et la résolution reste à la valeur précédente comme si access conservait les "derniers paramètres quelque part"

Je ne sais pas si cela à un lien avec votre problème mais le dimensionnement se fait à partir de valeurs initiales qui devrait correspondre à la résolution de votre écran.

Vos valeurs doivent être renseignées en haut du module :

Code :

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

1
2
Private Const ResolutionInitialeX = 1024
Private Const ResolutionInitialeY = 768

Cdlt,

**Gado2600** · 22/09/2022, 17h50

Bonjour,

Je viens de tomber sur ce topic, qui est fort intéressant.

J'ai un problème qui me semble similaire à celui de Philepil : je récupère la résolution de l'écran actif mais des fois, il applique le ratio de la mise à l'échelle Windows (100%, 125%...) et des fois, non.
Cela est assez récent de mon côté (sur une bonne dizaine de posts) et assez aléatoire.

Auriez-vous des informations sur ce problème qui me semble récent ?

Cordialement,

[IHM] Gérer la résolution des formulaires [Sources]

Contribuez

Vue hybride

Discussions similaires

Partager

Partager