+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Showballoontooltip Ve Access (/konu-showballoontooltip-ve-access.html)
Cvp: Showballoontooltip Ve Access - berduş - 26/02/2020
Çok teşekkürler sayin @feraz
Cvp: Showballoontooltip Ve Access - feraz - 26/02/2020
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
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 FunctionCvp: Showballoontooltip Ve Access - berduş - 26/02/2020
Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020
Emeğin için Çok teşekkürler ellerine ve azmine sağlık
Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020
System tray daki icona sağ tıklayınca oracıkta menu açılsa oradan seçerek bazı şeyleri yapabilsek ne güzel olurdu
Cvp: Showballoontooltip Ve Access - feraz - 27/02/2020
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?