Skip to main content

AccessTr.neT


Showballoontooltip Ve Access

Showballoontooltip Ve Access

#19
Çok teşekkürler sayin @feraz
Cevapla
#20
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]

Alttaki koda  en sondaki end if ten önce CursorOnTaskbar = True bunu ekledim Img-grin Modül adı modAPIWindows

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

Cevapla
#21
+rep  +rep  +rep  alkis  alkis alkis
Cevapla
#22
Emeğin için Çok teşekkürler ellerine ve azmine sağlık
Cevapla
#23
System tray daki icona sağ tıklayınca oracıkta menu açılsa oradan seçerek bazı şeyleri yapabilsek ne güzel olurdu
Cevapla
#24
Rica ederim @accessman abey.
İnşAllah o dediklerinizide yaparız ömrümüz varsa Img-grin

Araştırıp biraz kafa yorarım kodlarda yapabilirsem eklerim dosyayı.Ekteki hali sorunsuz çalışıyor değil mi?
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task