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

Visual Basic Code
Private Sub Aciklama_GotFocus()
    blnFocus = True
End Sub

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

Visual Basic Code
Private Sub Aciklama_LostFocus()
    blnFocus = False
End Sub

kodlarını ekle,

vb sayfasının en üstüne aşağıdaki kodları ekle
Visual Basic Code
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.
"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 
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