Dimension Userform

Marsh Posté le 22-04-2009 à 15:37:45

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

Reply

Marsh Posté le 22-04-2009 à 15:37:45

Reply

Marsh Posté le 09-07-2009 à 11:39:27

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

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

Reply

Marsh Posté le 09-07-2009 à 11:43:33

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 !

Reply

Marsh Posté le 16-07-2009 à 22:27:11

Ha ouai [:pingouino]

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

Reply

Dimension Userform

Sujets relatifs:

Leave a Replay