AccessTr.neT

Üstadlar, arkadaşlar merhaba.
Ekte gönderdiğim programın ilk kaydında a1, a2, .... a18 diye devam eden metin kutusuna mouse scroll whell yetisi kazandırmak istiyorum. Metin kutusunda a14 e kadar görünüyor, scroll ile aşağı inip a15, a16 ... yı görmek istiyorum fakat scroll formu aşağı indiriyor. Metin kutusunu değil. Mecburen kaydırma çubuğuna tıklayarak veya klavyeden imleci aşağı doğru basarak gidiyorum.

Metin kutusuna, Mouse'ye Scroll özelliğini kazandırabileceğimiz bir yöntem bilen lütfen yardım etsin.

Şimdiden teşekkürler.

Kullanıcı: 1
Şifre: 1

Aciklama metin kutusunun odaklanıldığında olayına

Private Sub Aciklama_GotFocus()

    blnFocus = True

End Sub

Aynı metin kutusunun odaklanma sonlandığında olayına

Private Sub Aciklama_LostFocus()

    blnFocus = False

End Sub

kodlarını ekle,

vb sayfasının en üstüne aşağıdaki kodları ekle

Dim blnFocus As Boolean



Private Sub Form_MouseWheel(ByVal Page As Boolean, ByVal Count As Long)

   If blnFocus = True Then

       If Count < 0 Then

           SendKeys "{up 2}"

       Else

           SendKeys "{down 2}"

       End If

   End If

End Sub

Formun "Tuş Önizleme" özelliği Evet olarak kalsın.

Üstadım MÜTHİŞ bir yeteneksin.
Çok teşekkürler.