Metin kutusuna tıklayınca metin kutusunun tamamı seçilsin

[hozzeybek]

arkadaşlar
özellikle para birimi olan metin kutularında (0,00YTL) metin kutusuna
tıkladığımda metin kutusunun kenarından yazmaya başladığımız için
yanlışlıkla fazladan sıfır yazılabiliyor. metin kutusuna tıkladığımda
metin kutusunun tamamının seçilmesi için ne yapmalıyım?

 

[hozzeybek]

cevabı buldum
tıklandığında olay kısmına
me.metinkutusununadı.Value=me.metinkutusununadı.Value
yazarsak tüm metin kutusu seçiliyor.
yalnız şöyle bir sakıncası oluyor.
eğer kullanıcı düzeyli yetki oluşturmuşsak bu şekilde o formdaki
tüm yetkilendirmeler iptal oluyor.

 

[beab05]

Merhaba;
Click koduna alttaki kodu deneyiniz.. Kırmızı "hh" , metin kutunuzun adıdır..

Private Sub [COLOR="red"]hh[/COLOR]_Click()

With [COLOR="Red"]hh[/COLOR]
.SelStart = 0
.SelLength = Len(.Text)
.SetFocus
End With

End Sub

 

[hozzeybek]

harikasın beab05
sizin bu pratik çözümlerinize bayılıyorum
bu kod yetkilendirmeyi iptal etmiyor.
iyi çalışmalar