textbox içine girme

1 2
02/04/2010, 14:27

besst

Merhaba

Bir butonun olayına içinde metin olan bir textbox'ın metninin sonuna imleç haline gitme olayını nasıl yapabilirim.

İyi çalışmalar
02/04/2010, 14:33

Kur@l

İStediğiniz Kod Aşağıdadır.
Len Komutu Metinin Uzunluğunu Verir...
Bir Metin Kutusunda Seçim YApabilmek İçin Setfocus Komutu İle İlgili Yere Getiriyoruz İmleci
SelStart İle Seçime Başlanacak Nokta Bildiriliyor.
SelLEnght Komutuda Kaç KArakter Seçmek İStediğimizi Gösterir... (Burada İmlecin Sona Gelmesi Söz Konusu Olduğundan SelLEnght Kullanılmamıştır.)
Kolay Gelsin

Kod:
Private Sub Komut1_Click()
Me.Metin1.SetFocus
Me.Metin1.SelStart = Len(Me.Metin1)
End Sub
02/04/2010, 14:44

besst

Hızlı cevap için çok teşekkürler elinize sağlık.
02/04/2010, 14:54

assenucler

Katkı için teşekkür...
02/04/2010, 15:00

C*e*l*o*y*c*e

Private Sub CEPTEL_Click()
If IsNull(Me.CEPTEL) Then
'If Trim(Me.CEPTEL & " ") = "" Then
'Me.CEPTEL.SetFocus
Me.CEPTEL.SelStart = 0
Else: Me.CEPTEL.SetFocus
'Me.CEPTEL.SelStart = Len(Me.CEPTEL.Text)
End If
End Sub


bunu dene burda eğer içi boş ise ilk hücreye,başa,dolu ise istediğin yani tıkladığın yere gidersin daha kullanışlı özellikle telefon alanları için iyi kolay gelsin
02/04/2010, 15:08

assenucler

Sayın C*E*L*O*Y*C*E;

Bu güzel katkınız için, teşekkür ederim hocam...

Sevgi ve saygılar...
1 2