AccessTr.neT
Showballoontooltip Ve Access - Baskı Önizleme

+- 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)

Sayfalar: 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18


Cvp: Showballoontooltip Ve Access - feraz - 27/02/2020

Kırılmaya gerek yok üstadım Img-grin

Dur bir link atayım kırmızı olay için.
Linkteki 4.mesaja özellikle dikkat.
Aynı soru sorulup sorulup duruyor Img-grin
Kırmızı için ozan hoca hata değil demişti bunun için.
Ayrıca berduş hocanınkide 64bit.O ayarlayıp yükleyebilir belki.Zaten zor değilde fazla vardı Api onun için yapmadım ptrsafe eklemeyi.

https://accesstr.net/konu-accessin-kapatma-dugmesini-pasif-yapma-kapatmayi-engelleme.html


Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020

ptrsafe ekledim ama yine de icon systray da gözükmüyor


Cvp: Showballoontooltip Ve Access - feraz - 27/02/2020

Dosyayı 64bite göre ayarladım ilk mesajda.Bir deneyiniz benimki 32bit olduğu için deneyemedim.

Her yere ekledim dosyayı.
Kırmızı olursada sormayın neden diye Img-grin


Cvp: Showballoontooltip Ve Access - berduş - 27/02/2020

aşağıdaki bağlantı işe yarayacak gibi henüz tam uyarlayamadım ama balon olay dışında sistemtray çalışıyor gibi
NOTIFYICONDATA kodunu aşağıdaki gibi düzenleyip deeyebilirsiniz
https://wellsr.com/vba/2017/excel/show-system-tray-notification-balloon-when-macro-is-done/
#If VBA7 Then
Type NOTIFYICONDATA
cbSize As Long
hWnd As LongPtr
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As LongPtr
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
'guidItem As GUID
End Type
#Else
Type NOTIFYICONDATA
cbSize As Long
hWnd As Long
uID As Long
uFlags As Long
uCallbackMessage As Long
hIcon As Long
szTip As String * 128
dwState As Long
dwStateMask As Long
szInfo As String * 256
uTimeout As Long
szInfoTitle As String * 64
dwInfoFlags As Long
'guidItem As GUID
End Type
#End If



Cvp: Showballoontooltip Ve Access - berduş - 27/02/2020

o bağlantıdaki çalışmayan kısımları pasif yapıp, dosya ismi dosya yolu gibi yerlere de rasgele metin girdiğimizde systemTraye mesaj gönderiyor)
geriye 2 dosyayı birleştirmek kaldı))


Cvp: Showballoontooltip Ve Access - feraz - 27/02/2020

(27/02/2020, 10:50)berduş yazdı: o bağlantıdaki çalışmayan kısımları pasif yapıp, dosya ismi dosya yolu gibi yerlere de rasgele metin girdiğimizde systemTraye mesaj gönderiyor)
geriye 2 dosyayı birleştirmek kaldı))
64 ve 32 bite göre ayarlamıştım ve Türkçeyede çevirdim gerekli yerleri.