Showballoontooltip Ve Access

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
27/02/2020, 01:26

feraz

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 Sub
27/02/2020, 06:29

accessman

öğrenme ve sonuca gitme azminizle siz beni üçe beşe katladınız 
api ve ocx yazmanında vakti gelmiş
27/02/2020, 06:49

accessman

galiba 64 bit de çalışmıyor ve bir şeyleri eksik yaptım
icon saatin yanına gelmiyor uyarı hata mesajıda vermiyor
27/02/2020, 08:05

accessman

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
27/02/2020, 09:12

feraz

(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.
27/02/2020, 09:23

accessman

İş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.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18