AccessTr.neT

Tam Versiyon: Mouse (Fare) İşlevinin Butonla Aktif ve Pasif Uygulaması
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2
ç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
Sayfalar: 1 2