usf en pleinecran

[DIGGERJACK]

Bonjour
Quel code faut il utiliser pour mettre en usf en plein écran ( après avoir cliqué sur un bouton d'ouverture ) quelque soi la taille de l'écran.
En effet le usf en question sera utilisé sur plusieurs écrans dont les tailles diffèrent.

Merci de votre aide
Diggerjack

 

[Gexk5]

Re : usf en pleinecran

Salut le forum, diggerjack

Voici un de code de thierry trouve sur le forum, essaye, petit conseil, fais ton userform sur l'ecran de la plus petite resolution.

Option Explicit
'!Thierry Pourtier, février 2006 : xlti@wanadoo.fr
'!Ce lien n'existe plus
'!une démo pour le forum Vériti
Private Declare Function FindWindowA Lib "user32" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "user32" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" _
(ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function DrawMenuBar Lib "user32" (ByVal hWnd As Long) As Long
Private Sub UserForm_Initialize()
Dim hWnd As Long, exLong As Long, zFactor As Integer, Style As Long

hWnd = FindWindowA(vbNullString, Me.Caption)
exLong = GetWindowLongA(hWnd, -16)
If exLong And &H880000 Then SetWindowLongA hWnd, -16, exLong And &HFF77FFFF
zFactor = 100 * CInt(Application.Width / Me.Width)
Me.Width = Application.Width
Me.Height = Application.Height
Style = GetWindowLong(hWnd, -16) And Not &HC00000
SetWindowLong hWnd, -16, Style
DrawMenuBar hWnd

On Error Resume Next

End Sub


@+

 

[DIGGERJACK]

Re : usf en pleinecran

Bonsoir

Ouh là c'est lourd tout cela je pensais à quelque chose de plus léger


Merci tout de même

Bonne soirée
Diggerjack

 

[Temjeh]

Re : usf en pleinecran

Bonjour à tous

Moi je me sert de plus simple:

1 userform plus petit en avant et un plus grand en arrière avec les prop mondal. Comme ca peut importe la grandeur de l'écran ca fonctionne et le tout est toujours centrer.

A+

Temjeh

 

[Pierrot93]

Re : usf en pleinecran

Bonjour à tous

une autre solution :

Private Sub UserForm_Initialize()
With Me
.StartUpPosition = 3
.Width = Application.Width
.Height = Application.Height
.Left = 0
.Top = 0
End With
End Sub

et ensuite éventuellement pour empêcher que l'utilisateur le bouge

Private Sub UserForm_Layout()
    If Me.Top <> 0 Then
        Me.Top = 0
        Me.Left = 0
    End If
End Sub

bonne soirée et joyeuses fêtes à tous
@+