textbox click işlevi

[zulfuernek]

textbox 392 ye tıklayınca içrerisindeki yazılı veriyi silmesini istiyorum.

 

[ahmedummu]

Private Sub TextBox392_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
TextBox392.Value = ""
End Sub

Yanılmıyorsam Textbox'un click olayı yok

 

[zulfuernek]

aynen ahmet hocam textbox için ckick olayı mevcut değil. ancak berdiğiniz kod işe yaradı. textbox içerisine çift tıklayınca veriyi siliyor. emeğine sağlık. çok teşekkür ederim.

 

[ÖmerBey]

Merhaba, alternatif olarak enter olayı da kullanılabilir.

Private Sub TextBox392_Enter()
TextBox392.Text = ""
End Sub

 

[zulfuernek]

mucit hocam peki bu enter olayını for i döngüsüne nasıl aktarabiliriz. 1 den 21 e kadar textbox var sıralı bir şekilde

 

[zulfuernek]

aslında enter direk yıklayınca siliyor. çift tıklama ile silmesi daha doğrusu benim için hocam. Dcbl deki gibi

 

[BedriA]

mucit hocam peki bu enter olayını for i döngüsüne nasıl aktarabiliriz. 1 den 21 e kadar textbox var sıralı bir şekilde

Form temizleme mi yapmak istiyorsunuz?

Öyleyse şu kodu bir butona atayınız.

For i= 1 To 21
Controls("textbox"&i)=""
Next i

 

[ahmedummu]

Private Sub TextBox392_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
for i 392 to 412
controls("textbox" & i).value=""
next i
End Sub

Textboxlarınız 392'den 412 'ye kadar varsayılmıştır. Bu kodu Textbox392 nin

TextBox392_DblClick olayına yapıştırırsanız textbox392'ye çift kilik yaptığınızda textlerin hepsinin içeriğini temizler

veya Tüm textlerin TextBox392_DblClick olayına yapıştırın herhangi bir texte çif tıklayınca tüm textlerin içeriğini temizler

 

[zulfuernek]

ahmet hocam teüm textboxları tek textboxa bağlamak istemiyorum. hangi textboxa çift tıklarsam sadece onu silsin. herbirinede ayrıayrı kod yazmak istemiyorum

 

[ÖmerBey]

Class modül ile yapılabilir. Aşağıdaki linki inceleyiniz.
Form üzerinde nesnelerin içeriğini temizleme