Metin Kutusuna Scroll Yetisi

15/04/2013, 22:42

gozlemci_44

Ü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
16/04/2013, 18:40

ozanakkaya

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.
17/04/2013, 10:42

gozlemci_44

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