Feuille toujours visible - modtoujoursvisible - 69vobd3

Commenter

Contenu du snippet

Permet de choisir le mode d'affichage d'une feuille : Toujours Visible ou Normal

Aucne déclaration n'est nécéssaire par vous, un simple appel à la fonction...

Enregistrer le code dans un module, nommez le modToujoursVisible

Source / Exemple : 


Option Explicit

' '''''''''''''''''''''''''''''''''''''
' ToujoursVisible
' Module par 69VobD3 (David CHANIAL)
' http://www.DivX-Paradise.net
' WebMaster@DivX-Paradise.net
'
' Date : 20/07/2002
'
' Utilisation :
'
' -Pour Mettre au premier plan (Form1 par exemple):
' ToujoursVisible(Form1, PremierPlan)
' -Pour remettre la feuille normalement (Form1 par exemple):
' ToujoursVisible (Form1, Normal)
' ''''''''''''''''''''''''''''''''''''''
Private 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 Const TjVisFlags = &H2 Or &H1 Or &H40 Or &H10

Public Enum ToujoursVisibleMode
    PremierPlan = True
    Normal = False
End Enum

Public Function ToujoursVisible( _
    frmToujoursVisible As Form, _
    Mode As ToujoursVisibleMode) _
    As Long
    Select Case Mode
        Case True
            ToujoursVisible = SetWindowPos( _
             frmToujoursVisible.hwnd, _
             -1, _
             0, _
             0, _
             0, _
             0, _
             TjVisFlags)
        Case False
            ToujoursVisible = SetWindowPos( _
            frmToujoursVisible.hwnd, _
            -2, _
            0, _
            0, _
            0, _
            0, _
            TjVisFlags)
    End Select
End Function

Conclusion :


69VobD3 Factory

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (DivXPVobD)