Bonjour à vous, alors voila je rencontre un problème, lorsque que je réalise
mon formulaire complet jusque là aucun problème mais par la suite je désire
que mon formulaire se place en haut a gauche de l'écran lors de l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme
occasion comment mettre un formulaire en pleine écran merci merci pour votre
aide
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
PatLry
Bonjour,
pour le mettre en haut à gauche : dans les propriétés du userform,(par f4) onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran, ce n'est pas de moi, je l'ai vu ici il y a quelques jours. Dans les déclarations ---------------- 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
Pat
"j0b" a écrit dans le message de news:
Bonjour à vous, alors voila je rencontre un problème, lorsque que je réalise
mon formulaire complet jusque là aucun problème mais par la suite je désire
que mon formulaire se place en haut a gauche de l'écran lors de l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme occasion comment mettre un formulaire en pleine écran merci merci pour votre
aide
Bonjour,
pour le mettre en haut à gauche :
dans les propriétés du userform,(par f4)
onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran,
ce n'est pas de moi, je l'ai vu ici il y a quelques jours.
Dans les déclarations
----------------
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
Pat
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de
news:7C446325-F0A3-462C-BD0A-1CB27BA9407F@microsoft.com...
Bonjour à vous, alors voila je rencontre un problème, lorsque que je
réalise
mon formulaire complet jusque là aucun problème mais par la suite je
désire
que mon formulaire se place en haut a gauche de l'écran lors de
l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme
occasion comment mettre un formulaire en pleine écran merci merci pour
votre
pour le mettre en haut à gauche : dans les propriétés du userform,(par f4) onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran, ce n'est pas de moi, je l'ai vu ici il y a quelques jours. Dans les déclarations ---------------- 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
Pat
"j0b" a écrit dans le message de news:
Bonjour à vous, alors voila je rencontre un problème, lorsque que je réalise
mon formulaire complet jusque là aucun problème mais par la suite je désire
que mon formulaire se place en haut a gauche de l'écran lors de l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme occasion comment mettre un formulaire en pleine écran merci merci pour votre
aide
j0b
Okay je vais tester tout ca, en tout cas je te remercie pour cette aide et je te souhaite une bonne journée par la meme occasion. Merci encore
Bonjour,
pour le mettre en haut à gauche : dans les propriétés du userform,(par f4) onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran, ce n'est pas de moi, je l'ai vu ici il y a quelques jours. Dans les déclarations ---------------- 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
Pat
"j0b" a écrit dans le message de news:
Bonjour à vous, alors voila je rencontre un problème, lorsque que je réalise
mon formulaire complet jusque là aucun problème mais par la suite je désire
que mon formulaire se place en haut a gauche de l'écran lors de l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme occasion comment mettre un formulaire en pleine écran merci merci pour votre
aide
Okay je vais tester tout ca, en tout cas je te remercie pour cette aide et je
te souhaite une bonne journée par la meme occasion. Merci encore
Bonjour,
pour le mettre en haut à gauche :
dans les propriétés du userform,(par f4)
onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran,
ce n'est pas de moi, je l'ai vu ici il y a quelques jours.
Dans les déclarations
----------------
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
Pat
"j0b" <j0b@discussions.microsoft.com> a écrit dans le message de
news:7C446325-F0A3-462C-BD0A-1CB27BA9407F@microsoft.com...
Bonjour à vous, alors voila je rencontre un problème, lorsque que je
réalise
mon formulaire complet jusque là aucun problème mais par la suite je
désire
que mon formulaire se place en haut a gauche de l'écran lors de
l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme
occasion comment mettre un formulaire en pleine écran merci merci pour
votre
Okay je vais tester tout ca, en tout cas je te remercie pour cette aide et je te souhaite une bonne journée par la meme occasion. Merci encore
Bonjour,
pour le mettre en haut à gauche : dans les propriétés du userform,(par f4) onglet : par catégories>position left0, startupposition 0-manuel, top0
pour le formulaire en plein écran, ce n'est pas de moi, je l'ai vu ici il y a quelques jours. Dans les déclarations ---------------- 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
Pat
"j0b" a écrit dans le message de news:
Bonjour à vous, alors voila je rencontre un problème, lorsque que je réalise
mon formulaire complet jusque là aucun problème mais par la suite je désire
que mon formulaire se place en haut a gauche de l'écran lors de l'ouverture
et cela je n'arrive pas. Merci bien. De plus je voulais savoir par la meme occasion comment mettre un formulaire en pleine écran merci merci pour votre
