dotNETportal.cz

Dobrý den,

Mohl by mi někdo poradit s problémem, na který jsem narazil.

Zřejmě je to banální věc ale nemohu na to přijít. Mám picturebox a do něj v události paint vykresluji třeba úsečku. Počáteční a koncové souřadnice beru ze 4 textboxů, které obsahují číselné hodnoty. Jestliže spustím aplikaci a vymažu hodnotu jednoho z textboxů, picturebox přeškrtnou 2 čáry. Poté do textboxu napíšu nějaká čísla, ale přeškrtnutí stále trvá, tak textbox obnovím pomocí Refresh a nic se nestane. Poradíte jak na to?

Zkuste to vykreslovat přímo na formulář a pokud bude problém přetrvávat, dejte sem kód kterým to vykreslujete.

Problém je stejný i v případě vykreslování na formulář.

Kód:

Public Class Form1
    Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged, TextBox2.TextChanged, TextBox3.TextChanged, TextBox4.TextChanged
        Me.Refresh()
    End Sub

    Private Sub PictureBox1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        Dim pen As New Pen(Color.Turquoise, 5)
        e.Graphics.DrawLine(pen, CInt(TextBox1.Text), CInt(TextBox2.Text), CInt(TextBox3.Text), CInt(TextBox4.Text))
    End Sub
End Class

Pokud je jeden z textboxu prázdný pote nastane tohle:

http://img213.imageshack.us/img213/996/p...

Děkuji za odpověď. Nějak mi to nedošlo.