26/02/2020, 22:34
26/02/2020, 22:57
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 Function26/02/2020, 23:01
27/02/2020, 00:49
27/02/2020, 00:54
27/02/2020, 01:07
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?