- Katılım
- 11 Mart 2005
- Mesajlar
- 3,109
- Excel Vers. ve Dili
- Office 2013 İngilizce
Merhaba,
Listbox ve ComboBox açılır menüsünde fare tekerleği kaydırma özelliği ile ilgili olarak internette yaptığım araştırmada ekli dosyayı buldum,
yalnız Listbox üzeirne geldiğimde ekli görselde göründüğü gibi hata veriyor,
"Compile Error : Type Mismatch"
Hatada satırını işaret ediyor --> AddressOf MouseProc
Not: MS Office versiyonu: 64 bit
Sorunu nasıl çözebiliriz?
ilginize şimdiden teşekkürler,
iyi Çalışmalar.
Listbox ve ComboBox açılır menüsünde fare tekerleği kaydırma özelliği ile ilgili olarak internette yaptığım araştırmada ekli dosyayı buldum,
yalnız Listbox üzeirne geldiğimde ekli görselde göründüğü gibi hata veriyor,
"Compile Error : Type Mismatch"
Hatada satırını işaret ediyor --> AddressOf MouseProc
Not: MS Office versiyonu: 64 bit
Sorunu nasıl çözebiliriz?
ilginize şimdiden teşekkürler,
iyi Çalışmalar.
Kod:
Sub HookListScroll(frm As Object, Ctl As MSForms.Control)
Dim lngAppInst As Long
Dim hwndUnderCursor As Long
Dim tPT As POINTAPI
GetCursorPos tPT
hwndUnderCursor = WindowFromPoint(tPT.X, tPT.Y)
If Not frm.ActiveControl Is Ctl Then
Ctl.SetFocus
End If
If mListBoxHwnd <> hwndUnderCursor Then
UnhookListScroll
Set mCtl = Ctl
mListBoxHwnd = hwndUnderCursor
lngAppInst = GetWindowLong(mListBoxHwnd, GWL_HINSTANCE)
If Not mbHook Then
mLngMouseHook = SetWindowsHookEx(WH_MOUSE_LL, AddressOf MouseProc, lngAppInst, 0)
mbHook = mLngMouseHook <> 0
End If
End If
End Sub
