Hirdetés

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

  • [HUN]Zolee
    őstag

    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