Userform Listbox Mouse Tekerleği

[ulutanas]

Haluk hocam merhaba ben office 2021'e geçtim de bu kodlar 32 bit'e göre ayarlandığından aşağıda ki kırmızı bölümlerde hata veriyor.
Nasıl düzeltebiliriz.

Private Type POINTAPI
    X As Long
    Y As Long
End Type

Private Type MOUSEHOOKSTRUCT
    pt As POINTAPI
    hwnd As Long
    wHitTestCode As Long
    dwExtraInfo As Long
End Type

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function GetWindowLong Lib "user32.dll" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long

Private Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long

Private Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal nCode As Long, ByVal wParam As Long, lParam As Any) As Long

Private Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long

Private Declare Function WindowFromPoint Lib "user32" (ByVal xPoint As Long, ByVal yPoint As Long) As Long

Private Declare Function GetCursorPos Lib "user32.dll" (ByRef lpPoint As POINTAPI) As Long

Private Const WH_MOUSE_LL As Long = 14
Private Const WM_MOUSEWHEEL As Long = &H20A
Private Const HC_ACTION As Long = 0
Private Const GWL_HINSTANCE As Long = (-6)

Private mLngMouseHook As Long
Private mListBoxHwnd As Long
Private mbHook As Boolean
Private mCtl As MSForms.Control

Dim n As Long

 

[Haluk]

Aşağıdaki linke bakın;

COMBOBOX MAUSE TEKERLEĞİ

Merhaba arkadaşlar ekte gönderdiğim dosyada combobox mause tekerleği hata veriyor.

www.excel.web.tr

.

 

[ulutanas]

Haluk hocam merhaba, gönderdiğiniz linkdeki son dosyaya göre oradaki kodları da denedim ama yine hata veriyor, buraya dosya eklesem yardımcı olur musunuz?

 

[Haluk]

Ekli revize dosyaya bakın, kendi dosyanıza daha rahat uygulayabilirsiniz....

ListBox, ComboBox, TextBox..... hertürlü nesnede çalışır.

.

 

[ulutanas]

Haluk hocam gönderdiğiniz dosyada userform'u açıyorum 3 saniyede tüm dosyayı kapatıyor.

 

[Haluk]

Bilemiyorum, bende bir sorun yok ....






.

 

[ulutanas]

Sanırım office21, eski 2007 yi arattıracak hocam

 

[Haluk]

Sanırım office21, eski 2007 yi arattıracak hocam

Bilemiyorum, hiç adını duymadım böyle bir Office'in.

.

 

[bycakir]

@Haluk bey merhabalar

konuyu hortlatıyorum ama bunu ben denediğimde sizin dosyanızdaki user formu açmaya kalktıgımda user form kitlenip exceli kapatıyor. aşağıdaki kodlar kırmızı bu arada anlamadım

 

[ÖmerFaruk]

Dikkate almanıza gerek yok.
Üstteki aynı içerikler VBA 7 ve 64 bit içindir. Alttakiler önceki VBA sürümler içindir. Fark PtrSafe ifadesidir ki aynı kodların hem 32 bit hem de 64 bitte sorunsuz çalışması için yapılmıştır.
Kilitlenmenin sebebi bu olmasa gerek.

Merak ettim ben de dosyayı yükledim. Açtım. Userform çağırdım. Sorun göremedim. Ofis 365 64 bit kullanıcısyım.

 

[bycakir]

çözdüm çok şukur farklı bır konuda yakaladıgım kodlar işimi gördü