Kırılmaya gerek yok üstadım
Dur bir link atayım kırmızı olay için.
Linkteki 4.mesaja özellikle dikkat.
Aynı soru sorulup sorulup duruyor
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-kapat...lleme.html
ptrsafe ekledim ama yine de icon systray da gözükmüyor
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
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-s...o-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
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ı))
(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.