dotNETportal.cz

Dobrý večer, měl bych dotaz:

mám 2 textboxy do kterých zapisuji vstup v číselné hodnotě, při události TextChanged měním 3 textbox jako násobky prvních dvou.

Pokud použiji button a událost click, tak je vše v pořádku, ale pokud použiji události TextChanged, tak mi to hlásí chybu:

conversion on string ' (asi prázdný řetězec), to type integer.

Vypadá to jako kdyby to bralo pořád jako string, zkusil jsem to přetypovat, ev. dosadit před spuštěním debugu čísla, ale pořád mi to nejde.

Nejde mi do hlavy, proč to na button funguje a na textchanged obou polí jen když jde o sloučení

textbox3.text=textbox1.text & textbox2.text

Díky za tip.

Podle mne je jediný problém v samotné události textbox.textchanged. Protože ta je volána po každé změně v textboxu. Předpokládám tedy, že při spuštění programu máte oba vstupní textboxy prázdné. Jenža jakmile začnete zadávat do textbox1 prvního činitele (třeba "2"), ihned po zadání první číslice je vyvolána událost a vy se snažíte vynásobit "2" * prázdný řetězec (která je zatím v textboxu2). Pokud provádíte slučování, není žádný problém (sloučením řetězce "2" a prázdného řetězce dostanete regulérně řetězec "2"), ale pokud chcete matematicky násobit, řetězce násobit nelze, musí proběhnout konverze na číslo (v tomto případě na int) a je jedno, jestli tuto konverzi provádíte Vy, nebo sám program, ale zkonvertovat prázdný řetězec na číslo nelze-proto to vyhodí chybu.

(v případě verze s Buttonem jste zřejmě mačkal až ve chvíli, kdy jste měl vyplněné oba činitele).

Kdysi jsem si něco podobného dělal a z nedostatku času jsem to vyřešil jednoduše - zachycením případné chyby, čímž jsem ošetřil i například nechtěné vložení písmena místo číslice. Vypadalo to asi takto:

 Private Sub TextBox_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged
        Try
            Label1.Text = (TextBox1.Text * TextBox2.Text).ToString

        Catch ex As Exception
            Label1.Text = "vstupem musí být čísla"
        End Try
    End Sub

Díky za tip...

Prázdným řetězcem to bohužel není, hrál jsem si s tím asi 3 hodiny a vyzkoušel jsem i to nastavit defaultně předem hodnoty, jedině, že by se to chovalo jinak když je defaultně 2 a bralo by to jako řetězec, ale i tak jsem to zkusil konvertovat do integru a pořád stejná chyba.

Co se týká button, tak při defaultně zadané hodnotě 2 do obou polí to funguje.

Zkusím to Try ...

uvidím co to bude dělat.

Zatím díky...

Visual Basic má krásnou funkci Val, která převádí text na číslo a pokud se to nepovede, vrátí nulu. To je asi to, co potřebujete.

Label1.Text = Val(TextBox1.Text) * Val(TextBox2.Text)

Jinak upozorňuji, že tato funkce je přežitek z VB6. Správně by se mělo použít Integer.TryParse.

Díky funkce Val opravdu pomohla, nicméně funkce integer.tryparse bohužel ne, jaksi nefunguje při defaultním vstupu, kdy jsou již hodnoty zadány...

Také jsem měl problém s desetinnou čárkou, resp. s tečkou, vyřešil jsem to takto, myslíte, že je to správné řešení?

TextBox_nasobek.Text = Val(TextBox_sirka.Text.Replace(",", ".")) * Val(TextBox_vyska.Text.Replace(",", ".")) 

Diky

Nezapomínejte prosím označovat odpovědi. Napomůžete tak přehlednosti diskuzních fór.

Zdravím,

už jsem díky Vám přišel na to proč mi to nefungovalo, já hloupý jsem použil typ integer, takže tam čárka ani fungovat nemohla :)

Po zadání single už to jde. Správně tedy Single.TryParse(...

Díky

PS: označení, že je otázka zodpovězena, bych rád udělal, ale nikde se mi nezobrazuje nějaká volba a jsem přihlášen.