Çok teşekkürler sayin @feraz
Showballoontooltip Ve Access
Sayın berduş hocam sanırım olayı hallettim biraz uğraştım lakin değdi zannedersem.Gifi takip edebilirsiniz.
![[Resim: do.php?img=9747]](https://resim.accesstr.net/do.php?img=9747)
Alttaki koda en sondaki end if ten önce CursorOnTaskbar = True bunu ekledim
Modül adı modAPIWindows
Alttaki koda en sondaki end if ten önce CursorOnTaskbar = True bunu ekledim
Modül adı modAPIWindowsKod:
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
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?
İ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?
Konuyu Okuyanlar: 1 Ziyaretçi
