TextBox içeriğini temizleme

[scorpix]

Merhaba,
ben çalışma sayfasına eklediğim 15 adet textbocta konudaki kodları denedim ama hata veriyor. yardımcı olmanızı rica ederim.

 

[bybart]

Merhabalar kullanıcı Adına tıklandığında Captionun silinmesini istiyorum. Nasıl Yapabiliriz?

 

[Cengizhantr06]

Selamlar,

Ekteki örnek dosyayı incelermisiniz. Kırmızı renkli textboxa silinecek textbox nolarını girerken 5,8,11,25,33 şeklinde araya virgül ekleyerek giriniz. Umarım faydası olur.

Korhan bey her zaman ki gibi harikasınız yine

 

[Korhan Ayhan]

@bybart,

Deneyiniz. Kendinize uyarlarsınız.

Option Explicit

Private Sub TextBox1_Enter()
    If TextBox1 = "Kullanıcı Adı" Then TextBox1 = ""
End Sub

Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox1 = "" Then TextBox1 = "Kullanıcı Adı"
End Sub

Private Sub TextBox2_Enter()
    If TextBox2 = "Şifre" Then TextBox2 = ""
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    If TextBox2 = "" Then TextBox2 = "Şifre"
End Sub