Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

TextBox'a Yazılmasını İstemediğim Kelimeler

Konu, 'Visual Basic .Net' kısmında CanCeL tarafından paylaşıldı.

  1. CanCeL

    CanCeL Yeni Üye

    Kayıt:
    21 Nisan 2012
    Mesajlar:
    6
    Beğenilen Mesajlar:
    1
    Merhaba,

    Textbox1'e engellemek istediğim kelimeler var. Aşağıdaki kod ile tek engelleyebiliyorum (DENEME)

    Engellenecek kelimeleri ayrı ayrı nasıl yazabilirim?
    DENEME1
    DENEME2
    DENEME3 gibi..

    If TextBox1.Text = "DENEME" Then
    MsgBox("İşlem Olumsuz Sonuçlanmıştır!", vbCritical, "OLUMSUZ!")
    Else
    MsgBox("İşlem Başarıyla Sonuçlanmıştır!", vbInformation, "TEBRİKLER!")
    End If
     
  2. Furkan Onka Uğur

    Furkan Onka Uğur Moderatör Yetkili Kişi

    Kayıt:
    12 Eylül 2008
    Mesajlar:
    3,707
    Beğenilen Mesajlar:
    47
    Şehir:
    Ankara
    Kod:
    Public Class Form1
        Private Shared Engelliler() As String = {"deneme1", "deneme2", "deneme3"}
        Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
            If (Array.IndexOf(Engelliler, TextBox1.Text.ToLower()) <> -1) Then
                TextBox1.SelectAll()
                MessageBox.Show("Engelli sözcük girdiniz!")
            End If
        End Sub
    End Class
    
    gibi bir şey yazılabilir. Burada şunu yaptık:
    1. Engelleyeceğimiz tüm sözcükleri bir string dizisinde topladık.
    2. TextBox'ın içeriğinin değiştiği olayı yakaladık.
    3. TextBox içeriği değiştiğinde engelli sözcükler arasında TextBox'ın Texti var mı diye kontrol ettik. Bu sırada textbox'ın değerini küçük harfe çevirdik ki DENEME1 geçerli olmasın ya da engelli sözcüklerin tüm kombinasyonlarını diziye eklemek zorunda kalmayalım.
    4. Eğer varsa dizideki indeksi -1'den farklı olacağından (aslında tam olarak -1 değil, çok önemli değil. Ayrı bir konu o) uyarı verdik ve textboxtaki metni karaladık.
     
    CanCeL bunu beğendi.
  3. CanCeL

    CanCeL Yeni Üye

    Kayıt:
    21 Nisan 2012
    Mesajlar:
    6
    Beğenilen Mesajlar:
    1
    Yardımınız için teşekkür ederim.

    Bende case ile bir çözüm buldum.

    Select Case TextBox1.Text
    Case "deneme1"
    MsgBox("Yasaklı Kelime")
    Case "deneme2"
    MsgBox("Yasaklı Kelime")
    Case Else
    MsgBox("Tamam")
    End Select
     
Benzer Konular
Yüklüyor...