resolution d'ecran

Le
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/
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Eric
Le #6191211
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

le méruvien
Le #6191091
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"
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




Eric
Le #6191081
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

le méruvien
Le #6191071
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"
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




Eric
Le #6191021
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

le méruvien
Le #6190991
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"
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




Eric
Le #6190941
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

Publicité
Poster une réponse
Anonyme