çok güzel bir paylaşım. bir değişiklik yapılabilme imkanı varmı? ben yapamadım. form yüklendiğinde fare tekerleği kilitli olsa buton tıklandığında açılsa daha güzel olurdu. her seferinde tekerleğin iptal olması için tıklamamız gerekmezdi.
horozufuk abimin yol göstermesi ile; form açıldığında maus tekerleği iptal butona tıklandığında açık durumuna getirdim.
Set MouseHook = NewMouseHook(Me)
' For this example, we want the scroll wheel to be active until the user chooses to disable it
MouseHook.Scroll = True olan (False) olacak.
Formda buton seçeneği kodu ise
Private Sub btnToggleScrolling_Click()
With btnToggleScrolling
If .Value = -1 Then
MouseHook.Scroll = True
. MouseHook.Scroll = True
.Caption = "TIKLA (Mouse=Fare)AKTİF"
Else
MouseHook.Scroll = False
.Caption = "TIKLA (Mouse=Fare)PASİF"
End If
End With
End Sub
[/align]form açıldığında nasıl yapılır diye düşünüyor dum
örneğiniz ile başardım.
teşekkürler
kendi çalışmamı ekliyorum