cs_Esquisse
Messages postés77Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention20 juillet 2005
-
13 juin 2003 à 01:01
cs_Esquisse
Messages postés77Date d'inscriptionsamedi 28 décembre 2002StatutMembreDernière intervention20 juillet 2005
-
15 juin 2003 à 23:12
Yop :)
J'ai un vieux problème... j'utilise le l'api Shell_NotifyIcon pour iconiser mon application au formLoad... depuis le debugguer de Vb ca marche... je crée l'exe et boom ca marche pas il réagit pas à l'event Mouse move.
Si j'essaie sur une form principale non mdi ca marche...
Je paste un exemplee code (sur une non mdi) :
Option Explicit
Private Type IconeTray
cbSize As Long 'Taille de l'icône (en octets)
hWnd As Long 'Handle de la fenêtre chargée de recevoir les messages envoyés lors des évènements sur l'icône (clics, doubles-clics...)
uID As Long 'Identificateur de l'icône
uFlags As Long
uCallbackMessage As Long 'Messages à renvoyer
hIcon As Long 'Handle de l'icône
szTip As String * 64 'Texte à mettre dans la bulle d'aide
End Type
Dim IconeT As IconeTray
'Affiche l'icone
'If MainForm.MSComm.PortOpen = True Then
' IconiseForm 2, False, eAjout
'Else
' IconiseForm 1, False, eAjout
'End If
'Recupère le commandline
'Préparation de la variable IconeT
IconeT.cbSize = Len(IconeT) 'Taille de l'icône en octet
IconeT.hWnd = Me.hWnd 'Handle de l'application (pour qu'elle reçoive les messages envoyés lors d'un clic, double-clic...
IconeT.uID = 1& 'Identificateur de l'icône
IconeT.uFlags = Icone Or TIP Or Message
IconeT.uCallbackMessage = &H200 '&H200 'Renvoyer les messages concernant l'action de la souris
IconeT.hIcon = Me.Image1.Picture 'Mettre en icône l'image qui est dans le contrôle "Image1"
IconeT.szTip = "System Monitor" & Chr$(0) 'Texte de la bulle d'aide
'Appel de la fonction pour mettre l'icône dans le système tray
Shell_NotifyIcon AJOUT, IconeT
'Me.Hide 'Cache la fenêtre
Me.WindowState = vbMinimized
App.TaskVisible = False 'Retire le bouton de l'application de la barre
'des tâches
'MainForm.mnuTray.Visible = True
Delbeke
Messages postés200Date d'inscriptionjeudi 19 décembre 2002StatutMembreDernière intervention18 novembre 2005 15 juin 2003 à 02:39
Une des caractéristique des form MDDI est qu'elle sont composé de deux fenetres, l'une des deux est fille de la précédente. le hWnd que vous utilisez n'est peut être pas le bon.
essayez d'utiliser qqe chose comme
ChildHwnd = GetWindow(me.hwnd, GW_CHILD)