Yeni Kayıt
Konudaki Resimler
|
|
_____________________________
|
Bildirim
VB TextBox.Text için Silme İşlemleri
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Tefal Titanyum 6X UnlimitedOne 28 Cm İndüksiyon Tabanlı Wok Tava - 2100116318
https://www.amazon.com.tr/dp/B086VY9Q8C?ref=ppx_yo2ov_dt_b_fed_asin_title
2 hafta önce paylaşıldı
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
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.
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
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
