Bonjour à tous,
J'aimerais savoir s'il existe une possibilité de connaitre la résolution
d'écran d'un pc au travers d'une fonction ?
Merci à tous de vos réponses et bonne journée.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Sweety
Avec ceci par exemple :
Private Sub Bouton1_Click() Largeur% = Screen.Width Screen.TwipsPerPixelX Hauteur% = Screen.Height Screen.TwipsPerPixelY MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + Str$(Hauteur%), vbInformation End Sub
"Yvan" a écrit dans le message de news:
| Bonjour à tous, | J'aimerais savoir s'il existe une possibilité de connaitre la résolution | d'écran d'un pc au travers d'une fonction ? | Merci à tous de vos réponses et bonne journée. | |
Avec ceci par exemple :
Private Sub Bouton1_Click()
Largeur% = Screen.Width Screen.TwipsPerPixelX
Hauteur% = Screen.Height Screen.TwipsPerPixelY
MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" +
Str$(Hauteur%), vbInformation
End Sub
"Yvan" <s.yvan@noos.fr> a écrit dans le message de news:
ODf0NwdgEHA.704@TK2MSFTNGP12.phx.gbl...
| Bonjour à tous,
| J'aimerais savoir s'il existe une possibilité de connaitre la
résolution
| d'écran d'un pc au travers d'une fonction ?
| Merci à tous de vos réponses et bonne journée.
|
|
Private Sub Bouton1_Click() Largeur% = Screen.Width Screen.TwipsPerPixelX Hauteur% = Screen.Height Screen.TwipsPerPixelY MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + Str$(Hauteur%), vbInformation End Sub
"Yvan" a écrit dans le message de news:
| Bonjour à tous, | J'aimerais savoir s'il existe une possibilité de connaitre la résolution | d'écran d'un pc au travers d'une fonction ? | Merci à tous de vos réponses et bonne journée. | |
3stone
Salut,
"Sweety"
Private Sub Bouton1_Click() Largeur% = Screen.Width Screen.TwipsPerPixelX Hauteur% = Screen.Height Screen.TwipsPerPixelY MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + Str$(Hauteur%), vbInformation End Sub
Access 200x ?
Avec ceci aussi:
http://www.mvps.org/accessfr/apis/api0012.htm
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"Sweety"
Private Sub Bouton1_Click()
Largeur% = Screen.Width Screen.TwipsPerPixelX
Hauteur% = Screen.Height Screen.TwipsPerPixelY
MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" +
Str$(Hauteur%), vbInformation
End Sub
Access 200x ?
Avec ceci aussi:
http://www.mvps.org/accessfr/apis/api0012.htm
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
Private Sub Bouton1_Click() Largeur% = Screen.Width Screen.TwipsPerPixelX Hauteur% = Screen.Height Screen.TwipsPerPixelY MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + Str$(Hauteur%), vbInformation End Sub
Access 200x ?
Avec ceci aussi:
http://www.mvps.org/accessfr/apis/api0012.htm
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Sweety
Ben non ça ne marche pas avec Access 2000...
"Sweety" <*enlevez_ceci* a écrit dans le message de news: u# | Avec ceci par exemple : | | Private Sub Bouton1_Click() | Largeur% = Screen.Width Screen.TwipsPerPixelX | Hauteur% = Screen.Height Screen.TwipsPerPixelY | MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + | Str$(Hauteur%), vbInformation | End Sub | | | | "Yvan" a écrit dans le message de news: | | | Bonjour à tous, | | J'aimerais savoir s'il existe une possibilité de connaitre la | résolution | | d'écran d'un pc au travers d'une fonction ? | | Merci à tous de vos réponses et bonne journée. | | | | | |
Ben non ça ne marche pas avec Access 2000...
"Sweety" <*enlevez_ceci*cool_cat@skynet.be> a écrit dans le message de news:
u#HzaCegEHA.3916@TK2MSFTNGP11.phx.gbl...
| Avec ceci par exemple :
|
| Private Sub Bouton1_Click()
| Largeur% = Screen.Width Screen.TwipsPerPixelX
| Hauteur% = Screen.Height Screen.TwipsPerPixelY
| MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" +
| Str$(Hauteur%), vbInformation
| End Sub
|
|
|
| "Yvan" <s.yvan@noos.fr> a écrit dans le message de news:
| ODf0NwdgEHA.704@TK2MSFTNGP12.phx.gbl...
| | Bonjour à tous,
| | J'aimerais savoir s'il existe une possibilité de connaitre la
| résolution
| | d'écran d'un pc au travers d'une fonction ?
| | Merci à tous de vos réponses et bonne journée.
| |
| |
|
|
"Sweety" <*enlevez_ceci* a écrit dans le message de news: u# | Avec ceci par exemple : | | Private Sub Bouton1_Click() | Largeur% = Screen.Width Screen.TwipsPerPixelX | Hauteur% = Screen.Height Screen.TwipsPerPixelY | MsgBox "Résolution de l'écran : " & Chr$(10) & Str$(Largeur%) + " x" + | Str$(Hauteur%), vbInformation | End Sub | | | | "Yvan" a écrit dans le message de news: | | | Bonjour à tous, | | J'aimerais savoir s'il existe une possibilité de connaitre la | résolution | | d'écran d'un pc au travers d'une fonction ? | | Merci à tous de vos réponses et bonne journée. | | | | | |
