+- 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 - feraz - 27/02/2020
Adamlar zaten sağ tıklama için yapmışlar.
Shift tuşuyla açarsanız modMenu modülünde alttaki kodlar var.
Orada yapmışlar ve karışık bayağı.
Restore Form Window
Show Access Window
Exit Application
gGbi sağ menü yapmış adamlar.
Bizim acilen bu Api olayını çözüp kendi Apimizi yazmamızın vakti geldi
Accessman hocam birde bilgisayarcıyım diyordun göstert biraz marifetini
Kod:
Public Const lngSHOW_ACCESSWINDOW = 2
Public Const lngEXIT_APP = 3
Public Function buildMenu() As Long
' Office Commandbars do not work well when displayed over the taskbar
' therefor we'll create the context-menu by API-Calls.
Dim hMenu As Long
' Creating the PopUpMenu
hMenu = CreatePopupMenu
' Inserting the MenuItems in the PopUpMenu
Call addMenuItem(hMenu, lngRESTORE_WINDOW, "Restore Form Window")
Call addMenuItem(hMenu, lngSHOW_ACCESSWINDOW, "Show Access Window")
Call addMenuItem(hMenu, lngEXIT_APP, "Exit Application")
' Return the handle to the PopUpMenu
buildMenu = hMenu
End Function
Private Sub addMenuItem(hMenu As Long, ItemID As Long, ItemText As String)
Dim MenItemInf As MENUITEMINFO
With MenItemInf
.cbSize = Len(MenItemInf)
.fState = MF_ENABLED
.fMask = MIIM_STATE Or MIIM_TYPE Or MIIM_ID
.fType = MFT_STRING
.dwItemData = 0
.cch = Len(ItemText)
.hSubMenu = 0
.wID = ItemID
.dwTypeData = ItemText
.hbmpChecked = 0
.hbmpUnchecked = 0
End With
Call InsertMenuItem(hMenu, 0, 1, MenItemInf)
End SubCvp: Showballoontooltip Ve Access - accessman - 27/02/2020
öğrenme ve sonuca gitme azminizle siz beni üçe beşe katladınız
api ve ocx yazmanında vakti gelmiş
Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020
galiba 64 bit de çalışmıyor ve bir şeyleri eksik yaptım
icon saatin yanına gelmiyor uyarı hata mesajıda vermiyor
Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020
32 bitte açtım mükemmel çalışıyor neden 64 bitte çalışmamış olabilir
64 biti olan deneyebilir mi acaba benim pc ye mi has bir hata var
Cvp: Showballoontooltip Ve Access - feraz - 27/02/2020
(27/02/2020, 08:05)accessman yazdı: 32 bitte açtım mükemmel çalışıyor neden 64 bitte çalışmamış olabilir
64 biti olan deneyebilir mi acaba benim pc ye mi has bir hata var
Ptrsafe olacak.Bir aratın googlede.Bu olayı heralde bilmiyen yoktur üstad.64 bit başa bela olduğu için bazı durumlarda 32bite göre ayarlıyorlar.
Cvp: Showballoontooltip Ve Access - accessman - 27/02/2020
İşte şimdi çok kırıldım sn.feraz
O çıkan kırmızı kırmızı yazıları görüpte Ptrsafe yazısını eklememiş olabilir miyim.