Skip to main content

AccessTr.neT


Metin Kutusuna Scroll Yetisi

Metin Kutusuna Scroll Yetisi

Çözüldü #1
Ü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
Cevapla
Çözüldü #2
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.
Cevapla
Çözüldü #3
Üstadım MÜTHİŞ bir yeteneksin.
Çok teşekkürler.
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task