form MDI en Plein Ecran ?

Question

Salut

J'aimerais savoir si il est possible de demarrer une fenetre principal MDI en plein écran ?
Ou de au moins faire disparaitre la barre des taches ou barre des titres.

Merci d'avance

rappel : Il n'y a pas de bordestyle dans les propriétés.

m2rtech · Answer

Oui , propriété WindowState = 2

DGSE · Answer

Merci de ta reponse, mais malhereusement, cette propriété ne fait que demarrer la fenetre agrandi et non en plein ecran, les barres de tache et titre sont toujours affichées.

As tu une autre idée ?

DGSE · Answer

svp, Personne n'a une idée ?

samoray_br · Answer

en utilisant des API pour form MDI en Plein Ecran voici le code :


A déclarer dans un module :


'--------------------------------------------------------------
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 Const GWL_STYLE = (-16)
Public Const WS_DLGFRAME = &H400000
Public Const WS_THICKFRAME = &H40000
'--------------------------------------------------------------
et dans l'évenement load de la MDI : 


Dim MDISize
Dim MDILabar
With Me
MDILabar = GetWindowLong(.hWnd, GWL_STYLE)
MDILabar = MDILabar And Not (WS_DLGFRAME)
SetWindowLong .hWnd, GWL_STYLE, MDILabar
End With
With Me
MDISize = GetWindowLong(.hWnd, GWL_STYLE)
MDISize = MDISize And Not (WS_THICKFRAME)
SetWindowLong .hWnd, GWL_STYLE, MDISize
End With

Form MDI en Plein Ecran ?

4 réponses

Discussions similaires