Dimension Userform

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Dimension Userform

Rondoudoudou

Bonjour,

Suite à mon précédent sujet, j'ai créé un fichier Excel qui doit être utilisé en tant qu'interface graphique.
Je souhaite que l'userform apparaisse dès le démarrage en plein écran, jusqu'à ce que l'utilisateur clique sur un bouton, ce qui ferme le fichier de démarrage et en lance un autre.

J'utilise pour cela le code suivant :

Code :

Sub UserForm_Activate()
With UserForm1
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
UserForm1.Show
End With
End Sub

J'ai deux problèmes que je n'arrive pas à résoudre :

L'Userform prend les dimensions qu'avait Excel lorsqu'il a été fermé la dernière fois, càd que si l'on ferme Excel lorsqu'il ne prend qu'un quart de l'écran, l'userform s'affichera sur un quart d'écran.
Lorsque ce problème là ne se pose pas, l'UserForm est parfois trop grand selon l'ordinateur sur lequel on lance le fichier.

J'ai essayé de trouver des solutions à ces deux problèmes mais sans succès, si l'un de vous a une piste, merci d'avance

Publicité

LePhasme

Les Belges domineront le monde

Un peu de déterrage, avec activewindow.width et activewindow.height ça fonctionne pas mieux ?

---------------
Instagram - Mon PVT en Australie.

Rondoudoudou

Edit : Le jeudi tout est permis.

Donc en fait j'ai c/c à l'arrache le code suivant :

Code :

'****************************************************************************************
'* *
'* Procédure pour l'Affichages des différents Userform en mode plein écran. *
'* *
'****************************************************************************************
Public Type RECT
Left As Long
Top As Long
Right As Long
Bottom As Long
End Type
Const GWL_STYLE = (-16)
Const WS_CAPTION = &HC00000
Const SWP_FRAMECHANGED = &H20
Public Declare Function FindWindowA Lib "user32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Public Declare Function GetWindowRect Lib "user32" _
(ByVal hwnd As Long, lpRect As RECT) As Long
Public Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Public Declare Function SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Public Declare Function SetWindowPos Lib "user32" _
(ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, _
ByVal y As Long, ByVal cx As Long, ByVal cy As Long, _
ByVal wFlags As Long) As Long
Private Declare Function GetSystemMetrics Lib "user32" _
(ByVal nIndex As Long) As Long
Private Const SM_CXSCREEN = 0 'Screen width
Private Const SM_CYSCREEN = 1 'Screen height
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 Const LOGPIXELSX = 88 'Pixels/inch in X
Private Const POINTS_PER_INCH As Long = 72
Public Function ScreenWidth() As Long
ScreenWidth = GetSystemMetrics(SM_CXSCREEN)
End Function
Public Function ScreenHeight() As Long
ScreenHeight = GetSystemMetrics(SM_CYSCREEN)
End Function
Public Function PointsPerPixel() As Double
Dim hDC As Long
Dim lDotsPerInch As Long
hDC = GetDC(0)
lDotsPerInch = GetDeviceCaps(hDC, LOGPIXELSX)
PointsPerPixel = POINTS_PER_INCH / lDotsPerInch
ReleaseDC 0, hDC
End Function

Et j'ai utilisé :

Code :

.Width = ScreenWidth * PointsPerPixel
.Height = ScreenHeight * PointsPerPixel

C'est pas beau mais ça marche.

Message édité par Rondoudoudou le 09-07-2009 à 11:46:21

---------------
Ctplm !

LePhasme

Les Belges domineront le monde

Ha ouai [:pingouino]

---------------
Instagram - Mon PVT en Australie.

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Dimension Userform

Sujets relatifs
Form et UserForm	Aide pour la programmation d'un userform remplissant une ligne Excel
Ma variable publique est désinitialisée par mon UserForm	VBA + userform
[VBA Excel] Procédure redondante dans Userform	Vector 3 dimension
Récupérer la saisie sur userform dans la macro	Ouvrir un userform d'un autre fichier Excel
Gerer les DblClick sur les UserForm	code vba protection feuille excel sauf userform
Plus de sujets relatifs à : Dimension Userform

Page générée en 0.051 secondes