Új hozzászólás Aktív témák

• ArchElf addikt

  #1005

  #1003 KrAt

  2008-09-21 14:28:00

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  ArchElf

  addikt

  #1003 KrAt

  #1003 KrAt

  Nagyon kezdő vagyok még (ma kezdtem) de vki segítene?

  Miért lép tovább akkor, ha az egyik (akármelyik) textbox-ba (x2, x, cons) semmit nem írok, pedig ott van, ha a textlenght = 0, akkor írjon hibaüzenetet..

  Kód:

  If x2.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If cons.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x2.Text = 0 Then
  x2biztos.Show()
  x2igen.Show()
  End If
  
  If x.Text = 0 Then
  xbiztos.Show()
  xigen.Show()
  End If
  
  If cons.Text = 0 Then
  consbiztos.Show()
  consigen.Show()
  End If

  Mit rontottam el? Pedig az alsó 3 kódrészlet működik (ha az érték 0, akkor kérdezzen rá)

  Inkább próbáld ki így:

  If x2.Text = "" Then
  adathiany.Show()
  End If
  
  If x.Text = "" Then
  adathiany.Show()
  End If
  
  If cons.Text = "" Then
  adathiany.Show()
  End If

  AE

• [HUN]Zolee őstag

  #1004

  #1003 KrAt

  2008-09-21 14:26:40

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  [HUN]Zolee

  őstag

  #1003 KrAt

  #1003 KrAt

  Nagyon kezdő vagyok még (ma kezdtem) de vki segítene?

  Miért lép tovább akkor, ha az egyik (akármelyik) textbox-ba (x2, x, cons) semmit nem írok, pedig ott van, ha a textlenght = 0, akkor írjon hibaüzenetet..

  Kód:

  If x2.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If cons.TextLength = 0 Then
  adathiany.Show()
  End If
  
  If x2.Text = 0 Then
  x2biztos.Show()
  x2igen.Show()
  End If
  
  If x.Text = 0 Then
  xbiztos.Show()
  xigen.Show()
  End If
  
  If cons.Text = 0 Then
  consbiztos.Show()
  consigen.Show()
  End If

  Mit rontottam el? Pedig az alsó 3 kódrészlet működik (ha az érték 0, akkor kérdezzen rá)

  Azért nem jó ez így, mert egyik feltétel sem kapcsolódik a másikhoz.

  If x2.TextLength = 0 or x.TextLength = 0 or cons.TextLength=0 Then
  adathiany.Show()
  else {
  If x2.Text = 0 Then
  x2biztos.Show()
  x2igen.Show()
  End If
  
  If x.Text = 0 Then
  xbiztos.Show()
  xigen.Show()
  End If
  
  If cons.Text = 0 Then
  consbiztos.Show()
  consigen.Show()
  End If
  }
  End If

  Valahogy így kellene kinézni, de én már régóta nem programoztam VB-ben

Új hozzászólás Aktív témák