AccessTr.neT
Metin Kutusuna Scroll Yetisi - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Metin Kutusuna Scroll Yetisi (/konu-metin-kutusuna-scroll-yetisi.html)



Metin Kutusuna Scroll Yetisi - gozlemci_44 - 15/04/2013

Ü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


Cvp: Metin Kutusuna Scroll Yetisi - ozanakkaya - 16/04/2013

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.


Cvp: Metin Kutusuna Scroll Yetisi - gozlemci_44 - 17/04/2013

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