Sayın berduş hocam sanırım olayı hallettim biraz uğraştım lakin değdi zannedersem.Gifi takip edebilirsiniz.
Alttaki koda en sondaki end if ten önce CursorOnTaskbar = True bunu ekledim
Kod:
Public Function CursorOnTaskbar() As Boolean
' This function checks, wether the mousepointer is actually above
' the Taskbar
Dim curPoint As POINTAPI
Dim lngRetCur As Long
Dim lngRetTbarPos As Long
Dim barData As APPBARDATA
' Get the actual Cursor-Position (stored in curPoint)
lngRetCur = GetCursorPos(curPoint)
' This function is retrieving the coordinates of the windows Taskbar,
' which are stored in the rc-member of the APPBARDATA-Struct.
lngRetTbarPos = SHAppBarMessage(ABM_GETTASKBARPOS, barData)
If (lngRetCur <> 0) And (lngRetTbarPos <> 0) Then
If (curPoint.X > barData.rc.Left) And _
(curPoint.X < barData.rc.Right) And _
(curPoint.Y < barData.rc.Bottom) And _
(curPoint.Y > barData.rc.top) _
Then
CursorOnTaskbar = True
End If
CursorOnTaskbar = True
End If
End Function
Emeğin için Çok teşekkürler ellerine ve azmine sağlık
System tray daki icona sağ tıklayınca oracıkta menu açılsa oradan seçerek bazı şeyleri yapabilsek ne güzel olurdu
Rica ederim @
accessman abey.
İnşAllah o dediklerinizide yaparız ömrümüz varsa
Araştırıp biraz kafa yorarım kodlarda yapabilirsem eklerim dosyayı.Ekteki hali sorunsuz çalışıyor değil mi?