Feuille toujours visible - modtoujoursvisible - 69vobd3

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 338 fois - Téléchargée 44 fois

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

Ajouter un commentaire Commentaires
cs_advisor
Messages postés
11
Date d'inscription
dimanche 8 septembre 2002
Statut
Membre
Dernière intervention
8 septembre 2002

8 sept. 2002 à 16:02
ne fonctionne pas pour les form déclarée en MDIChild YES, dommage
DivXPVobD
Messages postés
18
Date d'inscription
lundi 1 juillet 2002
Statut
Membre
Dernière intervention
18 juin 2003

21 juil. 2002 à 13:36
Je sais qu'il existe plusieurs fois, mais je pense que pour les vraix débtant ce genre de code est toujours plus pratique, de plus il explique l'utilisation des Enum
Voila !
cs_max12
Messages postés
1491
Date d'inscription
dimanche 19 novembre 2000
Statut
Modérateur
Dernière intervention
7 juillet 2014

21 juil. 2002 à 04:11
Ce code est sur le site plusieur fois..
cs_Alain Proviste
Messages postés
908
Date d'inscription
jeudi 26 juillet 2001
Statut
Modérateur
Dernière intervention
1 février 2015
2
20 juil. 2002 à 21:57
Ben c'est pas nouveau...
Bon code quand même.

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.