Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

resolution d'ecran

7 réponses
Avatar
le méruvien
Bonjour a tous, je voudrais ameliorer ma base de maniere à ce qu'au
demarrage elle s'ouvre selon la resolution de mon ecran, j'avais il y a un
an obtenu de "Drizzit" la procedure ci-dessous, mais malheureusement ça
marche pas, j'ai un message qui me dis: " type d'argument Byref
incompatible"

' resolution de l'ecran
'Type rect
' X1 As Long
' Y1 As Long
' X2 As Long
' Y2 As Long
'End Type
'Declare Function getdesktopwindow Lib "user32" () As Long
'Declare Function getwindowrect Lib "user32" (ByVal hwnd As Long, rectangle
As rect) As Long
'Function getscreenresolution() As String
' hwnd = getdesktopwindow()
' retvai = getwindowrect(hwnd, R)
' getscreenresolution = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
'End Function
Ou est l'erreur, comment faire fonctionner cette procedure ?
Merci

--
Roger.
http://le-meruvien.skynetblogs.be/

7 réponses

Avatar
Eric
Bonjour,


Function GetScreenResolution() As String
Dim R As rect ' <---- manquait cette déclaration
hwnd = GetDesktopWindow()
RetVal = GetWindowRect(hwnd, R)
GetScreenResolution = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
End Function

Bonjour a tous, je voudrais ameliorer ma base de maniere à ce qu'au
demarrage elle s'ouvre selon la resolution de mon ecran, j'avais il y a un
an obtenu de "Drizzit" la procedure ci-dessous, mais malheureusement ça
marche pas, j'ai un message qui me dis: " type d'argument Byref
incompatible"

' resolution de l'ecran
'Type rect
' X1 As Long
' Y1 As Long
' X2 As Long
' Y2 As Long
'End Type
'Declare Function getdesktopwindow Lib "user32" () As Long
'Declare Function getwindowrect Lib "user32" (ByVal hwnd As Long, rectangle
As rect) As Long
'Function getscreenresolution() As String
' hwnd = getdesktopwindow()
' retvai = getwindowrect(hwnd, R)
' getscreenresolution = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
'End Function
Ou est l'erreur, comment faire fonctionner cette procedure ?
Merci



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
le méruvien
bonjour eric, il n'y a plus de message d'erreur, mais au lancement de la
base, il ne tiens pas compte de la resolution de l'ecran.
Enfin ça fait rien, merci quand même


--
Roger.
http://le-meruvien.skynetblogs.be/
"Eric" a écrit dans le message de news:

Bonjour,


Function GetScreenResolution() As String
Dim R As rect ' <---- manquait cette déclaration
hwnd = GetDesktopWindow()
RetVal = GetWindowRect(hwnd, R)
GetScreenResolution = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
End Function

Bonjour a tous, je voudrais ameliorer ma base de maniere à ce qu'au
demarrage elle s'ouvre selon la resolution de mon ecran, j'avais il y a
un an obtenu de "Drizzit" la procedure ci-dessous, mais malheureusement
ça marche pas, j'ai un message qui me dis: " type d'argument Byref
incompatible"

' resolution de l'ecran
'Type rect
' X1 As Long
' Y1 As Long
' X2 As Long
' Y2 As Long
'End Type
'Declare Function getdesktopwindow Lib "user32" () As Long
'Declare Function getwindowrect Lib "user32" (ByVal hwnd As Long,
rectangle As rect) As Long
'Function getscreenresolution() As String
' hwnd = getdesktopwindow()
' retvai = getwindowrect(hwnd, R)
' getscreenresolution = (R.X2 - R.X1) & "x" & (R.Y2 - R.Y1)
'End Function
Ou est l'erreur, comment faire fonctionner cette procedure ?
Merci



--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
Bonjour Roger,

Comme tu n'avais donné qu'un extrait de code, j'ai répondu pour le
message d'erreur que tu avais.

Si tu veux un redimensionnement automatique des formulaires en fonction
de la résolution écran de tes utilisateurs, regardes du côté de Jessy.
Il propose une base en téléchargement à cette adresse :
http://access.fr.free.fr/download.php?lng=fr

Il faut cliquer sur la disquette Formulaire, choisir le 3ème item.
Il présente le code principal et en bas de page le téléchargement.

Bon courage.

bonjour eric, il n'y a plus de message d'erreur, mais au lancement de la
base, il ne tiens pas compte de la resolution de l'ecran.
Enfin ça fait rien, merci quand même




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
le méruvien
merci beaucoup!
tiens, un truc qui me dépasse! (je crois que je vieillit!)
dans un formulaire tout bête, qui recense les communes françaises, j'ai un
champ texte.
dans la table, il s'affiche bien, mais dans mon formulaire, au lieu
d'afficher le texte, il m'affiche un chiffre!!



--
Roger.
http://le-meruvien.skynetblogs.be/
"Eric" a écrit dans le message de news:

Bonjour Roger,

Comme tu n'avais donné qu'un extrait de code, j'ai répondu pour le message
d'erreur que tu avais.

Si tu veux un redimensionnement automatique des formulaires en fonction de
la résolution écran de tes utilisateurs, regardes du côté de Jessy. Il
propose une base en téléchargement à cette adresse :
http://access.fr.free.fr/download.php?lng=fr

Il faut cliquer sur la disquette Formulaire, choisir le 3ème item.
Il présente le code principal et en bas de page le téléchargement.

Bon courage.

bonjour eric, il n'y a plus de message d'erreur, mais au lancement de la
base, il ne tiens pas compte de la resolution de l'ecran.
Enfin ça fait rien, merci quand même




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,

Quelle est la nature du contrôle du formulaire affichant le chiffre/nombre ?

merci beaucoup!
tiens, un truc qui me dépasse! (je crois que je vieillit!)
dans un formulaire tout bête, qui recense les communes françaises, j'ai un
champ texte.
dans la table, il s'affiche bien, mais dans mon formulaire, au lieu
d'afficher le texte, il m'affiche un chiffre!!





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
le méruvien
dans la liste de choix de la tbl, il était definie en liste deroulante, mais
je l'ai mis en zone de texte, et malgrés ça, dans le form, il affiche
toujours un chiffre, alors que dans la tbl il affiche bien de nom


--
Roger.
http://le-meruvien.skynetblogs.be/
"Eric" a écrit dans le message de news:

re,

Quelle est la nature du contrôle du formulaire affichant le chiffre/nombre
?

merci beaucoup!
tiens, un truc qui me dépasse! (je crois que je vieillit!)
dans un formulaire tout bête, qui recense les communes françaises, j'ai
un champ texte.
dans la table, il s'affiche bien, mais dans mon formulaire, au lieu
d'afficher le texte, il m'affiche un chiffre!!





--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr




Avatar
Eric
re,

Dans la liste de choix de la table tu as du construire sa source à
partir d'une requête, faite sur une table, contenant un champ numérique
et un champ texte en précisant 2 colonnes, que la colonne liée était la
1 et defini les largeurs à 0 cm pour la 1ere et x cm pour la seconde.
Dans la table, il affiche le texte car la 1ere colonne stocke la clé
primaire et sa largeur est nulle.
Dans le formulaire, tu as remplacé la liste déroulante par une zone de
texte donc cette dernière contient la valeur de la 1ere colonne de ta
liste déroulante ce qui affiche le chiffre.

dans la liste de choix de la tbl, il était definie en liste deroulante, mais
je l'ai mis en zone de texte, et malgrés ça, dans le form, il affiche
toujours un chiffre, alors que dans la tbl il affiche bien de nom




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr