Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
15/04/2013 22:42
Konu Sahibi
gozlemci_44
Yorumlar
2
Okunma
1397
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.853
29/01/2008
Denizli
Memur
Ofis 2010 32 Bit
Bugün,14:23
Çözüldü 
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
Çözüldü Metin Dosyasından Otomatik Veri Çekme cazcaz678 8 505 01/08/2017, 16:10 pfilcik
Çözüldü Metin Veya Sayı Birleştirme ufukcem 10 546 22/06/2017, 09:31 ufukcem
Çözüldü Metin Ayırma ufukcem 2 195 16/06/2017, 10:10 ufukcem
Çözüldü Formdan Çıkıldığında Metin Kutularını Temizlenmesi Hk. Yardım sadooo 20 1.072 11/05/2017, 22:59 sadooo
Çözüldü Metin Kutusuna Sorgudaki Satırları Yazdırma ALTANs 7 476 28/04/2017, 11:28 atoz112

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.