Metin Kutusuna Scroll Yetisi
Tarih
15/04/2013 22:42
Konu Sahibi
gozlemci_44
Yorumlar
2
Okunma
1258
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
gozlemci_44
Aktif Üye
Kullanici Avatari
Aktif Üye
52
03/05/2011
0
Mersin
Ofis 2007
21/04/2013,17:19
Çözüldü 
Ü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

ozanakkaya
sledgeab
Kullanici Avatari
Kurucu
O.... A....
9.556
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,00:52
Çözüldü 
Sponsor Reklam
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
1
2
3
4
5
6
7
8
9
10
11
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

gozlemci_44
Aktif Üye
Kullanici Avatari
Aktif Üye
52
03/05/2011
0
Mersin
Ofis 2007
21/04/2013,17:19
Çözüldü 
Üstadım MÜTHİŞ bir yeteneksin.
Çok teşekkürler.
Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi


Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
  Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 318 11/05/2017, 22:59 sadooo
  Metin Kutusuna Sorgudaki Satırları Yazdırma ALTANs 7 129 28/04/2017, 11:28 atoz112
Çözüldü Raporda etiketi metin kutusunda değer yoksa gizleme saglikci_salih 7 2.288 29/03/2017, 17:26 atoz112
  Metin Kutusu Hakkında. perisanoglu 3 159 14/03/2017, 16:00 atoz112
  metin içine değişken ekleme Uğur Candan 5 266 14/03/2017, 15:58 atoz112


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status