Je voudrais dévelloper un formulaire de type compteur (compter les
points lors d'un match de billard français).
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité
de l'écran et que je récupère ses hauteur et largeur.
Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit
pour maximiser le formulaire.
Quelqu'un aurait une astuce ?
Merci d'avance
JLuc
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
Jacky
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses hauteur et largeur.
Essaye ceci '------------------- Private Sub UserForm_Initialize() StartUpPosition = 0 Top = 0 Left = 0 Height = Application.Height Width = Application.Width End Sub '-------------------- Private Sub UserForm_Activate() MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width End Sub '---------------------
-- Salutations JJ
"JLuc69" a écrit dans le message de news: 55040352$0$3065$
Salut le groupe,
Je voudrais dévelloper un formulaire de type compteur (compter les points lors d'un match de billard français). Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses hauteur et largeur. Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit pour maximiser le formulaire. Quelqu'un aurait une astuce ? Merci d'avance JLuc
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses
hauteur et largeur.
Essaye ceci
'-------------------
Private Sub UserForm_Initialize()
StartUpPosition = 0
Top = 0
Left = 0
Height = Application.Height
Width = Application.Width
End Sub
'--------------------
Private Sub UserForm_Activate()
MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width
End Sub
'---------------------
--
Salutations
JJ
"JLuc69" <jll@free.fr> a écrit dans le message de news: 55040352$0$3065$426a74cc@news.free.fr...
Salut le groupe,
Je voudrais dévelloper un formulaire de type compteur (compter les points lors d'un match de billard
français).
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses
hauteur et largeur.
Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit pour maximiser le formulaire.
Quelqu'un aurait une astuce ?
Merci d'avance
JLuc
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses hauteur et largeur.
Essaye ceci '------------------- Private Sub UserForm_Initialize() StartUpPosition = 0 Top = 0 Left = 0 Height = Application.Height Width = Application.Width End Sub '-------------------- Private Sub UserForm_Activate() MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width End Sub '---------------------
-- Salutations JJ
"JLuc69" a écrit dans le message de news: 55040352$0$3065$
Salut le groupe,
Je voudrais dévelloper un formulaire de type compteur (compter les points lors d'un match de billard français). Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses hauteur et largeur. Je n'ai rien trouvé soit pour récupérer la résolution d'écran, soit pour maximiser le formulaire. Quelqu'un aurait une astuce ? Merci d'avance JLuc
JLuc69
Jacky avait prétendu :
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de l'écran et que je récupère ses hauteur et largeur.
Essaye ceci '------------------- Private Sub UserForm_Initialize() StartUpPosition = 0 Top = 0 Left = 0 Height = Application.Height Width = Application.Width End Sub '-------------------- Private Sub UserForm_Activate() MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width End Sub '---------------------
Merci, ça marche au poil :D
Jacky avait prétendu :
Bonjour,
Seulement, il faudrait que j'agrandisse le formulaire sur la totalité de
l'écran et que je récupère ses hauteur et largeur.
Essaye ceci
'-------------------
Private Sub UserForm_Initialize()
StartUpPosition = 0
Top = 0
Left = 0
Height = Application.Height
Width = Application.Width
End Sub
'--------------------
Private Sub UserForm_Activate()
MsgBox "Hauteur= " & Height & vbLf & "Largeur= " & Width
End Sub
'---------------------
