js8bleu
Messages postés576Date d'inscriptionsamedi 14 octobre 2006StatutMembreDernière intervention27 janvier 2014
-
3 juil. 2008 à 09:57
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
4 juil. 2008 à 00:40
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.
A voir également:
Affichage fenêtre de rappel comme dans yahoo mail!
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 3 juil. 2008 à 13:13
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 !
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
'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
' 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
' 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
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")
achills
Messages postés213Date d'inscriptionvendredi 13 janvier 2006StatutMembreDernière intervention20 août 2008 3 juil. 2008 à 13:29
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
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 201847 3 juil. 2008 à 13:38
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
achills
Messages postés213Date d'inscriptionvendredi 13 janvier 2006StatutMembreDernière intervention20 août 2008 3 juil. 2008 à 14:27
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