bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS l a
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS l a
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS l a
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
e4f975de-34c8-4643-b764-320b5f3f4def@z9g2000yqz.googlegroups.com...
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
e4f975de-34c8-4643-b764-320b5f3f4def@z9g2000yqz.googlegroups.com...
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a écrit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / récupère les valeurs
(géométriques )systeme de l'écran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l'écran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l'écran, et donc, je pensais
que si le nb point max verticaux de l'écran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait çà, mon USF disparait (je pense qu'il est SOUS la
limite basse de l'écran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
José
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$ peranza.aioe.org...
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$ 9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$al...@s peranza.aioe.org...
;o)
l'autre droite .
"michdenis" <michde...@hotmail.com> a crit dans le message denews:idbe6d$ 9ji$1@speranza.aioe.org...
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
> e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$ peranza.aioe.org...
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$ 9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF =
largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$al...@speranza.aioe.org...
;o)
l'autre droite .
"michdenis" <michde...@hotmail.com> a crit dans le message denews:idbe6d$9ji$1@speranza.aioe.org...
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
> e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$al...@speranza.aioe.org...
;o)
l'autre droite .
"michdenis" <michde...@hotmail.com> a crit dans le message denews:idbe6d$9ji$1@speranza.aioe.org...
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
> e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
MichD
--------------------------------------------
"LSteph" a crit dans le message de groupe de discussion : iddebq$
;o)
l'autre droite .
"michdenis" a crit dans le message denews:idbe6d$9ji$
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF > > largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Bonjour,
Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
bonjour, et bon appetit (bientot)
j'ai ce code :
hdc = GetDC(0) 'get the system settings / r cup re les valeurs
(g om triques )systeme de l' cran
currHRes = GetDeviceCaps(hdc, HORZRES)
currVRes = GetDeviceCaps(hdc, VERTRES)
currBPP = GetDeviceCaps(hdc, BITSPIXEL)
currVFreq = GetDeviceCaps(hdc, VREFRESH)
Me.Width = Application.UsableWidth 'max largeur possible du USF > largeur de l' cran
With UserForm1
.StartUpPosition = 0
.Left = 100 '
.Top = currVRes - Me.Height
End With
j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
la hauteur
du userform.
ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
limite basse de l' cran.
Est possible ? comment dois je m'y prendre.
Merci pour votre aide.
Jos
Un autre fichier exemple. Ce dernier 2 modules
dont l'un contient une fonction pour trouver la hauteur
de la barre des t ches de Windows afin d'afficher le
formulaire juste au dessus dans le coin inf rieur gauche.
http://cjoint.com/?0mgtQNlwhro
MichD
--------------------------------------------
"michdenis" a crit dans le message de groupe de discussion : idja0v$ur
A ) Si tu n'as pas pu tester le fichier cette adresse :
http://cjoint.com/?0mdtXXczx7f
Comment fais-tu pour dire que la solution propos e ne
r pond pas tes attentes.
B ) Est-ce important de comprendre les API ?
En autant que l'on puisse les utiliser, m me si la
compr hension compl te est d faillante, je ne crois
pas que cela cause un probl me moins de vouloir
devenir un programmeur m rite !
C ) Dans la donne de ton probl me, tu ne d cris pas ce que
tu entends par le coin inf rieur gauche...
- Est-ce imm diatement au-dessus de la barre des t ches
- Est vraiment dans le coin inf rieur gauche?... mais si la b arre
des t ches est pr sente, une partie du formulaire sera so us
cette derni re.
D ) J'ai test le fichier envoy sous 2 r solutions diff rentes d' cran
1280 x 1024 et 800 x 600 et dans les 2 cas, le form ulaire s'affiche
juste au dessus de la barre des t ches dans le coin inf rieur gauche.
Un autre fichier exemple : http://cjoint.com/?0mgtAVRttfv
E ) si tu veux que le formulaire s'affiche juste au dessus de la barre de s t ches
la proc dure se complique du fait que l'on doit trouver la hau teur de cette
barre.
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
Je suis bien gauche pour comprendre tout ...
j'ai pa p tester le fichier en cjoint car c'est bloqu par mon
parefeu ..
pour le reste.... je ne comprend pas.
est ce que c'est le facteur de zoom ?
et pourquoi il semble que la m thode
change d'une machine une autre ? (enfin si j'ai capt quelque
chose ?)
je suis vraiment d sol de vous embeter avec , mais,
j'ai une usf non modal qui fait 43 pixels de hauteurs, et j'aimerai
la caller, tout simplement en bas de mon cran qui
une r solution verticale de 1050 points. (ou pixels, je ne sais plus
du coup).
lorsque je fait userform1.top = 1050 - 43 passe *sous* l' cran (je
suis pas
all voir d rri re .....)
merci pour votre aide.
Jos
On 4 d c, 16:00, "michdenis" wrote:
> De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
> MichD
> --------------------------------------------
> "LSteph" a crit dans le message de groupe de discussion : iddebq$al.
> ;o)
> l'autre droite .
> "michdenis" a crit dans le message denews:idbe6 d$9ji$
> > Bonjour,
> > Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> > MichD
> > --------------------------------------------
> > "Alfred WALLACE" a crit dans le message de groupe de discussion :
> >
> > bonjour, et bon appetit (bientot)
> > j'ai ce code :
> > hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> > (g om triques )systeme de l' cran
> > currHRes = GetDeviceCaps(hdc, HORZRES)
> > currVRes = GetDeviceCaps(hdc, VERTRES)
> > currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> > currVFreq = GetDeviceCaps(hdc, VREFRESH)
> > Me.Width = Application.UsableWidth 'max largeur possible du USF =
> > largeur de l' cran
> > With UserForm1
> > .StartUpPosition = 0
> > .Left = 100 '
> > .Top = currVRes - Me.Height
> > End With
> > j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> > que si le nb point max verticaux de l' cran est 1050, ben top = 105 0 -
> > la hauteur
> > du userform.
> > ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> > limite basse de l' cran.
> > Est possible ? comment dois je m'y prendre.
> > Merci pour votre aide.
> > Jos
On 3 d c, 19:50, "michdenis" wrote:
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Un autre fichier exemple. Ce dernier 2 modules
dont l'un contient une fonction pour trouver la hauteur
de la barre des t ches de Windows afin d'afficher le
formulaire juste au dessus dans le coin inf rieur gauche.
http://cjoint.com/?0mgtQNlwhro
MichD
--------------------------------------------
"michdenis" a crit dans le message de groupe de discussion : idja0v$ur ...@speranza.aioe.org...
A ) Si tu n'as pas pu tester le fichier cette adresse :
http://cjoint.com/?0mdtXXczx7f
Comment fais-tu pour dire que la solution propos e ne
r pond pas tes attentes.
B ) Est-ce important de comprendre les API ?
En autant que l'on puisse les utiliser, m me si la
compr hension compl te est d faillante, je ne crois
pas que cela cause un probl me moins de vouloir
devenir un programmeur m rite !
C ) Dans la donne de ton probl me, tu ne d cris pas ce que
tu entends par le coin inf rieur gauche...
- Est-ce imm diatement au-dessus de la barre des t ches
- Est vraiment dans le coin inf rieur gauche?... mais si la b arre
des t ches est pr sente, une partie du formulaire sera so us
cette derni re.
D ) J'ai test le fichier envoy sous 2 r solutions diff rentes d' cran
1280 x 1024 et 800 x 600 et dans les 2 cas, le form ulaire s'affiche
juste au dessus de la barre des t ches dans le coin inf rieur gauche.
Un autre fichier exemple : http://cjoint.com/?0mgtAVRttfv
E ) si tu veux que le formulaire s'affiche juste au dessus de la barre de s t ches
la proc dure se complique du fait que l'on doit trouver la hau teur de cette
barre.
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
f6c18ea6-fd79-4f8e-b224-8bcd1cbb9...@p7g2000prb.googlegroups.com...
Je suis bien gauche pour comprendre tout ...
j'ai pa p tester le fichier en cjoint car c'est bloqu par mon
parefeu ..
pour le reste.... je ne comprend pas.
est ce que c'est le facteur de zoom ?
et pourquoi il semble que la m thode
change d'une machine une autre ? (enfin si j'ai capt quelque
chose ?)
je suis vraiment d sol de vous embeter avec , mais,
j'ai une usf non modal qui fait 43 pixels de hauteurs, et j'aimerai
la caller, tout simplement en bas de mon cran qui
une r solution verticale de 1050 points. (ou pixels, je ne sais plus
du coup).
lorsque je fait userform1.top = 1050 - 43 passe *sous* l' cran (je
suis pas
all voir d rri re .....)
merci pour votre aide.
Jos
On 4 d c, 16:00, "michdenis" <michde...@hotmail.com> wrote:
> De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
> MichD
> --------------------------------------------
> "LSteph" a crit dans le message de groupe de discussion : iddebq$al. ..@speranza.aioe.org...
> ;o)
> l'autre droite .
> "michdenis" <michde...@hotmail.com> a crit dans le message denews:idbe6 d$9ji$1@speranza.aioe.org...
> > Bonjour,
> > Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> > MichD
> > --------------------------------------------
> > "Alfred WALLACE" a crit dans le message de groupe de discussion :
> > e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
> > bonjour, et bon appetit (bientot)
> > j'ai ce code :
> > hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> > (g om triques )systeme de l' cran
> > currHRes = GetDeviceCaps(hdc, HORZRES)
> > currVRes = GetDeviceCaps(hdc, VERTRES)
> > currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> > currVFreq = GetDeviceCaps(hdc, VREFRESH)
> > Me.Width = Application.UsableWidth 'max largeur possible du USF =
> > largeur de l' cran
> > With UserForm1
> > .StartUpPosition = 0
> > .Left = 100 '
> > .Top = currVRes - Me.Height
> > End With
> > j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> > que si le nb point max verticaux de l' cran est 1050, ben top = 105 0 -
> > la hauteur
> > du userform.
> > ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> > limite basse de l' cran.
> > Est possible ? comment dois je m'y prendre.
> > Merci pour votre aide.
> > Jos
On 3 d c, 19:50, "michdenis" <michde...@hotmail.com> wrote:
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
> e4f975de-34c8-4643-b764-320b5f3f4...@z9g2000yqz.googlegroups.com...
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos
Un autre fichier exemple. Ce dernier 2 modules
dont l'un contient une fonction pour trouver la hauteur
de la barre des t ches de Windows afin d'afficher le
formulaire juste au dessus dans le coin inf rieur gauche.
http://cjoint.com/?0mgtQNlwhro
MichD
--------------------------------------------
"michdenis" a crit dans le message de groupe de discussion : idja0v$ur
A ) Si tu n'as pas pu tester le fichier cette adresse :
http://cjoint.com/?0mdtXXczx7f
Comment fais-tu pour dire que la solution propos e ne
r pond pas tes attentes.
B ) Est-ce important de comprendre les API ?
En autant que l'on puisse les utiliser, m me si la
compr hension compl te est d faillante, je ne crois
pas que cela cause un probl me moins de vouloir
devenir un programmeur m rite !
C ) Dans la donne de ton probl me, tu ne d cris pas ce que
tu entends par le coin inf rieur gauche...
- Est-ce imm diatement au-dessus de la barre des t ches
- Est vraiment dans le coin inf rieur gauche?... mais si la b arre
des t ches est pr sente, une partie du formulaire sera so us
cette derni re.
D ) J'ai test le fichier envoy sous 2 r solutions diff rentes d' cran
1280 x 1024 et 800 x 600 et dans les 2 cas, le form ulaire s'affiche
juste au dessus de la barre des t ches dans le coin inf rieur gauche.
Un autre fichier exemple : http://cjoint.com/?0mgtAVRttfv
E ) si tu veux que le formulaire s'affiche juste au dessus de la barre de s t ches
la proc dure se complique du fait que l'on doit trouver la hau teur de cette
barre.
MichD
--------------------------------------------
"Alfred WALLACE" a crit dans le message de groupe de discussion :
Je suis bien gauche pour comprendre tout ...
j'ai pa p tester le fichier en cjoint car c'est bloqu par mon
parefeu ..
pour le reste.... je ne comprend pas.
est ce que c'est le facteur de zoom ?
et pourquoi il semble que la m thode
change d'une machine une autre ? (enfin si j'ai capt quelque
chose ?)
je suis vraiment d sol de vous embeter avec , mais,
j'ai une usf non modal qui fait 43 pixels de hauteurs, et j'aimerai
la caller, tout simplement en bas de mon cran qui
une r solution verticale de 1050 points. (ou pixels, je ne sais plus
du coup).
lorsque je fait userform1.top = 1050 - 43 passe *sous* l' cran (je
suis pas
all voir d rri re .....)
merci pour votre aide.
Jos
On 4 d c, 16:00, "michdenis" wrote:
> De ne pas distinguer la droite de la gauche Docteur, c'est grave ?
> MichD
> --------------------------------------------
> "LSteph" a crit dans le message de groupe de discussion : iddebq$al.
> ;o)
> l'autre droite .
> "michdenis" a crit dans le message denews:idbe6 d$9ji$
> > Bonjour,
> > Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> > MichD
> > --------------------------------------------
> > "Alfred WALLACE" a crit dans le message de groupe de discussion :
> >
> > bonjour, et bon appetit (bientot)
> > j'ai ce code :
> > hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> > (g om triques )systeme de l' cran
> > currHRes = GetDeviceCaps(hdc, HORZRES)
> > currVRes = GetDeviceCaps(hdc, VERTRES)
> > currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> > currVFreq = GetDeviceCaps(hdc, VREFRESH)
> > Me.Width = Application.UsableWidth 'max largeur possible du USF =
> > largeur de l' cran
> > With UserForm1
> > .StartUpPosition = 0
> > .Left = 100 '
> > .Top = currVRes - Me.Height
> > End With
> > j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> > que si le nb point max verticaux de l' cran est 1050, ben top = 105 0 -
> > la hauteur
> > du userform.
> > ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> > limite basse de l' cran.
> > Est possible ? comment dois je m'y prendre.
> > Merci pour votre aide.
> > Jos
On 3 d c, 19:50, "michdenis" wrote:
> Bonjour,
> Voici un fichier exemple : http://cjoint.com/?0mdtXXczx7f
> MichD
> --------------------------------------------
> "Alfred WALLACE" a crit dans le message de groupe de discussion :
>
> bonjour, et bon appetit (bientot)
> j'ai ce code :
> hdc = GetDC(0) 'get the system settings / r cup re les valeurs
> (g om triques )systeme de l' cran
> currHRes = GetDeviceCaps(hdc, HORZRES)
> currVRes = GetDeviceCaps(hdc, VERTRES)
> currBPP = GetDeviceCaps(hdc, BITSPIXEL)
> currVFreq = GetDeviceCaps(hdc, VREFRESH)
> Me.Width = Application.UsableWidth 'max largeur possible du USF =
> largeur de l' cran
> With UserForm1
> .StartUpPosition = 0
> .Left = 100 '
> .Top = currVRes - Me.Height
> End With
> j'essaye de placer ce usf en bas de l' cran, et donc, je pensais
> que si le nb point max verticaux de l' cran est 1050, ben top = 1050 -
> la hauteur
> du userform.
> ors, lorsque je fait , mon USF disparait (je pense qu'il est SOUS la
> limite basse de l' cran.
> Est possible ? comment dois je m'y prendre.
> Merci pour votre aide.
> Jos