Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

TextBox Yardım

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

  1. robotzx2t

    robotzx2t Üye

    Kayıt:
    29 Haziran 2008
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Arkadaşlar küçük bi programcık işte böyle bişe. Sorun şu ; amacım tabiiki toplamayı yaptırmak diğil, istiyorumki 1.texte yada 2. texte bir sayı girilmediği taktirde bir uyarı mesajı gelsin ve cursor yeniden boş text e geri dönsün,ayrıca tek bir sayı girildiğinde sonuç kısmı boş kalsın
     
  2. Konyali

    Konyali Üye

    Kayıt:
    31 Aralık 2007
    Mesajlar:
    58
    Beğenilen Mesajlar:
    0
    bu istediğin if döngüleri ile yaparsın küçük bi örnek

    if text1.text="" then
    msgbox "Text1 boş!"
    text1.setfocus
    endif

    bu kodla text1 boşsa mesaj verir ve imlec text1 e geçer burdan yola çıkarak bişeyler yapabilirsin

    kolay gelsin
     
  3. robotzx2t

    robotzx2t Üye

    Kayıt:
    29 Haziran 2008
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Sevgili arkadaşım öncelikle çok teşekkür ediyorum cevap yazdığın için beni çok büyük bir dertten kurtardın,herşey bu "setfocus" deyiminde saklıymış ben bunu bilmiyordum sayende öğrendim herşey istediğim gibide oldu ufak bişey hariç oda şu.
    textlerden birini boş bırakıyorum,sonra mesaj kutusu geliyor tamam diyorum buraya kadar güzel fakat bu arada "tamam" dedikten sonra textlerden dolu olanınındaki değer sonu kısmına yazıyo o olsun istemiyorum umarım anlatabilmişimdir.ben sana yazdığım kodu komple gönderiyorum. şimdiden teşekkürler.

    Dim sayi1 As Integer
    Dim sayi2 As Integer
    Dim sonuc As Integer




    Private Sub Command1_Click()
    sayi1 = Val(Text1.Text)
    sayi2 = Val(Text2.Text)

    If Text1.Text = "" Then
    MsgBox "Sayı1 boş bırakılamaz", 16
    Text1.SetFocus
    End If

    If Text2.Text = "" Then
    MsgBox "Sayı2 boş bırakılamaz", 16
    Text2.SetFocus
    End If

    sonuc = Val(sayi1 + sayi2)
    Text3.Text = sonuc

    End Sub
     
  4. Konyali

    Konyali Üye

    Kayıt:
    31 Aralık 2007
    Mesajlar:
    58
    Beğenilen Mesajlar:
    0
    kodlara bakarsan textboxlar boş bile olsa işlem yapıp sonucu yazıyor bunu engellemek için

    if text1.text="" then
    ....
    ....
    exit sub ==>hiçbir işlem yapmadan kod bloğunu sonlandırır
    endif

    bu şekilde tekrar kodları düzenle istediğin olacaktır
     
  5. robotzx2t

    robotzx2t Üye

    Kayıt:
    29 Haziran 2008
    Mesajlar:
    117
    Beğenilen Mesajlar:
    0
    Şehir:
    Eskişehir
    Arkadaşım sana ne kada teşekkür etsem azdır, 2 deyim söyledin herşey yerli yerine oturdu o kadar kitap var elimde ayrıca e-book lardanda faydalanıyorum ama bu dediklerini bu kadar açık yazan bi cümle okumadım,işallah bende bir gün senin gibi ustalaşıcam tekrar saol.