Comment connaître la taille en cm, ou mm, d'un écran ???
Comment connaître la taille en cm, ou mm, d'un écran ???
Comment connaître la taille en cm, ou mm, d'un écran ???
Bonjour,
Comment connaître la taille en cm, ou mm, d'un écran ???
Bonjour,
Comment connaître la taille en cm, ou mm, d'un écran ???
Bonjour,
Comment connaître la taille en cm, ou mm, d'un écran ???
Comment connaître la taille en cm, ou mm, d'un écran ???
Comment connaître la taille en cm, ou mm, d'un écran ???
Comment connaître la taille en cm, ou mm, d'un écran ???
Ah, y a un truc que je ne comprends pas, c'est l'aide pour utiliser:
x = Round(Form1.ScaleX(1, vbCentimeters, vbPixels), 0)
y = Round(Form1.ScaleY(1, vbCentimeters, vbPixels), 0)
ScaleY(A, B, C)
A
dit "le nombre d'unités de mesure à convertir"
Où que je sais ça moi ??? C'est l'écran que je veux, sa taille, que mettre
???
B et C, est "Origine, Cible", ou "Cible, Origine"
Normalement, n'ayant désormais rien spécifié, ça doit marcher en twips,
faut-il mettre "vbtwips, vbcentimeters" ou "vbcentimeters, vbtwips" ???
Ah, y a un truc que je ne comprends pas, c'est l'aide pour utiliser:
x = Round(Form1.ScaleX(1, vbCentimeters, vbPixels), 0)
y = Round(Form1.ScaleY(1, vbCentimeters, vbPixels), 0)
ScaleY(A, B, C)
A
dit "le nombre d'unités de mesure à convertir"
Où que je sais ça moi ??? C'est l'écran que je veux, sa taille, que mettre
???
B et C, est "Origine, Cible", ou "Cible, Origine"
Normalement, n'ayant désormais rien spécifié, ça doit marcher en twips,
faut-il mettre "vbtwips, vbcentimeters" ou "vbcentimeters, vbtwips" ???
Ah, y a un truc que je ne comprends pas, c'est l'aide pour utiliser:
x = Round(Form1.ScaleX(1, vbCentimeters, vbPixels), 0)
y = Round(Form1.ScaleY(1, vbCentimeters, vbPixels), 0)
ScaleY(A, B, C)
A
dit "le nombre d'unités de mesure à convertir"
Où que je sais ça moi ??? C'est l'écran que je veux, sa taille, que mettre
???
B et C, est "Origine, Cible", ou "Cible, Origine"
Normalement, n'ayant désormais rien spécifié, ça doit marcher en twips,
faut-il mettre "vbtwips, vbcentimeters" ou "vbcentimeters, vbtwips" ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
' mesures écran, form 1
Option Explicit
Sub Form_Activate()
Dim x As Long, y As Double
Dim s
s = vbCrLf
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Text1 = ""
Text1 = Text1 & "Ecran de " & Screen.Width & " x " & Screen.Height & "
Twips" & s
Text1 = Text1 & "Ecran de " & x & " x " & y & " Pixels" & s
x = ScaleX(Screen.Width, vbTwips, vbCentimeters)
y = ScaleY(Screen.Height, vbTwips, vbCentimeters)
Text1 = Text1 & "Ecran de " & Round(x, 0) & " x " & Round(y, 0) & "
Centimètres" & s
-------------------
Il me sort 27 x 20 ???
NB, je crois que ton "Me" ne sert à rien, car, si aucun objet n'est indiqué,
par défaut c'est la form (et dans ce cas Me = la form), non ???
Alors que j'ai env (mesure au réglet) : 33 x 24...
Sais-tu où st l'esrreur ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
' mesures écran, form 1
Option Explicit
Sub Form_Activate()
Dim x As Long, y As Double
Dim s
s = vbCrLf
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Text1 = ""
Text1 = Text1 & "Ecran de " & Screen.Width & " x " & Screen.Height & "
Twips" & s
Text1 = Text1 & "Ecran de " & x & " x " & y & " Pixels" & s
x = ScaleX(Screen.Width, vbTwips, vbCentimeters)
y = ScaleY(Screen.Height, vbTwips, vbCentimeters)
Text1 = Text1 & "Ecran de " & Round(x, 0) & " x " & Round(y, 0) & "
Centimètres" & s
-------------------
Il me sort 27 x 20 ???
NB, je crois que ton "Me" ne sert à rien, car, si aucun objet n'est indiqué,
par défaut c'est la form (et dans ce cas Me = la form), non ???
Alors que j'ai env (mesure au réglet) : 33 x 24...
Sais-tu où st l'esrreur ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
' mesures écran, form 1
Option Explicit
Sub Form_Activate()
Dim x As Long, y As Double
Dim s
s = vbCrLf
x = Screen.Width / Screen.TwipsPerPixelX
y = Screen.Height / Screen.TwipsPerPixelY
Text1 = ""
Text1 = Text1 & "Ecran de " & Screen.Width & " x " & Screen.Height & "
Twips" & s
Text1 = Text1 & "Ecran de " & x & " x " & y & " Pixels" & s
x = ScaleX(Screen.Width, vbTwips, vbCentimeters)
y = ScaleY(Screen.Height, vbTwips, vbCentimeters)
Text1 = Text1 & "Ecran de " & Round(x, 0) & " x " & Round(y, 0) & "
Centimètres" & s
-------------------
Il me sort 27 x 20 ???
NB, je crois que ton "Me" ne sert à rien, car, si aucun objet n'est indiqué,
par défaut c'est la form (et dans ce cas Me = la form), non ???
Alors que j'ai env (mesure au réglet) : 33 x 24...
Sais-tu où st l'esrreur ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
par défaut c'est la form (et dans ce cas Me = la form), non ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
par défaut c'est la form (et dans ce cas Me = la form), non ???
Jacques, marche pas, mais y'a du mieux, j'ai fait ça :
par défaut c'est la form (et dans ce cas Me = la form), non ???