Affichage fenêtre de rappel comme dans yahoo mail!

Résolu
Signaler
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
-
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
-
Bonjour à tous,

je suis entrain de programmer un agenda en vb6 et access et je souhaiterai afficher (à une date et heure donnée) les futurs rendez-vous sous forme de fenêtre surgissante, comme lorsque que vous ouvrez yahoo!messenger et qu'une fenêtre surgit (2 seconde), juste pour vous dire que vous avez reçu un mail. J'ai parcouru les sources sans trouver quoi que ce soit de ce genre. Merci d'avance pour votre aide.

Cordialement.

11 réponses

Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
ah pis c'est mieux que çà, vraiment du vol qualifié !
tu as supprimé les commentaires d'origine pour y mettre les tiens

<li>' += =====================================================+</li><li>' | |</li><li>' +------------------------------------------------------+</li><li>' | COPYRIGHT(C) 2005 - ALL RIGHT RESERVED KOAK DESIGN |</li><li>' +--------------+---------------------------------------+</li><li>' | VER & REV | 0.0.1 |</li><li>' +--------------+---------------------------------------+</li><li>' | PROGRAM TYPE | Form (frmInfoTask) |</li><li>' +======================================================+</li><li>
</li><li>' +======================================================+</li><li>' | ORIGINAL VERSION: 0.0.1 | |</li><li>' +--------------+-------------+-------------------------+</li><li>' | CREATED BY | GALLY HOME CORP |</li><li>' | GRAPHIX BY | GALLY HOME CORP |</li><li>' +======================================================+</li><li>
</li><li>' +======================================================+</li><li>' | Modified Version: | |</li><li>' +--------------+-------------+-------------------------+</li><li>' | CREATED BY | |</li><li>' | GRAPHIX BY | |</li><li>' +--------------+---------------------------------------+</li><li>' | COMMENTS | |</li><li>' +--------------+ |</li><li>' | |</li><li>' | |</li><li>' | |</li><li>' +======================================================+</li><li>'</li><li>
</li><li>OptionExplicit</li><li>
</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>
</li><li>' +--------------------------------------------------------------------------+</li><li>' | |</li><li>' +--------------------------------------------------------------------------+</li><li>
</li><li>' DECLARATION DES VARIABLES.</li><li>Private lngWinPost AsLong' POSITIONNEMENT DE LA FENÊTRE.</li><li>Private lngWinMove AsLong' POSITIONNEMENT DE LA FENÊTRE.</li><li>Private blnWinMove AsBoolean' INDICATION SUR LE MOUVEMENT.</li><li>
</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>
</li><li>' +--------------------------------------------------------------------------+</li><li>' | |</li><li>' +--------------------------------------------------------------------------+</li><li>
</li><li>PrivateSub Form_Load()
</li><li>' DECLARATION DES VARIABLES.</li><li>Dim tpeAPPData As APPBARDATA
</li><li>Dim lngResult AsLong</li><li>
</li><li>' DONNE LES INFORMATIONS DE LA TASKBAR.</li><li>Call SHAppBarMessage(ABM_GETTASKBARPOS, tpeAPPData)
</li><li> lngResult = SHAppBarMessage(ABM_GETSTATE, tpeAPPData)
</li><li> tepSaveAPPData.Left = tpeAPPData.rc.Left
</li><li> tepSaveAPPData.Right = tpeAPPData.rc.Right
</li><li> tepSaveAPPData.Top = tpeAPPData.rc.Top
</li><li> tepSaveAPPData.Bottom = tpeAPPData.rc.Bottom
</li><li> tepSaveAPPData.Width = tepSaveAPPData.Right - tepSaveAPPData.Left
</li><li> tepSaveAPPData.Height = tepSaveAPPData.Bottom - tepSaveAPPData.Top
</li><li>
</li><li>' RECUPERATION DES INFORMATIONS DIMENTION.</li><li> tepSaveWScreen.Left = &H0
</li><li> tepSaveWScreen.Right = Screen.Width / Screen.TwipsPerPixelX
</li><li> tepSaveWScreen.Top = &H0
</li><li> tepSaveWScreen.Bottom = Screen.Height / Screen.TwipsPerPixelY
</li><li></li><li>' RECHERCHE DE LA POSITION DE L'INFOTASK.</li><li>If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top < &H0 And (tepSaveAPPData.Width > tepSaveAPPData.Height) Then</li><li> lngWinPost &H0 ' POSITIONNEMENT EN HAUT.</li><li> frmInfoTask.Height &H0</li><li>EndIf</li><li>If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top > &H0 And (tepSaveAPPData.Width > tepSaveAPPData.Height) Then</li><li> lngWinPost &H1 ' POSITIONNEMENT EN BAS.</li><li> frmInfoTask.Height &H0</li><li>EndIf</li><li>If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top < &H1 And (tepSaveAPPData.Width < tepSaveAPPData.Height) Then</li><li> lngWinPost &H2 ' POSITIONNEMENT A GAUCHE.</li><li> frmInfoTask.Width &H0</li><li>EndIf</li><li>If tepSaveAPPData.Left > &H0 And tepSaveAPPData.Top < &H1 And (tepSaveAPPData.Width < tepSaveAPPData.Height) Then</li><li> lngWinPost &H3 ' POSITIONNEMENT A DROITE.</li><li> frmInfoTask.Width &H0
</li><li>EndIf</li><li>
</li><li>' AFFICHAGE DES INFORMATIONS DE LA FENÊTRE.</li><li> lblTitle.Caption = "" & strAPPTitle
</li><li> lblInfos.Caption = strComments
</li><li>
</li><li>' AFFICHAGE DU LOGO DE LA TOASTS-INFOBAR.</li><li> imgDrawLogo.Picture = imgTMPLogo(lngAPPLogo).Picture
</li><li> frmInfoTask.Picture = imgBackGround(lngAPPLogo).Picture
</li><li>
</li><li>EndSub</li><li>
</li><li>PrivateSub Form_Resize()
</li><li>' POSITIONNEMENT DE LA FENÊTRE APP-TASK.</li><li>SelectCase lngWinPost
</li><li>Case &H0: frmInfoTask.Left = ((tepSaveAPPData.Right - &H4) * Screen.TwipsPerPixelX) - frmInfoTask.Width
</li><li> frmInfoTask.Top = ((tepSaveAPPData.Height - &H2) * Screen.TwipsPerPixelY)
</li><li>Case &H1: frmInfoTask.Left = ((tepSaveAPPData.Right - &H4) * Screen.TwipsPerPixelX) - frmInfoTask.Width
</li><li> frmInfoTask.Top = ((tepSaveAPPData.Bottom - tepSaveAPPData.Height + &H1) * Screen.TwipsPerPixelY) - frmInfoTask.Height
</li><li>Case &H2: frmInfoTask.Left = ((tepSaveAPPData.Width - &H2) * Screen.TwipsPerPixelX)
</li><li> frmInfoTask.Top = ((tepSaveAPPData.Height - &H4) * Screen.TwipsPerPixelY) - frmInfoTask.Height
</li><li>Case &H3: frmInfoTask.Left = ((tepSaveAPPData.Right - tepSaveAPPData.Width) * Screen.TwipsPerPixelX) - frmInfoTask.Width
</li><li> frmInfoTask.Top = ((tepSaveAPPData.Height - &H4) * Screen.TwipsPerPixelY) - frmInfoTask.Height
</li><li>EndSelect</li><li>
</li><li>EndSub</li><li>
</li><li>PrivateSub Form_Unload(Cancel AsInteger)
</li><li>' FORCAGE DE LA RESTAURATION MEMOIRE.</li><li> Unload frmInfoTask ' DECHARGMENT DE LA FENETRE.</li><li>Set frmInfoTask = Nothing' RESTAURATION DE LA MEMOIRE.</li><li>
</li><li>EndSub</li><li>
</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>
</li><li>' +--------------------------------------------------------------------------+</li><li>' | |</li><li>' +--------------------------------------------------------------------------+</li><li>
</li><li>PrivateSub imgBouton_Click()
</li><li>' FERMETURE DE LA FENÊTRE TASKBAR.</li><li>Call trmTimer_Timer
</li><li>
</li><li>EndSub</li><li>
</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>' ****************************************************************************</li><li>
</li><li>' +--------------------------------------------------------------------------+</li><li>' | |</li><li>' +--------------------------------------------------------------------------+</li><li>
</li><li>PrivateSub tmrMove_Timer()</li><li>' ANNIMATION DE LA FENETRE INFOTASK.</li><li>If lngWinPost &H0 Or lngWinPost &H1 Then</li><li>If lngWinMove > &H0 And blnWinMove Then' MOUVEMENT EN X DE LA FENÊTRE.</li><li> lngWinMove = lngWinMove - &H1E
</li><li> frmInfoTask.Height = lngWinMove
</li><li>Else</li><li>If blnWinMove Then</li><li>Call Form_Unload(&H0)
</li><li>EndIf</li><li>EndIf</li><li>If lngWinMove < 1735 AndNot blnWinMove Then</li><li> lngWinMove = lngWinMove + &HF
</li><li> frmInfoTask.Height = lngWinMove</li><li>Else</li><li>IfNot blnWinMove Then</li><li> tmrMove.Enabled False</li><li> blnWinMove True</li><li>EndIf</li><li>EndIf</li><li>Else</li><li>If lngWinMove > &H0 And blnWinMove Then' MOUVEMENT EN Y DE LA FENÊTRE.</li><li> lngWinMove = lngWinMove - &H1E
</li><li> frmInfoTask.Width = lngWinMove
</li><li>Else</li><li>If blnWinMove Then</li><li>Call Form_Unload(&H0)
</li><li>EndIf</li><li>EndIf</li><li>If lngWinMove < 2700 AndNot blnWinMove Then</li><li> lngWinMove = lngWinMove + &HF
</li><li> frmInfoTask.Width = lngWinMove</li><li>Else</li><li>IfNot blnWinMove Then</li><li> tmrMove.Enabled False</li><li> blnWinMove True</li><li>EndIf</li><li>EndIf</li><li>EndIf</li><li>
</li><li>EndSub</li><li>
</li><li>PrivateSub trmTimer_Timer()
</li><li>' FERMETURE DE LA FENÊTRE TASKBAR.</li><li> tmrMove.Enabled = True</li><li>
</li><li>EndSub</li>

tu devrais te renseigner sur les lois informatiques, ce n'est pas parce qu'on fourni un code OPEN-SOURCE que de ce fait il t'appartient, le vol est un crime puni par la loi !

source d'origine :
http://www.vbfrance.com/codes/INFO-TOASTS-FENETRE-DANS-STYLE-MSN-MESSAGER_36061.aspx

t'as du chercher longtemps pour retrouver l'auteur...

(désolé js8bleu d'avoir empiété sur ton topic)
<hr size ="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp  
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

        ' **********************************************************************************************
        ' **********************************************************************************************
        ' ****************************** achills_troy@hotmail.com********************************************
        ' **********************************(+216) 22 39 73 16*********************************************
        ' **********************************************************************************************

'ajouter ceci dans unee page et ajoute les control qui vous faut, je voulais t'ajouté l'exemple mais il y'a un bug sur le site j'ai pas pu ajouter,
'c'est facile de trouver cequ'il te manque, et aussi faut que le forum soit nomé : frminfotask

Option Explicit

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 SWP_NOSIZE = &H1
Private Const SWP_NOMOVE = &H2
Private Const HWND_TOPMOST = -1
Private Const HWND_NOTOPMOST = -2

' DECLARATION DES VARIABLES.
Private lngWinPost      As Long                                 ' POSITIONNEMENT DE LA FENÊTRE.
Private lngWinMove      As Long                                 ' POSITIONNEMENT DE LA FENÊTRE.
Private blnWinMove      As Boolean                              ' INDICATION SUR LE MOUVEMENT.
'maintenir le popup d'alert en premier plan quand il affiche une alerte
Public Sub AffichageFormDevant(UserForm As Form)
    SetWindowPos UserForm.hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
'chager le popup et l'afficher au premier plan : (apel a la procedure precedente AffichageFormDevant pour qu'elle maintien
'le popup en 1er plan
    AffichageFormDevant frmInfoTask
    frmInfoTask.Show

' DECLARATION DES VARIABLES.
    Dim tpeAPPData  As APPBARDATA
    Dim lngResult   As Long

' DONNE LES INFORMATIONS DE LA TASKBAR.
    Call SHAppBarMessage(ABM_GETTASKBARPOS, tpeAPPData)
    lngResult = SHAppBarMessage(ABM_GETSTATE, tpeAPPData)
    tepSaveAPPData.Left = tpeAPPData.rc.Left
    tepSaveAPPData.Right = tpeAPPData.rc.Right
    tepSaveAPPData.Top = tpeAPPData.rc.Top
    tepSaveAPPData.Bottom = tpeAPPData.rc.Bottom
    tepSaveAPPData.Width = tepSaveAPPData.Right - tepSaveAPPData.Left
    tepSaveAPPData.Height = tepSaveAPPData.Bottom - tepSaveAPPData.Top

' RECUPERATION DES INFORMATIONS DIMENTION.
    tepSaveWScreen.Left = &H0
    tepSaveWScreen.Right = Screen.Width / Screen.TwipsPerPixelX
    tepSaveWScreen.Top = &H0
    tepSaveWScreen.Bottom = Screen.Height / Screen.TwipsPerPixelY

' RECHERCHE DE LA POSITION DE L'INFOTASK.
    If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top < &H0 And (tepSaveAPPData.Width > tepSaveAPPData.Height) Then
        lngWinPost = &H0        ' POSITIONNEMENT EN HAUT.
        frmInfoTask.Height = &H0
    End If
    If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top > &H0 And (tepSaveAPPData.Width > tepSaveAPPData.Height) Then
        lngWinPost = &H1        ' POSITIONNEMENT EN BAS.
        frmInfoTask.Height = &H0
    End If
    If tepSaveAPPData.Left < &H1 And tepSaveAPPData.Top < &H1 And (tepSaveAPPData.Width < tepSaveAPPData.Height) Then
        lngWinPost = &H2        ' POSITIONNEMENT A GAUCHE.
        frmInfoTask.Width = &H0
    End If
    If tepSaveAPPData.Left > &H0 And tepSaveAPPData.Top < &H1 And (tepSaveAPPData.Width < tepSaveAPPData.Height) Then
        lngWinPost = &H3        ' POSITIONNEMENT A DROITE.
        frmInfoTask.Width = &H0
    End If

' AFFICHAGE DES INFORMATIONS DE LA FENÊTRE.
    lblTitle.Caption = " " & strAPPTitle
    lblInfos.Caption = strComments

' AFFICHAGE DU LOGO DE LA TOASTS-INFOBAR.
    imgDrawLogo.Picture = imgTMPLogo(lngAPPLogo).Picture
    frmInfoTask.Picture = imgBackGround(lngAPPLogo).Picture

End Sub

Private Sub Form_Resize()
' POSITIONNEMENT DE LA FENÊTRE APP-TASK.
    Select Case lngWinPost
        Case &H0:       frmInfoTask.Left = ((tepSaveAPPData.Right - &H4) * Screen.TwipsPerPixelX) - frmInfoTask.Width
                        frmInfoTask.Top = ((tepSaveAPPData.Height - &H2) * Screen.TwipsPerPixelY)
        Case &H1:       frmInfoTask.Left = ((tepSaveAPPData.Right - &H4) * Screen.TwipsPerPixelX) - frmInfoTask.Width
                        frmInfoTask.Top = ((tepSaveAPPData.Bottom - tepSaveAPPData.Height + &H1) * Screen.TwipsPerPixelY) - frmInfoTask.Height
        Case &H2:       frmInfoTask.Left = ((tepSaveAPPData.Width - &H2) * Screen.TwipsPerPixelX)
                        frmInfoTask.Top = ((tepSaveAPPData.Height - &H4) * Screen.TwipsPerPixelY) - frmInfoTask.Height
        Case &H3:       frmInfoTask.Left = ((tepSaveAPPData.Right - tepSaveAPPData.Width) * Screen.TwipsPerPixelX) - frmInfoTask.Width
                        frmInfoTask.Top = ((tepSaveAPPData.Height - &H4) * Screen.TwipsPerPixelY) - frmInfoTask.Height
    End Select

End Sub

Private Sub Form_Unload(Cancel As Integer)
' FORCAGE DE LA RESTAURATION MEMOIRE.
    Unload frmInfoTask                                          ' DECHARGMENT DE LA FENETRE.
    Set frmInfoTask = Nothing                                   ' RESTAURATION DE LA MEMOIRE.

End Sub

Private Sub imgBouton_Click()
' FERMETURE DE LA FENÊTRE TASKBAR.
    Call trmTimer_Timer

End Sub

Private Sub tmrMove_Timer()
' ANNIMATION DE LA FENETRE INFOTASK.    If lngWinPost &H0 Or lngWinPost &H1 Then
        If lngWinMove > &H0 And blnWinMove Then                 ' MOUVEMENT EN X DE LA FENÊTRE.
            lngWinMove = lngWinMove - &H1E
            frmInfoTask.Height = lngWinMove
            Else
                If blnWinMove Then
                    Call Form_Unload(&H0)
                End If
        End If
        If lngWinMove < 1735 And Not blnWinMove Then
            lngWinMove = lngWinMove + &HF
            frmInfoTask.Height = lngWinMove
            Else
                If Not blnWinMove Then
                    tmrMove.Enabled = False
                    blnWinMove = True
                End If
        End If
        Else
            If lngWinMove > &H0 And blnWinMove Then             ' MOUVEMENT EN Y DE LA FENÊTRE.
                lngWinMove = lngWinMove - &H1E
                frmInfoTask.Width = lngWinMove
                Else
                    If blnWinMove Then
                        Call Form_Unload(&H0)
                    End If
            End If
            If lngWinMove < 2700 And Not blnWinMove Then
                lngWinMove = lngWinMove + &HF
                frmInfoTask.Width = lngWinMove
                Else
                    If Not blnWinMove Then
                        tmrMove.Enabled = False
                        blnWinMove = True
                    End If
            End If
    End If

End Sub

Private Sub trmTimer_Timer()
' FERMETURE DE LA FENÊTRE TASKBAR.
    tmrMove.Enabled = True

End Sub

'puis enfin pour utiliser cette source :

Call setShowINFOTask(&H0, "titre du message", "message a afficher")

cordialement
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

au fait cette source je l'ai trouvé ici sur vbfrance mais je me rapel plus ou exactement
++
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
ah ouai tu la trouves et t'y mets ton mail et num tel?!

beh tu manques vraiment pas d'air !
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

je vous ai dit que j'ai oublier d'ou je l'avais eu
et pour le nom et prenom c'est pour moi pas pour le public
svp supp mon commentaire et dsl je voulais juste l'aider puisque tu n'a pas répondu quand il avait besoin d'aide en+ y'a personne qui répond a nos question là !!!
merci
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

au fait j'ai pas volé j'ai juste télécharger d'ici et j'ai dit dans mon commentaire que ce n'est pas a moi ce code et que je l'ai télécharger ici  pcpt
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
tu as remplacé les commentaires de l'auteur par les tiens, c'est pas comme si tu utilisais un module anonyme sans le modifier.
je ne vois aucun motif pour supprimer ton post, il a bien sa place à nous éclaire sur ton fonctionnement

en+ y'a personne qui répond a nos question là !!!
tu es sur un forum de bénévoles, personne n'est à tes petits soins, chacun a sa vie
et surtout maintenant, pour ma part en tout cas, çà ne me donne vraiment pas envie

le lien COMPLET donné dans mon précédent message répond à la question, normalement :)
donc y'a que toi qui te plaind, ce qui me laisse de marbre



au fait j'ai pas volé j'ai juste télécharger d'ici et j'ai dit (...)
essaye pas de me convaincre, j'te dis de te renseigner, cherche, c'est LA LOI

tu devrais te renseigner sur les lois
informatiques, ce n'est pas parce qu'on fourni un code OPEN-SOURCE que
de ce fait il t'appartient, le vol est un crime puni par la loi !

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp  
Messages postés
213
Date d'inscription
vendredi 13 janvier 2006
Statut
Membre
Dernière intervention
20 août 2008

dacc je suis sincerement dsl
sa ne se reproduira plus jamais
PROMIS
te fache pas et je m'excuse aussi de l'auteur de cette source meme si j'ai indiqué que c'est pas a moi et que c'est a lui mais fallait pas que je met mon nom sur sa source
désolé encor
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
Re-bonjour,

Merci à tous pour votre aide, je vais essayer cela et vous tenir au courant.
Messages postés
576
Date d'inscription
samedi 14 octobre 2006
Statut
Membre
Dernière intervention
27 janvier 2014
2
Bonsoir,

Merci, le code source marche à merveille, je vais juste essayer d'ajouter une alarme lorsque le message s'affichera. Merci encore et bonne soirée.

Cordialement
Messages postés
13280
Date d'inscription
lundi 13 décembre 2004
Statut
Modérateur
Dernière intervention
3 février 2018
47
si tu joues avec les WAV, MP3, etc..., cette classe/usercontrol peut te servir :
http://www.vbfrance.com/codes/JOUER-SON-WAV-MP3-MID-SYSTEM-NOTE-UNIQUEMENT_36041.aspx

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp