Şimdi Ara

VB TextBox.Text için Silme İşlemleri

Daha Fazla
Bu Konudaki Kullanıcılar: Daha Az
2 Misafir - 2 Masaüstü
5 sn
6
Cevap
0
Favori
522
Tıklama
Daha Fazla
İstatistik
  • Konu İstatistikleri Yükleniyor
0 oy
Öne Çıkar
Sayfa: 1
Giriş
Mesaj
  • 1. Textboxtaki tüm yazıları silecek sadece rakamlar ve "." kalabilecek.
    2. Textboxtaki sayı 100,00 den büyükse sondan 1 tane silecek ve imleç sonda kalacak.
    İnternette araştırdım ama bulamadım
    Dil olarak vb olacak ama vb'den anlayan pek yok o yüzden eğer kodları düzgün açıklarsanız c# vb'ye çevirebilirim.



  • Bir buttona felan tıklayınca mı yapıcak bu işlemleri birde ayrıntılı anlatırmısın sondan 1 tane silecek derken



    < Bu mesaj bu kişi tarafından değiştirildi thenemne1 -- 11 Ekim 2014; 17:28:58 >
  • thenemne1 kullanıcısına yanıt
    timer ile if kontrollü
    If val(Textbox1.Text)>100,00 Then
  • Tamamda "," varken büyük küçük kontrolü yapamazsın. Bu silme olayını hala anlamadım 100,00'den büyükse neyi silecek? örnek verir misin?
  • thenemne1 kullanıcısına yanıt
    """işareti göstermek için kullandım programda olmayacak.
    * imleç her zaman sonda olacak
    "100,01"->"100,0"
    "g"->""
    "z15"->"15"
    "f3vre3gs35fv443"->"33"
    "?1,5"->"1,5"
    yeşiller karşıda

    timer kontrolü olacağından işlem otomatik gerçekleşecek
  • Visual basicten nefret ediyorum birkaç şey denedim dili hiç bilmiyorum hataları olabilir.

    Textbox'un eventler yerine gel ora neresi bilmiyorsan
    Propertiesde şimşek simgesi var ona tıkla Text Changed eventine çift tıkla kod yeri açılacak içine bunu yapıştır.
     VB TextBox.Text için Silme İşlemleri
    burda

    Dim metin As String = "" 
    For Each item As String In TextBox1.Text
    If item = "0" Or item = "1" Or item = "2" Or item = "3" Or item = "4" Or item = "5" Or
    item = "6" Or item = "7" Or item = "8" Or item = "9" Then
    metin += item.ToString()
    ElseIf item = "," Then
    If CInt(metin) > 100 Then
    metin = "100,0"
    ElseIf CInt(metin) < 0 Then
    metin = "00,0"
    Else
    metin += ",0"
    End If
    Exit For
    End If
    Next
    TextBox1.Text = metin.ToString()
    TextBox1.Select(TextBox1.Text.Length, 0)


    Beğenmezsen bu var hazır fonksiyonlu TIMER'a ekleyebilirsin;

    If Val(TextBox1.Text) > 100 Then 
    TextBox1.Text = "100,0"
    ElseIf Val(TextBox1.Text) < 0 Then

    Else
    TextBox1.Text = Val(TextBox1.Text).ToString + ",00"
    End If




  • 
Sayfa: 1
- x
Bildirim
mesajınız kopyalandı (ctrl+v) yapıştırmak istediğiniz yere yapıştırabilirsiniz.