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
LSteph
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Jacques
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
LSteph
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
?Pourquoi ce modedébogage
ce code adapte l'userform à la taille de l'écran
outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
LSteph
http://cjoint.com/?ekwqOzt6Go
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
http://cjoint.com/?ekwqOzt6Go
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _ ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Jacques
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Od3Oac0mIHA.2268@TK2MSFTNGP02.phx.gbl...
?Pourquoi ce modedébogage
ce code adapte l'userform à la taille de l'écran
outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450
mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As
Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long,
_
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
LSteph
Ouvre simplement que j'ai donné. ;-)
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
Ouvre simplement que j'ai donné.
;-)
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Od3Oac0mIHA.2268@TK2MSFTNGP02.phx.gbl...
?Pourquoi ce modedébogage
ce code adapte l'userform à la taille de l'écran
outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450
mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As
Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long,
_
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
LSteph
http://cjoint.com/?ekwqOzt6Go
j'ai beau tester dans toutes les définitions cela marche!
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
mais sans succès. La fenêtre ne s'adapte pas et les scrollbars horizontales
ou verticales sont bien présentes mais sans effets !
Comment adapté le userform à l'écran de l'utilisateur ?
Merci de vos réponses
Jacques
http://cjoint.com/?ekwqOzt6Go
j'ai beau tester dans toutes les définitions cela marche!
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:Od3Oac0mIHA.2268@TK2MSFTNGP02.phx.gbl...
?Pourquoi ce modedébogage
ce code adapte l'userform à la taille de l'écran
outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !!
En mode débogage, ton code définit la hauteur à 620 et la largeur à 450
mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" <lecocosteph@frite.fr> a écrit dans le message de
news:%23MZu6D0mIHA.4196@TK2MSFTNGP04.phx.gbl...
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As
Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long,
_
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _
ByVal hdc As Long) As Long
Private Sub UserForm_Initialize()
Dim DC As Long
DC = GetDC(0)
Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72)
Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72
ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains
utilisateurs étaient encore en 800x600 !
j'ai beau tester dans toutes les définitions cela marche!
Pourquoi ... pour comprendre pourquoi cela n'a pas d'effet !! ;-)
Jacques
"LSteph" a écrit dans le message de news:
?Pourquoi ce modedébogage ce code adapte l'userform à la taille de l'écran outre la définition.
Bonjour Steph,
Je viens d'essayer ton code mais plus de succès !! En mode débogage, ton code définit la hauteur à 620 et la largeur à 450 mais
l'affichage du UserForm ne change pas !?
Jacques
"LSteph" a écrit dans le message de news:%
Hello Jacques!
Private Declare Function GetDC Lib "User32" (ByVal hWnd As Long) As Long
Private Declare Function GetDeviceCaps Lib "Gdi32" (ByVal hdc As Long, _
ByVal nIndex As Long) As Long
Private Declare Function ReleaseDC Lib "User32" (ByVal hWnd As Long, _ ByVal hdc As Long) As Long
Private Sub UserForm_Initialize() Dim DC As Long DC = GetDC(0) Me.Width = 20 + (GetDeviceCaps(DC, 8) / GetDeviceCaps(DC, 88) * 72) Me.Height = GetDeviceCaps(DC, 10) / GetDeviceCaps(DC, 90) * 72 ReleaseDC 0, DC
End Sub
'lSteph
Bonjour,
Petit problème que je n'arrive pas à règler ... :-(
J'ai un userForm developpé pour 1024x768. J'ai appris que certains utilisateurs étaient encore en 800x600 !
